Oder geht das nit auch vielleicht wenn ich den Clientsocket nach jeder 255 for-schleife freisetze und dann neu erzeuge? Habe ich vesucht aber ich glaube der übernimmt dann den Fehlercode 0 nit!
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
a,b: Integer;
begin
If client1.Active=false then
Begin
ListBox1.Clear;
For b:=1 to 255 do
Begin
client1:=Tclientsocket.Create(self);
client1.Close;
client1.Port:=25555;
client1.Socket.
For a:=1 to 255 do
begin
Client1.host:='192.168.'+inttostr(b)+'.'+inttostr(a);
Try
Client1.Open;
Application.ProcessMessages;
if Client1.Socket.Connected then
Begin
ListBox1.Items.Add(Client1.Host);
exit;
end;
client1.Close;
except
beep;
end;
end;
end;
end;
end;
Der schreit dann asynchron socket... aber das versteh ich nit!
Theoretisch müsste das doch geht, weiter der Speicher dann freigegeben wird wenn man das Objekt freisetzt oder?
Danke
@wardz