diff options
author | marcus <marcus@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-07-01 13:47:51 +0000 |
---|---|---|
committer | marcus <marcus@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-07-01 13:47:51 +0000 |
commit | 88b989899235b2da369417130271637fcc779d5e (patch) | |
tree | 70293d09a80172b41e2a219204976d730ee3cde8 /packages/fcl-net | |
parent | a7a1de32c1d709e08e22d0677d7647e35f812c2e (diff) | |
download | fpc-88b989899235b2da369417130271637fcc779d5e.tar.gz |
InetSocket: fixed connect without timeout set
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@39355 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-net')
-rw-r--r-- | packages/fcl-net/src/ssockets.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-net/src/ssockets.pp b/packages/fcl-net/src/ssockets.pp index ba47485a60..f84b803e13 100644 --- a/packages/fcl-net/src/ssockets.pp +++ b/packages/fcl-net/src/ssockets.pp @@ -1117,7 +1117,7 @@ begin If (Res<0) then Raise ESocketError.Create(seConnectFailed, [Format('%s:%d',[FHost, FPort])]); {$IFDEF HAVENONBLOCKING} - If (Res=0) then + If (Res=0) and (ConnectTimeOut>0) then Raise ESocketError.Create(seConnectTimeOut, [Format('%s:%d',[FHost, FPort])]); {$ENDIF} end; |