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

uses
  ..., UdpSockUtil, WinSock; // WinSock wird für den Typ in_addr benötigt

const
  SERVICE_PORT   = 12345; // hier wartet eine Instanz auf Anfragen
  MY_APP_REQUEST = AnsiString('FindLanInstanceDemo:Request');
  MY_APP_REPLY   = AnsiString('FindLanInstanceDemo:Reply');

// Beim Programmstart die Eigenschaften des UDP-Sockets setzen und öffnen
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  UdpSockUtil1.LocalPort := SERVICE_PORT;
  UdpSockUtil1.RemotePort := SERVICE_PORT;
  UdpSockUtil1.Broadcast := TRUE;
  UdpSockUtil1.Open; // auf eingehende Pakete reagieren
end;

// Andere Instanzen per Rundesendenachricht im LAN suchen
procedure TfrmMain.btnSearchClick(Sender: TObject);
begin
  UdpSockUtil1.BroadcastText(MY_APP_REQUEST);
end;                    

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

// Es ist ein Datenpaket eingetroffen, untersuchen
procedure TfrmMain.UdpSockUtil1Receive(Sender: TObject);
  var
    SenderIP: in_addr;
    SenderPort: Integer;
    SenderData: AnsiString;
begin
  SenderData := UdpSockUtil1.ReceiveText(SenderIP, SenderPort); // Daten lesen
  if (SenderData = MY_APP_REQUEST) then begin
    // Anfrage nach laufender Instanz
    UdpSockUtil1.RemoteAddr := SenderIP; // an den Absender
    UdpSockUtil1.SendText(MY_APP_REPLY); // die Antwort senden
  end
  else if (SenderData = MY_APP_REPLY) then begin
    // Antwort auf Anfrage nach laufender Instanz
    SenderData := inet_ntoa(SenderIP); // IPddn -> String;
    if ListBox1.Items.IndexOf(SenderData) = -1 then // schon bekannt?
      ListBox1.Items.Add(SenderData); // nein, einfügen
  end
  else
    ShowMessage('Unbekanntes Datenpaket von '+inet_ntoa(SenderIP)+':'+IntToStr(SenderPort));
end;