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

--- Merging r37854 into '.':

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

# revisions: 37854

git-svn-id: branches/fixes_3_0@37943 -
This commit is contained in:
marco 2018-01-10 06:44:14 +00:00
parent 4d7695bfaf
commit 297bf2fbfa
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

@ -55,6 +55,7 @@ Type
FHTTPClient : TFPCustomHTTPClient; FHTTPClient : TFPCustomHTTPClient;
Protected Protected
Function GetProxyHeaders : String; virtual; Function GetProxyHeaders : String; virtual;
Function GetOwner: TPersistent; override;
Property HTTPClient : TFPCustomHTTPClient Read FHTTPClient; Property HTTPClient : TFPCustomHTTPClient Read FHTTPClient;
Public Public
Procedure Assign(Source: TPersistent); override; Procedure Assign(Source: TPersistent); override;
@ -454,7 +455,12 @@ function TProxyData.GetProxyHeaders: String;
begin begin
Result:=''; Result:='';
if (UserName<>'') then if (UserName<>'') then
Result:='Proxy-Authorization: Basic ' + EncodeStringBase64(UserName+':'+UserName); Result:='Proxy-Authorization: Basic ' + EncodeStringBase64(UserName+':'+Password);
end;
function TProxyData.GetOwner: TPersistent;
begin
Result:=FHTTPClient;
end; end;
procedure TProxyData.Assign(Source: TPersistent); procedure TProxyData.Assign(Source: TPersistent);