Broadcast - UDP und TCP in einem Projekt?

[.chicken]

Zitat von 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)

Ok, mit der zweiten Prozedur, wird das dann an alle IPs gesendet? Also quasi von 0.0.0.0 bis 255.255.255.255?

Und ansonsten nehme ich noch nen UDP Client bei der ClientAnwendung und da dann noch ne Read und Send Methode?

Danke schonmal!

Edit: Achso, warum is das mit nem Stream und nich einfach nem String? Gibts keine Möglichkeit einfach simpel nen String zu versenden? Ohne Stream?