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

* Fix bug ID #32551, proxy authorization header used username instead of password field for password

Browse Source 
git-svn-id: trunk@37854 -
This commit is contained in:
michael 2017-12-29 10:39:26 +00:00
parent 4ed6280bb6
commit 75f7698f6a
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;
@ -459,7 +460,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);