paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-17 13:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Handle case where there is no handler

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-10-02 13:30:39 +02:00
parent 5b46c44b7d
commit 9780607d05
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-net/src/ssockets.pp
View File

@ -1588,7 +1588,7 @@ begin
SetSocketBlockingMode(Handle, bmBlocking, @FDS); SetSocketBlockingMode(Handle, bmBlocking, @FDS);
end; end;
{$ENDIF} {$ENDIF}
If Not IsError then If (Not IsError) and Assigned(Handler) then
begin begin
IsError:=Not FHandler.Connect; IsError:=Not FHandler.Connect;
if IsError then if IsError then
@ -1599,7 +1599,10 @@ begin
Raise ESocketError.Create(seConnectTimeOut, [Format('%s:%d',[FHost, FPort])]) Raise ESocketError.Create(seConnectTimeOut, [Format('%s:%d',[FHost, FPort])])
else else
begin begin
aErrMsg:=FHandler.GetLastErrorDescription; if Assigned(FHandler) then
aErrMsg:=FHandler.GetLastErrorDescription
else
aErrMsg:='Error connecting';
Raise ESocketError.Create(seConnectFailed, [Format('%s:%d',[FHost, FPort]),aErrMsg]); Raise ESocketError.Create(seConnectFailed, [Format('%s:%d',[FHost, FPort]),aErrMsg]);
end; end;
end; end;