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;

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。