소스 검색

* Fixed bug where multiple methods were run one after the other

git-svn-id: trunk@17763 -
michael 14 년 전
부모
커밋
b8f18854ca
1개의 변경된 파일1개의 추가작업 그리고 0개의 파일을 삭제
  1. 1 0
      packages/fcl-web/src/base/fphttpclient.pp

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

@@ -570,6 +570,7 @@ Var
   ResponseOK : Boolean;
 
 begin
+  SetLength(FBuffer,0);
   FResponseStatusCode:=ReadResponseHeaders;
   if not CheckResponseCode(FResponseStatusCode,AllowedResponseCodes) then
     Raise EHTTPClient.CreateFmt(SErrUnexpectedResponse,[ResponseStatusCode]);