Server in LAN suchen

[jfheins]

Probiers mal so:
(Ich glaube kaum, dass man die Anweisungen nach TRY in ein begin-end; einschließen muss ...)

Delphi-Quellcode:

function TForm1.SucheOffeneVerbindung(IP:string;Verbindungen,i:integer):boolean;
begin
  TRY  
    ClientSocket1.Host := IP+inttostr(i);
    ClientSocket1.Active := true;
    result:=True;
    clientsocket1.Socket.Connect(1);
  EXCEPT
    result:=False;
    memo1.Lines.Add(ClientSocket1.host + ' hat keinen bereiten Server');
    if i<Verbindungen then 
      SucheOffeneVerbindung(IP,Verbindungen,i+1);
 
  END;{EXCEPT}


end;