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

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

lazynov

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

Alex Death

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

Код:
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

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

Код:
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)); // читаю всё что мне нужно, в данном примере 
// понадобилось получить первый символ ака комманда
 
Статус
Закрыто для дальнейших ответов.