ОА "Микротехника"
UDP server read
procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
const AData: TIdBytes; ABinding: TIdSocketHandle);
var str:string;
begin
str:=BytesToString(Adata,en8bit);
end;
2023-02-06 15:57
Delphi