Delphi在调WebService的时候加Soap头验证

时间：2014-07-22 23:16:05 收藏：0 阅读：501

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;

原文：http://www.cnblogs.com/key-ok/p/3514185.html