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;