• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Проблема с Udp-протоколом

  • Автор темы lazynov
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

lazynov

Проблемы с UDP-протоколом. Дело в том, что когда на сервере принимаешь сообщение о приеме данных и пытаешься преобразовать поток в строку, то прога отказывается работать. Если просто делать
procedure MainForm.ServerOnUDPRead(........);
begin
ShowMessage('Somebody connect');
end;
и все прекрасно работает!
В чем причина?
 
A

Alex Death

Вот как можно сделать для чата:

Код:
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
StrFrmStream: TStringStream;
Str:string;
begin
StrFrmStream:=TStringStream.Create('');
StrFrmStream.CopyFrom(AData,AData.Size);
Str:=StrFrmStream.DataString;
ABinding.SendTo(ABinding.PeerIP,ABinding.PeerPort,str[1],length(str));
end;
 
A

aAndy

У меня всё прекрасно работает вот таким способом, до боли всем знакомым:

Код:
procedure TdmMain.UDPServerUDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
s:string;
begin
SetLength(s, AData.Size);
AData.Position := 0;
Adata.Read(s[1], Length(s)); // читаю всё что мне нужно, в данном примере 
// понадобилось получить первый символ ака комманда
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!