diff --git a/packages/fcl-web/src/base/fphttpclient.pp b/packages/fcl-web/src/base/fphttpclient.pp index 22e4ed7269..a7bf77e59b 100644 --- a/packages/fcl-web/src/base/fphttpclient.pp +++ b/packages/fcl-web/src/base/fphttpclient.pp @@ -55,6 +55,7 @@ Type FHTTPClient : TFPCustomHTTPClient; Protected Function GetProxyHeaders : String; virtual; + Function GetOwner: TPersistent; override; Property HTTPClient : TFPCustomHTTPClient Read FHTTPClient; Public Procedure Assign(Source: TPersistent); override; @@ -454,7 +455,12 @@ function TProxyData.GetProxyHeaders: String; begin Result:=''; 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; procedure TProxyData.Assign(Source: TPersistent);