瀏覽代碼

* Position stream on start

Michaël Van Canneyt 3 年之前
父節點
當前提交
8360b18097
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      packages/fcl-web/src/base/fpwebclient.pp

+ 2 - 0
packages/fcl-web/src/base/fpwebclient.pp

@@ -349,6 +349,8 @@ begin
       LogRequest(AMethod,AURL,ARequest);
     try
       Result:=DoHTTPMethod(AMethod,AURL,ARequest);
+      if Assigned(Result) and Assigned(Result.FStream) then
+        Result.FStream.Position:=0;
     except
       if (P=PMin) then
         Raise;