E.ClassName = Nicht verfügbarer Wert
E.Message = 'Socket-Fehler # 10038Socket-Operation für Nicht-Socket.'#$D#$A
Ich lande im Except Teil von:
Delphi-Quellcode:
procedure TIdConnectThread.Execute;
begin
try
FBinding.Connect;
except
on E:
Exception do begin
FExceptionOccured := True;
FExceptionMessage := E.
Message;
if E
is EIdSocketError
then begin
if (EIdSocketError(E).LastError <> Id_WSAEBADF)
and (EIdSocketError(E).LastError <> Id_WSAENOTSOCK)
then begin
FLastSocketError := EIdSocketError(E).LastError;
end;
end;
end;
end;
end;