1:
2:
3:
4:
5:
6:
7:
8:

  
IdTCPServer1.Active := True;
ServerIp.caption:=IdIPWatch1.LocalIP;
rechnername.Caption:=IdIPWatch1.LocalName;
port.Caption:=Inttostr(UDP_Poker_Port);
UdpSockUtil1.LocalPort := StrToIntDef(Port.caption,UDP_PORT);
UdpSockUtil1.RemotePort := UdpSockUtil1.LocalPort;
UdpSockUtil1.Open;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

UdpSockUtil1.LocalPort := StrToIntDef(Port.caption,UDP_PORT);
UdpSockUtil1.RemotePort := UdpSockUtil1.LocalPort;
UdpSockUtil1.Open;
UdpSockUtil1.BroadcastText(APP_ID+#13+ 
'Client'+#13+ 
IdIpWatch1.LocalIP+#13+
Nickname.Text+#13);
IdTCPClient1.BoundIP:=IdIpWatch1.LocalIp;
IdTCPClient1.BoundPort:=UDP_Poker_Port;					

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:
34:
35:

procedure TForm1.UdpSockUtil1Receive(Sender: TObject);
var vonIP: in_addr;
    Data: TStringList; 
    serverip : string;
begin
{Narses Code. Teilweise verändert!}
Data := TStringList.Create;
try
Data.Text := UdpSockUtil1.ReceiveText(vonIP); 
if (Data.Count > 1) then 
if (Data.Strings[0] = APP_ID) then begin 
  ShowMessage(Data.Strings[1]);
  if (server=true) then
  begin
    if (Data.Strings[1] = 'Client') then
    begin
      UdpSockUtil1.BroadcastText(APP_ID+#13+ 
      'Server'+#13+ 
      IdIpWatch1.LocalIP+#13);
    end;
  end else if (server=false) then
  begin
    if (Data.Strings[1] = 'Server') then
    begin
     serverip:=Data.Strings[2];
     IdTCPClient1.Host:=serverip;
     IdTCPClient1.Connect(100);
     users_client.AddItem(serverip, users_client);
    end;
  end;
end;
finally
Data.Free;
end;
end;					

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

procedure TForm1.UdpSockUtil1Receive(Sender: TObject);
var vonIP: in_addr;
    Data: TStringList; 
    serverip : string;
begin
{Narses Code. Teilweise verändert!}
Data := TStringList.Create;
try
Data.Text := UdpSockUtil1.ReceiveText(vonIP); 
ShowMessage(Data.CommaText);
if (Data.Count > 1) then 
if (Data.Strings[0] = APP_ID) then begin 
  ShowMessage(Data.Strings[1]);
  if (server=true) then
  begin
//...
end;					

1:
2:

if (Data.Strings[0] = APP_ID) then begin 
  ShowMessage(Data.Strings[1]);