可以调用对方的LOGON方法,之后对方在soapheader里加了GUID,返回格式如下
- <soap:Header>
- <SecuritySoapHeader xmlns="http://main.com/">
<UniqueID>12837c15-881a-46d6-9cf3-adb1ab87c44c</UniqueID>
</SecuritySoapHeader>
</soap:Header>
- <soap:Body>读取段的代码如下
首先声明了一个soapheader类
type
SecuritySoapHeader=Class(TSOAPHeader)
private
FUniqueID:WideString;
published
property UniqueID :WideString read FUniqueID Write FUniqueID;
end;
procedure GetSoapHearder;//获取soapheader
var
aIntf1: WSEmpSecuritySoap;//webservice服务
Headers: ISOAPHeaders;
H: SecuritySoapHeader;
begin
aIntf1 := GetWSEmpSecuritySoap(false,'',HTTPRIO1);
aIntf1.Logon('a',b');
Headers := (aIntf1 as ISOAPHeaders);
Headers.Get(SecuritySoapHeader, TSoapHeader(H)); //先获取SoapHeader
--跟踪发现 每次H=nil
ShowMessage(H.FUniqueID);
end;请问是否写法不对,导致不能正确获取到soapheader的信息?在线等回应.
- <soap:Header>
- <SecuritySoapHeader xmlns="http://main.com/">
<UniqueID>12837c15-881a-46d6-9cf3-adb1ab87c44c</UniqueID>
</SecuritySoapHeader>
</soap:Header>
- <soap:Body>读取段的代码如下
首先声明了一个soapheader类
type
SecuritySoapHeader=Class(TSOAPHeader)
private
FUniqueID:WideString;
published
property UniqueID :WideString read FUniqueID Write FUniqueID;
end;
procedure GetSoapHearder;//获取soapheader
var
aIntf1: WSEmpSecuritySoap;//webservice服务
Headers: ISOAPHeaders;
H: SecuritySoapHeader;
begin
aIntf1 := GetWSEmpSecuritySoap(false,'',HTTPRIO1);
aIntf1.Logon('a',b');
Headers := (aIntf1 as ISOAPHeaders);
Headers.Get(SecuritySoapHeader, TSoapHeader(H)); //先获取SoapHeader
--跟踪发现 每次H=nil
ShowMessage(H.FUniqueID);
end;请问是否写法不对,导致不能正确获取到soapheader的信息?在线等回应.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货