clientsocket soll im netzwerk nach einem serversocket suchen

[B1nch3N]

hallo,

möchte nach dem server im lan suchen lassen.

tüfftel schon den ganzen tag und komme doch nicht weiter..

mein erster ansatz sah wie folgt aus:

Delphi-Quellcode:

procedure TForm1.ipstesten(anfang:string);
var i:integer;
      ip:string;
begin
        for i:=1 to 254 do
                begin
                  if clientsocket1.active = false then
                   begin
                        ip:=anfang+inttostr(i);
                        ClientSocket1.Host := ip;
                        clientsocket1.Active:=True;
                   end;
                end;
end;

er soll jede ip die im lan bestehen kann überprüfen.. doch er meldet immer errors etc.

gibt es vll noch andere möglichkeiten?

grüße b1nch3n