فهرست منبع

*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
     if not Terminated then
       FSocket.WriteBuffer(S[1],Length(S));
       FSocket.WriteBuffer(S[1],Length(S));
     If Assigned(FRequestBody) and not Terminated then
     If Assigned(FRequestBody) and not Terminated then
-      FSocket.CopyFrom(FRequestBody,FRequestBody.Size);
+      FSocket.CopyFrom(FRequestBody,0);
   except
   except
     on E: EWriteError do
     on E: EWriteError do
       raise EHTTPClientStreamWrite.Create(SErrWritingSocket);
       raise EHTTPClientStreamWrite.Create(SErrWritingSocket);