浏览代码

TFPCustomHTTPClient: do not reconnect when terminated

Ondrej Pokorny 4 年之前
父节点
当前提交
40c359a551
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-web/src/base/fphttpclient.pp

+ 1 - 1
packages/fcl-web/src/base/fphttpclient.pp

@@ -1387,7 +1387,7 @@ begin
           T:=False;
           T:=False;
         end;
         end;
       end;
       end;
-      If Not T Then
+      If Not T and Not Terminated Then
         ReconnectToServer(CHost,CPort,AIsHttps);
         ReconnectToServer(CHost,CPort,AIsHttps);
     Finally
     Finally
       // On terminate, we close the request
       // On terminate, we close the request