paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 15:40:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r34062 into '.':

Browse Source 
U    packages/fcl-web/src/base/fphttpclient.pp
--- Recording mergeinfo for merge of r34062 into '.':
 U   .

# revisions: 34062

git-svn-id: branches/fixes_3_0@34108 -
This commit is contained in:
marco 2016-07-13 15:47:23 +00:00
parent f564fd7114
commit 0a24fb2c59
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-web/src/base/fphttpclient.pp
View File

@ -101,6 +101,7 @@ Type
Procedure SetRequestHeaders(const AValue: TStrings);
procedure SetIOTimeout(AValue: Integer);
protected
Function NoContentAllowed(ACode : Integer) : Boolean;
// True if we need to use a proxy: ProxyData Assigned and Hostname Set
Function ProxyActive : Boolean;
// Override this if you want to create a custom instance of proxy.
@ -457,6 +458,11 @@ begin
FSocket.IOTimeout:=AValue;
end;
function TFPCustomHTTPClient.NoContentAllowed(ACode: Integer): Boolean;
begin
Result:=((ACode div 100)=1) or ((ACode=204) or (ACode=304))
end;
function TFPCustomHTTPClient.ProxyActive: Boolean;
begin
Result:=Assigned(FProxy) and (FProxy.Host<>'') and (FProxy.Port>0);
@ -1034,7 +1040,7 @@ begin
L:=L-R;
until (L=0) or (R=0);
end
else if L<0 then
else if (L<0) and (Not NoContentAllowed(ResponseStatusCode)) then
begin
// No content-length, so we read till no more data available.
Repeat