Разработка сетевых приложений

[Asker13]

i := 1;
if PlayerCount <> MAX_PLAYERS then begin
Inc(PlayerCount);
while ClientData[i].Active do Inc(i)...

Интересно, где тут ошибка? Где тут что-то могло неправильно произойти?
Единственное, в чём я сомневаюсь - так это в передаче данных с сервера клиенту, от клиента к серверу, потому что эта тема плохо изучена мной, опыта не имею.

А что говорит отладка? Брейкопоинты ставил?

Вот они-то тут совершенно не нужны.

где могла бы быть ошибка не мало.

Вы привели только один пример, в котором итак всё предусмотрено и ошибки быть не может. Покажите ещё места. Немало - это сколько должно быть по-вашему?

Почему нельзя было сделать булевую переменную?
тогда можно было б написать

Можно было, исправлю. Спасибо.

[Beermonza]

Asker13, нужно стараться избегать цикла while, это опасная штука, особенно в динамическом режиме организации многопользовательского обмена данными, контроля каналов и пр. Есть привычный For, он не способен ввести программу в бесконечность выполнения процедур.

Вот тут идет i := 1, и ServerSocket1.Socket.Connections[i].SendText, хотя это событие на коннект:

procedure TMainForm.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i: integer;
begin
  i := 1;

  if PlayerCount <> MAX_PLAYERS then begin
    Inc(PlayerCount);
    while ClientData[i].Active do Inc(i);
    AddClient(i);
    ServerSocket1.Socket.Connections[i].SendText('@' + IntToStr(i));
    ShowMessage('Подключен друг! Проверочное сообщение!');
  end

  else ServerSocket1.Socket.Disconnect(Socket.SocketHandle);
end;

Если нумирация у каналов начинается с 0, то что будет при подключении первого клиента (по счету 0) и отправки текста в канал номер 1 ? ...правильно, будет List Index Out Of Bounds(1) - нет у сервера канала 1, есть 0.

[Asker13]

Спасибо, Beermonza. Действительно в том месте была серъёзная ошибка, исправил. И всё же я пока оставлю while.
Клиент присоединился:

  if PlayerCount <> MAX_PLAYERS then begin
    Inc(PlayerCount);
    while ClientData[i].Active do Inc(i);
    AddClient(i);
    ServerSocket1.Socket.Connections[ServerSocket1.Socket.ActiveConnections-1].SendText('@');
    Socket.Data := Pointer(i);
  end

Клиент отсоединился:

  Dec(PlayerCount);
  ClientData[integer(Socket.Data)].Active := false;

Самое интересное теперь, что сервер видит, как клиент перемещается. А клиент не видит ни своего перемещения, ни перемещения серверного игрока. Но клиент отправляет серверу только строку с командами о перемещении. А вот сервер уже всем клиентам отправляет массив из 16 элементов. Вот так:

    for j := 0 to ServerSocket1.Socket.ActiveConnections-1 do
      ServerSocket1.Socket.Connections[j].SendBuf(ClientData, SizeOf(ClientData));

[Beermonza]

SendBuf(ClientData, SizeOf(ClientData)) - некорректная отправка. Вообще, типичный рабочий способ это отправка подготовленного байтового буфера, который собирается перед отправкой. Длина буфера должна быть стандартизирована: 2, 4, 8, 16, 32, 64 и т.д. Используя конкретный буфер Buf2, Buf4, Buf8, Buf16, Buf32, Buf64, длина хранится в его первом байте, и никогда не затирается сервером, при заполнении. Будет выглядеть так:

Buf4[1] := ClientData[i].UnitID;
Buf4[2] := ClientData[i].X;
Buf4[3] := ClientData[i].Y;

for j := 0 to ServerSocket1.Socket.ActiveConnections-1 do
  Socket.Connections[j].SendBuf(Buf4, Buf4[0]);

Кроме того, Inc и Dec использовать в connect и disconnect крайне не рекомендуется, ...для этого есть тот же ActiveConnections. В структуру ClientData можно включить запись типа TCustomWinSocket, в которую при коннекте сервер впишет возвращаемый Socket клиента, ...через эту переменную сервер может послать данные конкретно пользователю из общего массива без перебора по ActiveConnections, поскольку после подключения или отключения каналы меняют номера, можно отослать данные не тому пользователю, а переменная Socket не ошибается.

[Asker13]

Beermonza, невнимательно я прислушивался к вашим словам в первых постах, говорили же про массив данных, про буфер, про размерность... Снова выручаете меня, спасибо!

[Beermonza]

Я сделал добавление в пост выше, обрати внимание.