1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.FormCreate(Sender: TObject);
begin
   form1.UdpSockUtil1.LocalPort := 40000;
   form1.UdpSockUtil1.RemotePort:= 3490;
   form1.UdpSockUtil1.RemoteHost:= '192.168.1.88';
   form1.UdpSockUtil1.Open;
end;

// Nachricht an den angegebenen Host senden
procedure TForm1.BtnSendClick(Sender: TObject);
begin
  UdpSockUtil1.SendText(Input.Text+#$A);
end;

// Broadcast senden
procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.UdpSockUtil1.BroadcastText(Input.Text+#$A);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TForm1.FormCreate(Sender: TObject);
begin
  UdpSockUtil1.RemotePort := 3490;
  UdpSockUtil1.LocalPort  := 3490;
  UdpSockUtil1.Open;
  udpsockutil1.Listen := True;
end;

procedure TForm1.UdpSockUtil1Receive(Sender: TObject);
var
  vonIP : in_addr;
  puffer: String;
begin
 puffer := form1.UdpSockUtil1.ReceiveText(vonIP);
 Form1.Memo1.Lines.Add('Receive  '+IntToStr(Timecount)+' '+'  E: '+puffer+'     IP='+ inet_ntoa(vonIP));
end;

procedure TForm1.Button3Click(Sender: TObject);
Var abriss : boolean;
    vonIP : in_addr;
    port  : integer;

begin
  form1.UdpSockUtil1.Broadcast := True;
  form1.UdpSockUtil1.SendText('A'+#$A);
  form1.UdpSockUtil1.Broadcast := False;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

// bei Programmstart
procedure TForm1.FormCreate(Sender: TObject);
begin
  UdpSockUtil1.LocalPort  := 3490;
  UdpSockUtil1.RemotePort := 3490;
  UdpSockUtil1.Broadcast  := True; // dauerhaft mit dem Broadcast-Mode arbeiten (erst ab v2.00 der Kompo!)
  UdpSockUtil1.Open; // Listener aktivieren (ab jetzt sind Ereignisse möglich)
end;

// Broadcast-Discover
procedure TForm1.Button1Click(Sender: TObject);
begin
  UdpSockUtil1.RemoteHost := '255.255.255.255'; // Broadcast-Adresse für Broadcast-Sendungen
  UdpSockUtil1.SendText('A'+#$A); // ich schätze mal, das heißt "wer ist da?" ;)
end;

// Empfangsereignis
procedure TForm1.UdpSockUtil1Receive(Sender: TObject);
  var
    vonIP : in_addr;
    vonPort: Integer;
    puffer: String;
begin
 puffer := UdpSockUtil1.ReceiveText(vonIP, vonPort); // IP und Port beim Lesen mit abfragen
 Memo1.Lines.Add('Receive  '+IntToStr(Timecount)+' '+'  E: '+puffer+'  IP='+inet_ntoa(vonIP)+':'+IntToStr(vonPort));
end;

// Unicast-Senden
procedure TForm1.Button2Click(Sender: TObject);
begin
  UdpSockUtil1.RemoteHost := '192.168.0.1'; // Unicast geht auch im Broadcast-Mode, hängt von der Adresse ab!
  UdpSockUtil1.SendText('B'+#$A); // das Kommando 'B' hab ich jetzt mal nur als Demo benutzt
end;