瀏覽代碼

*http client: rewind RequestBody in SendRequest

Ondrej Pokorny 4 年之前
父節點
當前提交
675312c201
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-web/src/base/fphttpclient.pp

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

@@ -747,7 +747,7 @@ begin
     if not Terminated then
       FSocket.WriteBuffer(S[1],Length(S));
     If Assigned(FRequestBody) and not Terminated then
-      FSocket.CopyFrom(FRequestBody,FRequestBody.Size);
+      FSocket.CopyFrom(FRequestBody,0);
   except
     on E: EWriteError do
       raise EHTTPClientStreamWrite.Create(SErrWritingSocket);