Die UDPRead-Prozedur lautet schlicht:
Delphi-Quellcode:
procedure TMainForm.arUDPServerUDPRead (
AThread: TIdUDPListenerThread; const AData: TIdBytes; ABinding: TIdSocketHandle);
begin
infobox (format ('%s hat %s geschrieben.', [aBinding.peerIP, bytesToString (aData)]));
end;
Achtung: das arUDPServerUDPRead() Event wird aus einem Thread gerufen. Hier keine UI Actionen ausführen.