Преглед изворни кода

Update UNetProtocol.pas

Increase pending requests protection from 2 to 3
PascalCoin пре 6 година
родитељ
комит
2b02124af2
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      src/core/UNetProtocol.pas

+ 1 - 1
src/core/UNetProtocol.pas

@@ -2630,7 +2630,7 @@ begin
   If ((FLastDataReceivedTS>0) Or ( NOT (Self is TNetServerClient)))
     and (TPlatform.GetElapsedMilliseconds(FLastHelloTS)>(1000*FRandomWaitSecondsSendHello)) then begin
     iPending := TNetData.NetData.PendingRequest(Self,ops);
-    If iPending>=2 then begin
+    If iPending>=3 then begin
       TLog.NewLog(ltDebug,Classname,'Pending requests without response... closing connection to '+ClientRemoteAddr+' > '+ops);
       Connected := false;
     end else begin