Ver Fonte

TFPHTTPConnection: clear FBuffer when read from it in ReadRequestContent

Ondrej Pokorny há 4 anos atrás
pai
commit
d502a38f20
1 ficheiros alterados com 1 adições e 0 exclusões
  1. 1 0
      packages/fcl-web/src/base/fphttpserver.pp

+ 1 - 0
packages/fcl-web/src/base/fphttpserver.pp

@@ -478,6 +478,7 @@ begin
     if (P>0) then
     if (P>0) then
       begin
       begin
       Move(FBuffer[1],S[1],P);
       Move(FBuffer[1],S[1],P);
+      FBuffer:='';
       L:=L-P;
       L:=L-P;
       end;
       end;
     P:=P+1;
     P:=P+1;