Broadcast - UDP und TCP in einem Projekt?

[sirius]

Eigentlich gibt es bei UDP keine Unterscheidung zwischen Server und Client. Bei Indy wird es dennoch gemacht. Vielleicht, weill man beim Client davon ausgeht, dass nix empfangen wird und damit Code gespart werden kann.

Die UDPsocket-Komponente von Borland ist etwas schwach (da kann man auch gleich die WinAPI nehmen), deswegen habe ich mal bei Indy geschaut.
Du benötigst:
TidUDPServer mit folgenden Einstellungen (ich lege den Port mal auf 6000)
-DefaultPort: 6000
-BroadCastEnabled: True
-und wenn du etwas machen willst (empfangen oder senden): natürlich active auf true
und dann noch sowas hier:

Delphi-Quellcode:

procedure TForm1.IdUDPServerUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var s:string;
begin
  setlength(s,aData.size);
  aData.Read(s[1],length(s));
  showmessage(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  idUDPServer.Send('255.255.255.255',6000,'Hallo');
end;

Edit: Aber ich bin in Indy nicht wirklich bewandert, vielleicht gibts noch andere Möglichkeiten (z.B. die Methode Broadcast)