Delphi通过Soaptoolkit3.0调用webservice

原作者: [db:作者] 来自: [db:来源] 收藏邀请

用Delphi 通过 Soap toolkit 3.0调用webservice

先安装MS Soap toolkit 3.0

unit CallWebServiceByComObject;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Comobj, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
vWSObj: OleVariant;
begin
vWSObj := CreateOleObject('MSSOAP.SoapClient30');
vWSObj.clientproperty('ServerHTTPRequest') := true; //可以使用IE的代理服务器，如果使用了浏览器代理注释次行会报错
vWSObj.mssoapinit(trim(Edit1.Text));//Edit1.Text:='http://10.35.8.179/test/WSAutoUpgrade.asmx?wsdl'; 传入参数
ShowMessage(vWSObj.HelloWorld());
end;

end.

{关于MsSoapInit 在MSDN的详细解释

mssoapinit

This method initializes the object implementing the ISoapClient interface using the Web Services Description Language (WSDL) file as input. All the operations in the identified service are bound to the ISoapClient object during initialization. Thus, you can call the operations defined in the service using the ISoapClient object.

HRESULT mssoapinit( 
BSTR bstrWSDLFile,
BSTR bstrServiceName,
BSTR bstrPort,
BSTR bstrWSMLFile
);

Parameters

bstrWSDLFile: [in] URL of the WSDL file that describes the services offered by the server.
bstrServiceName: [in] Optional. Default value is "". The service in the WSDL file that contains the operation specified in the SOAP request. If this parameter is missing, is null, or is an empty string, the mssoapinit method uses the first service in the specified WSDL file when initializing the ISoapClient implementation.
bstrPort: [in] Optional. Default value is "". The name of the port in the WSDL file that contains the operation specified in the SOAP request. If this parameter is missing, is null, or is an empty string, the mssoapinit method uses the first port in the specified service when initializing the ISoapClient implementation.
bstrWSMLFile: [in] Optional. Default value is "". The URL of the Web Services Meta Language (WSML) file. This is a required parameter only when using custom type mappers, as described in Handling Complex Types.

Return Values

The following table describes the common return values.

Value	Description
S_OK	Success.
E_NOTIMPL	The function contains no implementation.
E_OUTOFMEMORY	Out of memory.

Remarks

The mssoapinit method is part of the high-level API on the client side. To use this method, first you simply create an SoapClient object on the client. The SoapClient object implements the ISoapClient interface. Then, you call the mssoapinit method using the WSDL file name, service name, and port name as parameters. Now, the client can call any operations defined in the WSDL file for the requested service or port.