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