在delphi7里如何调用webservice服务，在线等待..急

2011-03-31 11:04:32 447 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi调用WebService Web Services是由企业发布的完成其特定商务需求的在线应用服务,其他公司或应用软件能够通过Internet来访问并使用这项在线服务。在Delphi中调用Webservice服务比较简单,具体过程如下.1.利用Delphi提供的WebServices Importer功能来引入服务器端的WSDL。打开Delphi7，选择file-new-other，点击WebService选项卡。选中WSDL Importer点击OK，出现WSDL Importer向导。输入WSDL地址，测试地址为http://ww 阅读详情

我用WSDL生成了一个单元然后uses到from1里了，但我调用里面的GetServerTime和UpBroke函数的时候总是出错，麻烦各位大哥帮小弟看看，小弟万分感谢!

这是用WSDL生成的SOAP但源代码

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://127.0.0.1:9000/SOAP?service=nnmzd_Service
// Encoding : UTF-8
// Version : 1.0
// (2011-3-31 10:55:22 - 1.33.2.5)
// ************************************************************************ //

unit SOAP;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

// ************************************************************************ //
// The following types, referred to in the WSDL document are not being represented
// in this file. They are either aliases[@] of other types represented or were referred
// to but never[!] declared in the document. The types from the latter category
// typically map to predefined/known XML or Borland types; however, they could also
// indicate incorrect WSDL documents that failed to declare or import a schema type.
// ************************************************************************ //
// !:int - "http://www.w3.org/2001/XMLSchema"
// !:dateTime - "http://www.w3.org/2001/XMLSchema"
// !:base64Binary - "http://www.w3.org/2001/XMLSchema"

// ************************************************************************ //
// Namespace : http://tempuri.org/
// soapAction: urn:nnmzd_Library-nnmzd_Service#%operationName%
// transport : http://schemas.xmlsoap.org/soap/http
// binding : nnmzd_ServiceBinding
// service : nnmzd_Service
// port : nnmzd_ServicePort
// URL : http://127.0.0.1:9000/SOAP?service=nnmzd_Service
// ************************************************************************ //
nnmzd_Service = interface(IInvokable)
['{984A1501-F6A3-D06A-AAE3-F01206265B3C}']
function Sum(const A: Integer; const B: Integer): Integer; stdcall;
function GetServerTime: TXSDateTime; stdcall;
function UpBroke(const Data: TByteDynArray): Integer; stdcall;
end;

function Getnnmzd_Service(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): nnmzd_Service;

implementation

function Getnnmzd_Service(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): nnmzd_Service;
const
defWSDL = 'http://127.0.0.1:9000/SOAP?service=nnmzd_Service';
defURL = 'http://127.0.0.1:9000/SOAP?service=nnmzd_Service';
defSvc = 'nnmzd_Service';
defPrt = 'nnmzd_ServicePort';
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 nnmzd_Service);
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;

initialization
InvRegistry.RegisterInterface(TypeInfo(nnmzd_Service), 'http://tempuri.org/', 'UTF-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(nnmzd_Service), 'urn:nnmzd_Library-nnmzd_Service#%operationName%');

end.

这是from1代码

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

uses SOAP;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
server1:nnmzd_Service;
aa:string;
begin
aa:=datetostr(server1.GetServerTime); //在这里我想调用 function GetServerTime: TXSDateTime; stdcall;这个函数

//在这里我想掉用function UpBroke(const Data: TByteDynArray): Integer; stdcall; 这个函数
end;

end.

麻烦大哥们帮小弟看看，小弟跪谢了

...全文