обновление в блоге - Создание многопользовательского чата

[Beermonza]

  x := 0;
  for a := 1 to 5 do
    begin
      IPRange[a].IP1 := s.Strings[x];
      IPRange[a].IP2 := s.Strings[x+1];
      Inc(x,2);
    end;

[Shouldercannon]

Опять стали доставать ники Неизвестный, а на сервере всё нормально. Как-то видел тут было обсуждение, чтобы посылать не весь список юзеров, а только тех кто пришёл/ушёл, но до реализации не дошло.

[Beermonza]

Какой смысл делать пересылку спец команд по 12 байт например, если все, что до 500 байт пролетает по сети мгновенно? ...если у сервера все в порядке, значит причина в клиенте. С добавлением разных функций вы могли запросто заткнуть сервер в общении с ним и выполнять запросы, при этом часть информации теряется для клиента. Поставьте интервал таймера больше 200 мс и проследите, что происходит у клиентов.

[Shouldercannon]

Интервал стоит 500. Заметил что по выходу юзера все становятся неизвестными. И вот как сервер ещё загоняется.

[Ckomoroh]

После создания танчиков для двоих игроков захотелось сделать их многопользовательскими. Но почему-то не работает=(

procedure TForm1.TankTimerTimer(Sender: TObject);
var
   i,j:integer;
   len:byte;
   buf:array[0..6] of byte;
begin
if TankServer.Socket.ActiveConnections<>0 then
  begin
  for i:=1 to TankServer.Socket.ActiveConnections do
    begin
    len:=TankServer.Socket.ReceiveLength;
    TankServer.Socket.ReceiveBuf(buf,len);
    if buf[0]<>0 then
      begin
      if buf[0]=1 then  //Номер танка прислали
        if buf[1]=0 then  //Если номер = 0, то новый пользователь
          begin
          j:=1;
          While TankMas[j].n<>0 do inc(j);
          buf[1]:=2;  //Посылаем ему номер и координаты
          buf[2]:=j;  //Первая свободная ячейка в массиве
          buf[3]:=1;
          buf[4]:=1;
          TankServer.Socket.Connections[i].SendBuf(buf,7); 
          end;
      end;
    end;
  if updoTank=true then
    begin
      nomer;
      updoTank:=false;
    end;
  end;
end;

procedure TForm1.nomer;
var
  i:integer;
  buf:array[0..6] of byte;
begin
//Запрос номеров танков
  buf[0]:=1;
  for i:=1 to TankServer.Socket.ActiveConnections do
    begin
    TankServer.Socket.Connections[i-1].SendBuf(buf,bufd);
    end;
end;

procedure TForm1.TankServerClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
//Новый клиент, обновляем список
  upDoTank:=true;
end;

Ошибка выскакивает здесь:

len:=TankServer.Socket.ReceiveLength;
    TankServer.Socket.ReceiveBuf(buf,len);

[Beermonza]

Сообщение от Shouldercannon

Интервал стоит 500. Заметил что по выходу юзера все становятся неизвестными. И вот как сервер ещё загоняется.

Когда кто-то подключается/отключается, запускается обновление массива, в нем всем каналам присваивается имя "Неизвестный", следом идет обновление списка, в листе это все отображается, идет последовательный запрос всем клиентам, они отвечают, и по мере прихода их ответов список заполняется их никами. Как только все ники будут записаны, сервер вышлет всем клиентам список присутствующих.

По поводу ошибки. Какой-то из клиентов шлет гадость вместо правильного пакета, поскольку проверок на подлинность у вас нет. Первый же неправильный пакет и список так и останется с именами неизвестных.

Ckomoroh, код, на котором возникает ошибка у сервера, в каком событии расположен? ...а, вот, вижу, в таймере, ...если длина буфера, принятого сервером, равна нулю, то брать такой буфер нельзя, нужна проверка на len > 0.

[Shouldercannon]

Проверку на подленность трудно будет сделать?

[Beermonza]

Сообщение от Shouldercannon

Проверку на подленность трудно будет сделать?

  Try // попытаться
    // проверить первый байт на число (перечисление все кодов команд)
  Except // при ошибке
    // выкинуть пользователя
  end;

[Ckomoroh]

Ошибки теперь нет, но теперь сервер абсолютно не принимает никаких буферов.

[Shouldercannon]

Сообщение от Beermonza

  Try // попытаться
    // проверить первый байт на число (перечисление все кодов команд)
  Except // при ошибке
    // выкинуть пользователя
  end;

Проверку делать только на сервере и в процедуре ServerTimerTimer перед

// Получим код комманды, длину строки