Delphi 调用带包头的 WebService

代码如下:

unit Main;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, InvokeRegistry, Rio, SOAPHTTPClient;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    HTTPRIO: THTTPRIO;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
uses MyWebService;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  MyWebService: MyWebServiceSoap;
begin
  MyWebService := GetMyWebServiceSoap;
  Edit4.Text := MyWebService.HelloWorld( 'hi');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  MyWebService: MyWebServiceSoap;
  myHeader: Header;
  Headers: ISOAPHeaders;
begin
  // 填写包头
  myHeader := Header.Create;
  myHeader.UserID := Edit1.Text;
  myHeader.UserPwd := Edit2.Text;
  myHeader.LoginTime := FormatDateTime('mmddhhnnss', Now);
  Edit3.Text := myHeader.LoginTime;
  // 填写包体
  HTTPRIO.URL := 'http://localhost:1768/SerialNumber/Service.asmx?WSDL';
  MyWebService := (HttpRIO as MyWebServiceSoap);
  Headers := (MyWebService as ISOAPHeaders);
  Headers.Send(myHeader);
  Edit4.Text := MyWebService.GetUserName;
  myHeader.Free;
end;
end.