Hi ATwardz,
ich hab mal ein bischen ausprobiert.
In folgender procedure:
Delphi-Quellcode:
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ListBox2.Items.Add(ClientSocket1.Address);
ErrorCode:=0;
end;
Wenn du den ErrorCode auf 0 setzt wird keine
Exception ausgelöst. Du muß dann nur noch eine Variable setzen, und deren Wert in deiner Schleife abfangen, damit Sie unterbrochen wird.
Oder du setzt die Variable in ClientSocket1Connect damit deine Schleife bei einer erfolgreichen Verbindung abbricht.
Bei mir funktionierts
