大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
posts - 236, comments - 8, trackbacks - 0, articles - 0
  新随笔 :: 联系 :: 订阅 订阅 :: 管理

公告

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

Posted on 2014-01-10 18:11 大悟还俗 阅读(...) 评论(...) 编辑 收藏

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;