Socket-Fehler 10055

[nahpets]

Hallo,

wie machst Du das mit der Fehlerbehandlung?

Delphi-Quellcode:

procedure TForm1.ClientSocket1Error(Sender: TObject; 
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; 
  var ErrorCode: Integer); 
begin 
... 
  Try
    ...
    Socket.Open;
    ClientSocket1.Open; 
    ...
  Except
    ErrorCode:=0; 
    Socket.Close; 
    ClientSocket1.Close; 
  end;
... 
end;

Wenn der Fehler 10055 ausgelöst wird, tritt eine Exception auf, eventuell kommst Du dadurch nicht mehr am Close und/oder den Stellen, an denen Du irgendwas freigibst, vorbei.

Stephan