Delphi在调WebService的时候加Soap头验证
procedure
ws:
WebServiceSoap;
H:
XXXHeader;
begin
ws :=
GetWebServiceSoap;
H :=
XXXHeader.Create;
try
H.Username :=
‘xxx’;
H.Password :=
MD5(‘xxx’);
(ws as
ISOAPHeaders).Send(H);
ws.someMethod;
finally
H.Free;
ws :=
nil;
end;
end;
郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。