Bladeren bron

* Actually use introduced cross-platform constant...

git-svn-id: trunk@39540 -
michael 7 jaren geleden
bovenliggende
commit
e13f069b17
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. 1 1
      packages/fcl-net/src/ssockets.pp

+ 1 - 1
packages/fcl-net/src/ssockets.pp

@@ -1125,7 +1125,7 @@ begin
 {$IFDEF HAVENONBLOCKING}
   if (ConnectTimeOut>0) then
     begin
-    if IsError and (Err=ESysEINPROGRESS) then
+    if IsError and (Err=ErrWouldBlock) then
       begin
       TimeOutResult:=CheckSocketConnectTimeout(Handle, @FDS, @TimeV);
       IsError:=(TimeOutResult<>ctrOK);