1:
2:

uses
   ..., Forms;					

1:
2:
3:
4:
5:

FRemoteAddr.S_addr := Integer(INADDR_BROADCAST);

if (Value.S_addr = Integer(INADDR_BROADCAST)) then

if (Value.S_addr = Integer(INADDR_BROADCAST)) then					

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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

[...]

procedure TForm1.FormCreate(Sender: TObject);
begin
  myUDP := TUDPSockUtil.Create(self);
  myUDP.RemotePort := UDP_PORT; //12345
  myUDP.LocalPort := UDP_PORT;
  myUDP.OnReceive := myUDPReceive;
  myUDP.OnError := myUDPError;
  myUDP.Listen := true;

  myTCPClient.BoundIP := myIPWatch.LocalIP;
  myTCPClient.BoundPort := TCP_CLIENT_PORT; //12346
  
  myTCPServer.DefaultPort := TCP_SERVER_PORT; //12347
  myTCPServer.Active := true;

  [...]

end;

procedure TForm1.Button2Click(Sender: TObject); //Broadcast senden
begin
  Log.Lines.Add(TimeToStr(now) +': Sending Broadcast Question');
  myUDP.BroadcastText(APP_ID+#13+ // Kennung
                      Syntax[cmdBroadAsk].Text+#13); // Befehl
                      //Input.Text+#13); // Argument

  ServerList.SetFocus;
end;

procedure TForm1.ServerListClick(Sender: TObject);
var
  server: string;
begin
  if ( ServerList.Row > 0 ) and ( ServerList.Row < ServerList.RowCount )
          and not ( ServerList.Cells[1,ServerList.Row] = '' )
          then
    begin
      server := copy(ServerList.Cells[1,ServerList.Row],1,pos(' (',ServerList.Cells[1,ServerList.Row]));
      Log.Lines.Add('Trying to connect to ' + server);
      myUDP.RemoteHost := server;
      myUDP.SendText(APP_ID+#13+ // Kennung
                      Syntax[cmdStop].Text+#13); // Der Befehl um myUDP.Listen auf false zu setzen
      myTCPClient.Host := server;
      myTCPClient.Port := TCP_SERVER_PORT; //12347
      myTcpClient.Connect(); //Ohne das vorherige stoppen von myUDP.Listen kommt hier ein 'Connection refused'
    end;
end;

[...]					

1:

[Fatal Error] dclusr.dpk(47): File not found: 'GIFCODE.dcu'					

1:
2:
3:

[Warning] dclusr.dpk(5): File not found: '..\..\..\..\dokumente und einstellungen\sebastian & martin\desktop\icq_20040630\icq\component\ICQClient.dcr' 

[Warning] dclusr.dpk(6): File not found: '..\..\..\..\Dokumente und Einstellungen\Sebastian & Martin\Desktop\icq_20040630\ICQ\Component\ICQDb.dcr'