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