如何在 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: Boolean; Addr: string; HTTPRIO: 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: THTTPReqResp; Data: 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.

  • 1
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

BeyondStudio

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值