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

[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;
    if len<>0 then
      begin
      TankServer.Socket.ReceiveBuf(buf,len);
      chatmemo.Lines.Add('Получили '+inttostr(buf[0])+' '+inttostr(buf[1])+' '+inttostr(buf[2])+' '
                                                 +inttostr(buf[3])+' '+inttostr(buf[4])+' '+inttostr(buf[5])+' '+inttostr(buf[6])+' ');
      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[0]:=2;
            buf[1]:=j;
            buf[2]:=1;
            buf[3]:=1;
            TankServer.Socket.Connections[i].SendBuf(buf,bufd); 
            end;
        end;
      end;
    end;
  if updoTank=true then
    begin
      nomer;
      updoTank:=false;
    end;
  end;
end;

procedure TForm1.TankServerClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  upDoTank:=true;
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
    chatmemo.Lines.Add('Отправляем запрос клиенту №'+inttostr(i));
    TankServer.Socket.Connections[i-1].SendBuf(buf,bufd);
    end;
end;

Клиент:

procedure TForm1.TankClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  len:byte;
begin
  len:=TankClient.Socket.ReceiveLength;
  TankClient.Socket.ReceiveBuf(buf,len);
  if buf[0]<>0 then
    begin
    if buf[0]=1 then //Запрос номера
      begin
      bufo[0]:=1;
      bufo[1]:=player.n;
      TankClient.Socket.SendBuf(bufo,bufd);
      ChatMemo.Lines.Add('Отправляем номер');
      end;
    if buf[0]=2 then //Прислали номер
      begin
      player.n:=buf[1];
      player.x:=buf[2];
      player.y:=buf[3];
      ChatMemo.Lines.Add('Получены данные. Номер='+inttostr(player.n)+', Координаты '+inttostr(player.x)+':'+inttostr(player.y));
      end;
    end;
end;

При подключении сервер отправляет запрос на номер, клиент его получает, отправляет данные, но данные до сервера не доходят =(

[Beermonza]

Shouldercannon, длина пакета содержится в ServerSocket.Socket.ReceiveLength, присваивайте это некоторой переменной, затем переменную проверяйте на лимит.

Последовательность строго прописана. Что будет если в пакете первые два символа - числа, а сам он весит 1М ? ...сначала проверяйте на лимит пакета, вторым шагом - код команд, первые два символа. Затем соответствие длины пакета строгой команды. Не знаю как еще объяснить, может так:

1) Размер пакета меньше 2000 ?
Да: пропустить в шаг 2)
Нет: выполнить счет нарушения

2) Первые два символа числа ?
Да: пропустить в шаг 3)
Нет: выполнить счет нарушения

3) Есть ли команды с кодом, как были получены ?
Да: пропустить в шаг 4)
Нет: выполнить счет нарушения

4) Длина пакета команды соответствует длине по такому коду ?
Да: пропустить в обработку пакет
Нет: выполнить счет нарушения

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

[Beermonza]

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.Connections[i-1].ReceiveLength;
    if len<>0 then
      begin
      TankServer.Socket.Connections[i-1].ReceiveBuf(buf,len);
      chatmemo.Lines.Add('Получили '+inttostr(buf[0])+' '+inttostr(buf[1])+' '+inttostr(buf[2])+' '
                                                 +inttostr(buf[3])+' '+inttostr(buf[4])+' '+inttostr(buf[5])+' '+inttostr(buf[6])+' ');
      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[0]:=2;
            buf[1]:=j;
            buf[2]:=1;
            buf[3]:=1;
            TankServer.Socket.Connections[i - 1].SendBuf(buf,bufd); 
            end;
        end;
      end;
    end;
  if updoTank=true then
    begin
      nomer;
      updoTank:=false;
    end;
  end;
end;

Нумерация по фактическому числу каналов:

for i := 1 to TankServer.Socket.ActiveConnections do

Физические номера каналов начиняются с 0. Отправка в конкретный канал по физическому номеру от фактической переменной счетчика:

TankServer.Socket.Connections[i - 1].SendBuf(buf,bufd);

Если бы счетчик считал от нуля:

for i := 0 to TankServer.Socket.ActiveConnections - 1 do

...было бы сложно ориентироваться в массиве объектов:

TankMas[i - 1].n

...но проще отсылать:

TankServer.Socket.Connections[i].SendBuf(buf,bufd);

Нужно просто помнить об этом всегда.

[Shouldercannon]

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

Shouldercannon, длина пакета содержится в ServerSocket.Socket.ReceiveLength, присваивайте это некоторой переменной, затем переменную проверяйте на лимит.

Последовательность строго прописана. Что будет если в пакете первые два символа - числа, а сам он весит 1М ? ...сначала проверяйте на лимит пакета, вторым шагом - код команд, первые два символа. Затем соответствие длины пакета строгой команды. Не знаю как еще объяснить, может так:

1) Размер пакета меньше 2000 ?
Да: пропустить в шаг 2)
Нет: выполнить счет нарушения

2) Первые два символа числа ?
Да: пропустить в шаг 3)
Нет: выполнить счет нарушения

3) Есть ли команды с кодом, как были получены ?
Да: пропустить в шаг 4)
Нет: выполнить счет нарушения

4) Длина пакета команды соответствует длине по такому коду ?
Да: пропустить в обработку пакет
Нет: выполнить счет нарушения

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

...
function IsNumber(s: string): Boolean;
var
  i, v: integer;
begin
  Val(s, v, i);
  IsNumber := (i = 0);
end;
...
procedure TFormMain.ServerTimerTimer(Sender: TObject);
var
d: Integer;
Numbers: string;
begin
...
          // Условие, что пакет не пуст
          if text <> '' then
            begin
              //!//
              // Если размер пакета меньше или равно 2022
              if ServerSocket.Socket.ReceiveLength <= 2022 then // Команда 2 символа + длина сообщения 2000 символов + длина ника 20 символов
                else
                  d := d + 1; // Первое нарушение

              // Если первые два символа числа
              Numbers := Copy(text, 0, 2);

              if IsNumber(Numbers) then
                else
                  d := d + 1; // Второе нарушение

              // Есть ли команды с кодом, как были получены
              // ???

              // Если длина пакета команды соответствует длине по такому коду
              // ???
              //!//

Не понял шаги 3 и 4, код команды это 00, 01. Тормознуло

как были получены

.

Длина пакета команды соответствует длине по такому коду

длина команды это опять такиже 00, 01, 20 и тд их их длина равгая двум?

[Beermonza]

Shouldercannon, 3 шаг - это кейс:

  Case code of
  1: Begin
        // проверка на длину пакета

        GoTo L1;
      end;

  12: Begin
        // проверка на длину пакета

        GoTo L1;
      end;

  30: Begin
        // проверка на длину пакета

        GoTo L1;
      end;

  end;

  d := d + 1; // Третье нарушение

L1:

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

code - это переменная, числовая, она должна содержать перевод двух символов Numbers в одно число: '00' - 0, '01' - 1, '30' - 30, и т.д.

[Shouldercannon]

Из выше вами написанного я понял, что шаг 4 выполняется в шаге 3.
В case code of делать сверку только тип подтип команды (00, 10, 20 и тд.)?

code - это переменная, числовая, она должна содержать перевод двух символов Numbers в одно число: '00' - 0, '01' - 1, '30' - 30, и т.д.

Тогда не понятно. В первых двух случаях одно число, а в третье два. Под переводом вы имели ввиду StrToInt?
Прощу прощения за мой туготумизм если так можно вызариться, но что подразумевается под пакетом (код команды и подкоманды; ник юзера; текстовое сообщение)?

[Beermonza]

Shouldercannon, надо бы что-нибудь из учебников почитать, ...это раздел преобразований, отношения к этой теме как основного не имеет.

Если первый символ равен "0", то на втором Try StrToInt({символ}); Except {действие} end;. В противном случае Try StrToInt({символы}); Except {действие} end;

[Shouldercannon]

  // Numbers - это первые два числа (тип и подтип). Например 00
  case code of // code в данном случае будет содержать 0 - только подтип
  0: begin
    // Проверка на длину пакета (длина для данного типа подкоманды)
    try
      StrToInt(text) <= 20 then // Длина ника. перед проверкой из text убрать первые два числа (тип и подтип)
    except
      // Подсчет нарушений
    end;

    GoTo L1;
  end;

[Beermonza]

Shouldercannon, я вот сам написал абстрактные вещи и не проверил, ...StrToInt уже все делает, ну и отлично. Code должен содержать StrToInt(Numbers), все пакеты клиентов должны проходить через case code of.

[Shouldercannon]

...
          // Условие, что пакет не пуст
          if text <> '' then
            begin
              //!//
              // Проверку на подленность
              // Проверка размера пакета
              if not ServerSocket.Socket.ReceiveLength <= 2022 then // Код команды + подкоманда 2 символа; сообщение 2000 символов; ник 20 символов
                d := d + 1; // Первое нарушение

              // Проверка первых двух символов на числа
              Numbers := Copy(text, 0, 2);

              if not IsNumber(Numbers) then
                d := d + 1; // Второе нарушение

              // Проверка команды
              code := StrToInt(Numbers);

              case code of
              00: begin
                // Проверка на длину пакета (отправленный с клиента ник)
                if StrToInt(text) <= 22 then // Код команды + подкоманда 2 символа; ник 20 символов
                  GoTo L1;
              end;

              10: begin
                // Проверка на длину пакета (отправленное с клиента сообщение)
                if StrToInt(text) <= 2002 then // Код команды + подкоманда 2 символа; сообщение 2000 символов
                  GoTo L1;
              end;

              11: begin
                // Проверка на длину пакета (отправленное с клиента приватное сообщение)
                if StrToInt(text) <= 2022 then // Код команды + подкоманда 2 символа; сообщение 2000 символов; ник 20 символов
                  GoTo L1;
              end;

              end;

              d := d + 1; // Третье нарушение

              L1:
              //!//
              // Получим код комманды, длину строки
              com := StrToInt(Copy(text, 1, 1));
              com2 := StrToInt(Copy(text, 2, 1));
              len := length(text) - 2;
              // Определение комманд
              case com of
              // Тип идентификации пользователей
              0: begin
...

И так дальше рулить в том же духе. Если всё верно, то после перехода к L1 (GoTo L1;) начнёт выполнение идущий далее код.