paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 10:22:22 +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);
end;
{$ENDIF}
If Not IsError then
If (Not IsError) and Assigned(Handler) then
begin
IsError:=Not FHandler.Connect;
if IsError then
@ -1599,7 +1599,10 @@ begin
Raise ESocketError.Create(seConnectTimeOut, [Format('%s:%d',[FHost, FPort])])
else
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]);
end;
end;