paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FPC HTTP Transport: +UserName, +Password.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9598 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2025-01-23 17:50:26 +00:00
parent c5b8b6077c
commit 138c5bf720
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
wst/trunk/fpc_http_protocol.pas
View File

@ -56,11 +56,15 @@ Type
private
function GetAddress: string;
function GetContentType: string;
function GetPassword: string;
function GetSoapAction : string;
function GetUserName: string;
procedure SetAddress(const AValue: string);
procedure SetContentType(const AValue: string);
procedure DoSendAndReceive(ARequest,AResponse:TStream); override;
procedure SetPassword(AValue: string);
procedure SetSoapAction(const AValue : string);
procedure SetUserName(AValue: string);
Public
constructor Create();override;
destructor Destroy();override;
@ -71,6 +75,8 @@ Type
property Address : string Read GetAddress Write SetAddress;
property SoapAction : string read GetSoapAction write SetSoapAction;
property Format : string read FFormat write FFormat;
property UserName : string read GetUserName write SetUserName;
property Password : string read GetPassword write SetPassword;
End;
{$M+}
@ -95,11 +101,21 @@ begin
Result := FConnection.GetHeader('Content-type');
end;
function THTTPTransport.GetPassword: string;
begin
Result := FConnection.Password;
end;
function THTTPTransport.GetSoapAction : string;
begin
Result := FConnection.GetHeader(s_soapAction_Header);
end;
function THTTPTransport.GetUserName: string;
begin
Result := FConnection.UserName;
end;
procedure THTTPTransport.SetAddress(const AValue: string);
begin
FAddress := AValue;
@ -148,11 +164,21 @@ begin
raise ETransportExecption.CreateFmt(SERR_FailedTransportRequest,[sTRANSPORT_NAME,FAddress]);
end;
procedure THTTPTransport.SetPassword(AValue: string);
begin
FConnection.Password:=AValue;
end;
procedure THTTPTransport.SetSoapAction(const AValue : string);
begin
FConnection.AddHeader(s_soapAction_Header,AValue);
end;
procedure THTTPTransport.SetUserName(AValue: string);
begin
FConnection.UserName:=AValue;
end;
function THTTPTransport.GetCookieManager() : ICookieManager;
begin
if (FCookieManager=nil) then