delphi调用soap的问题(100分)

Z

zhangzhihui528

Unregistered / Unconfirmed
GUEST, unregistred user!
大家好,我在做一个接口的时候,厂家给我一个wsdl文件,我根据内容,通过
wsdl importer 导入,生成了我想要的的调用接口和事件,但是对方要求要有个header发过去,我有点奇怪,既然是事件,和消息怎么能同步进行呢?所以请各位帮我一下。我下的代码的意思如下,但是对方提示找不到header。
var s: WSTotalCountBean;
svc: ICSSWebService;
h: TAuthHeader;
begin
svc := GetService;
H := TAuthHeader.Create;
try

{构造包头}

H.CSSToken := getheader;
memo1.Text := H.CSSToken;
{发送 hearder}
(svc as ISOAPHeaders).Send(H);
{ 调用 getCDRTotalCount 方法 }

s := svc.getCDRTotalCount('2006-05', '');
showmessage(inttostr(s.resultCode)+' '+s.errMsg + ' ' + inttostr(s.totalCount));
{找不到header}
finally
H.Free ;
end;
 
Top Bottom