Hello,
procedure TCustomWSocket.InternalAbort(ErrCode : Word);
begin
CancelDnsLookup; // ==> may raise exception due to Winsock error 11002!
DeleteBufferedData;
{ Be sure to close as fast as possible (abortive close) }
if (State = wsConnected) and (FProto = IPPROTO_TCP) then begin
LingerOnOff := wsLingerOff;
SetLingerOption;
end;
InternalClose(FALSE, ErrCode);
end;
I propose to surround the canceldnslookup with a try/catch. Any objection?
Regards,
SZ
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
