1,593
社区成员
发帖
与我相关
我的任务
分享
var
aIntf: HisInterfaceSoap;
Headers: ISOAPHeaders;
s:string;
strSend: TStringStream;
H: CredentialSoapHeader;
Begin
aIntf := (HTTPRIO1 as HisInterfaceSoap);
H := CredentialSoapHeader.Create;
H.UserID := '123456';
H.PassWord := '12345';
Try
Headers := (aIntf as ISOAPHeaders);
Headers.Send(H); //发送Soap Header
if SCSB then //调用服务
begin
//
end;
finally
aIntf := nil;
H.Free;