Server in LAN suchen

[alleinherrscher]

Hallo@all!

Habe vor ein Programm zu schreiben, dass alle PCs in einem LAN verbindet, sodass Nachrichten ausgetauscht, Files hinundher versendet, und Befehle an den jeweils anderen Rechner gesendet werden können.

Da ich mich mit Indy nicht auskenne, habe ich versucht es mit ClientSocket und Serversocket zu programmieren: Der Clientsocket soll zunächst alle IPs in Netzwerk scannen um zu schauen, ob schon ein Server besteht, zu dem connected werden kann, ist dies nicht der fall, soll mein Programm selber einen Server eröffnen.

Dafür habe ich eine Prozedur geschrieben, die Rekursiv arbeitet:
(IP ist die IP bis auf den letzten Zahlenblock, der mit i gekennzeichnet ist und hochgezählt wird, bis zu Verbindungen- also z.B. i= 100..150)

Delphi-Quellcode:

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


end;

Leider gibt es bei clientsocket1.Socket.Connect(1) ein Asyncronous Socket Error...ich dachte das wird durch das TRY abgefangen...

Habt ihr da ne Lösung oder vielleicht sogar bessere Idee??

Liebe Grüße, Alleinherrscher

[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;

[MisterNiceGuy]

Hab die selbe Idee auch schon öfter gehabt, aber mit Indy ist das schon um einiges einfacher!! Such dir mal ein BeispielProgramm. Ich glaub inner DP gab es schonmal ein gutes!

[alleinherrscher]

Habs schon probiert, das funktioniert leider auch nicht, es macht also keinen Unterschied ob man ein begin und end hinsetzt oder nicht :-(
Hab jetzt zusätzlich die Funktion in eine Procedur umgeändert weil ich gemerkt hab, dass hier ne Funktion nix bringt (wegen dem result in kombination mit der rekursion)

Das Problem besteht leider weiterhin :shock: