Einzelnen Beitrag anzeigen

js747a

Registriert seit: 11. Aug 2008
Ort: Nord hessen
43 Beiträge
 
Delphi 7 Enterprise
 
#11

AW: UDP Verbindung

  Alt 1. Mär 2021, 10:31
Empfangen

ListenSocket.Proto := 'udp';
ListenSocket.Addr := '0.0.0.0'; // oder meine IP '192.168.1.64'
ListenSocket.ReuseAddr :=true;
ListenSocket.Listen;

procedure TMainForm.ListenSocketDataAvailable(Sender: TObject; Error: Word);
var
s: string;
begin
s:=ListenSocket.ReceiveStr;
ListenMemo.Lines.Add('Empfangen: Port (' + ListenSocket.port + ') : ' + s);
End;

Wofür ist ListenSocket.SocksPort ?


Senden

SendSocket.Proto := 'udp';
SendSocket.Addr := '255.255.255.255' // That's a broadcast ! oder 192.168.0.111
SendSocket.Port := '21105';
SendSocket.LocalPort := '0';
SendSocket.Connect;
SendSocket.SendStr(mySendingString);
  Mit Zitat antworten Zitat