Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=420910&view=findpost&p=3842637 Mon, 07 Dec 2020 13:34:17 +0000 Отправка UDP - IdUDPClient1.SendBuffer https://forum.sources.ru/index.php?showtopic=420910&view=findpost&p=3842637 Цитата Mr.Delphist @
Хотя бы примитивный: сперва DWORD с длиной ожидаемых данных (тройка в данном случае), а затем уже байты контента.

У меня в примере так и есть.

Добавлено
Цитата Mr.Delphist @
сеть - это асинхронная среда многих соединений.

Данное понимание приходит лишь с опытом, когда начинаются дропы пакетов по независящим от тебя причинам, и ты судорожно начинаешь дебажить. :D]]> Gonarh Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=420910&view=findpost&p=3842634 Mon, 07 Dec 2020 11:34:14 +0000 Отправка UDP - IdUDPClient1.SendBuffer https://forum.sources.ru/index.php?showtopic=420910&view=findpost&p=3842634
Никогда. НИКОГДА! Никогда не отправляйте в сеть сырые данные. Обязательно оборачивать их в некий протокол application-уровня. Хотя бы примитивный: сперва DWORD с длиной ожидаемых данных (тройка в данном случае), а затем уже байты контента.

Причина проста: сеть - это асинхронная среда многих соединений. Поэтому её нельзя расценивать как некий pipe, где байты ходят ровно теми же порциями, как их отправили. Поэтому и появились такие решения как Protobuf и Apache Thrift (стандартизованные протоколы-сериализаторы для произвольных структур данных).]]> Mr.Delphist Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=420910&view=findpost&p=3842506 Mon, 30 Nov 2020 16:15:07 +0000 Отправка UDP - IdUDPClient1.SendBuffer https://forum.sources.ru/index.php?showtopic=420910&view=findpost&p=3842506 Цитата Emmys @
     tmp2:="33 32 31"; //ожидается что это 321

Вместо 3-ёх байт срать в сеть 8? Вот кто значит ддосы устраивает.
    type
      TBytes = array of Byte;
    ...
     
    function StringToBytes(const Value : String): TBytes;
    var sz:Cardinal;
        sz_byte:TBytes;
    begin
      sz:=Length(Value);
      SetLength(sz_byte, SizeOf(sz));
      SetLength(Result, sz * SizeOf(Char) + SizeOf(sz));
      if (Length(Result) > 0) and (Length(sz_byte) > 0) then begin
        Move(sz, sz_byte[0], Length(sz_byte));
        Move(Value[1], Result[SizeOf(sz)], Length(Result));
        Move(sz_byte[0], Result[0], Length(sz_byte));
      end;
    end;
     
    function BytesToString(const Value: TBytes): String;
    begin
      SetLength(Result, Length(Value) div SizeOf(Char));
      if Length(Result) > 0 then Move(Value[0], Result[1], Length(Value));
    end;
     
    procedure TForm1.Button1Click(Sender: TObject);
    var buf:TBytes;
    begin
      buf:=StringToBytes('321');
      client.SendBuffer(buf[0], Length(buf));
    end;
     
    procedure TForm1.servUDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
    var I, sz:Cardinal;
        data, sz_bytes:TBytes;
    begin
      sz:=0;
      SetLength(sz_bytes, SizeOf(sz));
      AData.Read(sz_bytes[0], SizeOf(sz));
      for I := 0 to Length(sz_bytes)-1 do sz := sz + Round(Power(0, I)) * sz_bytes[I];
      SetLength(data, sz);
      AData.Read(data[0], sz);
      showmessage(BytesToString(data));
    end;
     
    end.
]]> Gonarh Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=420910&view=findpost&p=3842496 Mon, 30 Nov 2020 07:21:42 +0000 Отправка UDP - IdUDPClient1.SendBuffer https://forum.sources.ru/index.php?showtopic=420910&view=findpost&p=3842496 Цитата Emmys @
tmp2:="33 32 31"; //ожидается что это 321

:blink: кем ожидается?

    var
      Buf: TIdBytes;
    Begin
      SetLength(Buf, 3);
      Buf[0] := ;
      Buf[1] := ;
      Buf[2] := ;
      IdUDPClient1.Send(Buf);
    End;


Добавлено
Ещё так попробуй:
    IdUDPClient1.Send(###, Indy8BitEncoding);
]]> ^D^ima Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=420910&view=findpost&p=3842486 Sun, 29 Nov 2020 15:26:34 +0000 Отправка UDP - IdUDPClient1.SendBuffer https://forum.sources.ru/index.php?showtopic=420910&view=findpost&p=3842486 Я запутался и совсем в отчаянии
Раньше я отправлял просто строку по UDP но встала задача именно отправить байты т.е. не печатанные символы и тп

для примера я пытаюсь отправить пока что строку из 3х символов как байты: 321

делаю конвертацию по коду ниже и получаю это:
https://yadi.sk/i/Dgt1qMYxD0tVYg
а в номальной программе которую я скачал там все корректно формируется
https://yadi.sk/i/7hrj-rOCIXkQCQ

     tmp2:="33 32 31"; //ожидается что это 321
      g:=0;
      cnt:=0;
      while g<=length(tmp2) do begin
     
      if pos(' ',tmp2)>0 then begin
    delete(tmp2,pos(' ',tmp2),1);
    inc(cnt);
    end;
     
      inc(g);
      end;
     
      inc(cnt);
     
     
     SetLength(buff, cnt);
     
     
     
      tmp2:=UDP_Server_Client_1.Edit5.Text;
      g:=0;
      cnt:=0;
      while g<=length(tmp2) do begin
     
     
      if pos(' ',tmp2)>0 then begin
       tmp3:=tmp2;
        delete(tmp3,pos(' ',tmp3),length(tmp3));
      delete(tmp2,1,pos(' ',tmp2));
      tmp3:=tmp3;
       buff[cnt]:=strtoint(tmp3);
       inc(cnt);
    end;
     
      inc(g);
      end;
     
     
    tmp2:=tmp2;
       buff[cnt]:=strtoint(tmp2);
       inc(cnt);
     
     
     
     
    ёUDP_Server_Client_1.IdUDPClient1.SendBuffer(UDP_Server_Client_1.IdUDPClient1.Host,UDP_Server_Client_1.IdUDPClient1.Port,buff);
    //UDP_Server_Client_1.IdUDPClient1.Send(UDP_Server_Client_1.Edit3.Text);
    //если нужно отправить просто строку, то отравляем без изменений
]]> Emmys Delphi: Сетевое программирование