как передать сообщение средствами UDP?
Отправляю так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send('privet', nil);
end;
Принимаю так:
Код:
procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
AData: TBytes; ABinding: TIdSocketHandle);
begin
showmessage(IdUDPClient1.ReceiveString());
end;
Но выскакивает пустой месаджбокс.