如何在 SOAP 接口调用的 Http header 中增加字段

在 Delphi 中添加 SOAP Header 就不用说了，请参考 Delphi 自带示例，位于 Demos/WebServices/SOAPHeaders 目录下。添加 Http header 字段示例如下。

示例 WSDL 文件描述如下：

SampleServiceSoap = class(IInvokable)

['{08323867-2307-4569-8405-4E575CC3C453}']

procedure SampleProcedure1

procedure SampleProcedure2

end

function GetSampleServiceSoap(UseWSDL: BooleanAddr: stringHTTPRIO: THTTPRIO): SampleSoap

const

defWSDL = 'http://127.0.0.1/SampleService.asmx?WSDL'

defURL = 'http://127.0.0.1/SampleService.asmx'

defSvc = 'SampleService'

defPrt = 'SampleServiceSoap'

var

RIO: THTTPRIO

begin

Result := nil

if (Addr = '') then

begin

if UseWSDL then

Addr := defWSDL

else

Addr := defURL

end

if HTTPRIO = nil then

RIO := THTTPRIO.Create(nil)

else

RIO := HTTPRIO

try

Result := (RIO as SampleServiceSoap)

if UseWSDL then

begin

RIO.WSDLLocation := Addr

RIO.Service := defSvc

RIO.Port := defPrt

end else

RIO.URL := Addr

finally

if (Result = nil) and (HTTPRIO = nil) then

RIO.Free

end

end

增加 Http header 示例如下：

unit Unit1

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, SOAPHTTPTrans, SOAPHTTPClient, ActiveX

type

TForm1 = class(TForm)

Button1: TButton

procedure Button1Click(Sender: TObject)

private

procedure BeforePost(const HTTPReqResp: THTTPReqRespData: Pointer)

public

end

var

Form1: TForm1

implementation

{$R *.dfm}

// 在发送请求之前在 http header 中添加 CustomHeader 字段

// Data 是指向 HINTERNET 类型的指针

procedure TForm1.BeforePost(const HTTPReqResp: THTTPReqResp

Data: Pointer)

const

csCustomHeader = 'CustomHeader:XXXXXXXX'

begin

HttpAddRequestHeaders(Data, PChar(csCustomHeader), Length(csCustomHeader),

HTTP_ADDREQ_FLAG_ADD)

end

procedure TForm1.Button1Click(Sender: TObject)

var

Soap: SampleServiceSoap

RIO: THTTPRIO

begin

CoInitialize(nil)

RIO := THTTPRIO.Create(nil)

try

RIO.HTTPWebNode.OnBeforePost := BeforePost

Soap := GetSampleServiceSoap(False, 'http://127.0.0.1/SampleService.asmx', RIO)

if Assigned(Soap) then

Soap.SampleProcedure1

finally

RIO.Free

CoUninitialize

end

end

end.

Asp.net页面中调用以SOAP头作验证的web services *** 作步骤：

第一步：用来作SOAP验证的类必须从SoapHeader类派生，类中Public的属性将出现在自动产生XML节点中，即：

<soap:Header>

<UserSoapHeader xmlns="http://tempuri.org/">

<UserName>string</UserName>

<Pwd>string</Pwd>

</UserSoapHeader>

</soap:Header>

public class UserSoapHeader : SoapHeader

{

private string _userName

private string _pwd

//public的属性将自动生成xml结点

public string UserName

{

get { return _userName}

set { _userName = value}

}

public string Pwd

{

get { return _pwd}

set { _pwd = value}

}

}

第二步：

在WebServices服务类中添加一个public的属性(必须public)，类型为从UserSoapHeader

/// <summary>

/// WebService 的摘要说明

/// </summary>

[WebService(Namespace = "http://tempuri.org/")]

[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]

public class WebService : System.Web.Services.WebService

{

//此属性将作为验证属性

//方法的SoapHeaderAttribute中的名称与此变量一致

public UserSoapHeader userHeader

public WebService()

{

//如果使用设计的组件，请取消注释以下行

//InitializeComponent()

}

[WebMethod]

[SoapHeader("userHeader")]//这里很重要，名称要和定义的验证属性名称一致!

public string HelloWorld()

{

//进入此方法后，userHeader将自动有值

if (userHeader != null)

{

return "this is retVal : " + userHeader.UserName

}

return " check not successed "

}

}

第三步：在客户端进行调用：

1. 添加WEB引用

2. 实例化服务类

3. 实例化SOAP头(在客户端将会自动生成作来作验证的属性；该属性类型为：UserSoapHeader；该属性的名称为：UserSoapHeaderValue) 自动生成的属性生成规则为：验证类型名称+Value

4. 调用服务提供的方法。

WebService s = new WebService()

UserSoapHeader a = new UserSoapHeader()

a.UserName = "admin"

a.Pwd = "zz"

s.UserSoapHeaderValue = a//此属性是自动生成的

Response.Write( s.HelloWorld() )// this is retVal : admin

---