X
xao_hx
Unregistered / Unconfirmed
GUEST, unregistred user!
我在做一个数据调用,其通过.net开发的webservice向外提供接口。
我用delphi6.0+msst2.0已经成功调用其提供的登录接口,现在要访问其数据下载接口时,其参数为一个结构体(包含开始时间和结束时间),返回值也是一个结构体(包含3个表),我在delphi中尝试定义了一个record与其参数结构体结构一致,但编译的时候就是过不去,不知该怎么办了,请帮忙!
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
type
TConditionForDownLoad=record
startDate:String[8];
endDate:String[8];
end;
implementation
{$R *.dfm}
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
vwsobj : Variant;
ConditionForDownLoad : TConditionForDownLoad;
begin
vwsobj := CreateOleObject('MSSOAP.SoapClient');
vwsobj.mssoapinit('http://10.32.19.248/PEWebService/LoginService.asmx?WSDL');
edit1.Text:= vwsobj.login('320600','1111');
vwsobj.mssoapinit('http://10.32.19.248/PEWebService/Residence.asmx?WSDL');
ConditionForDownLoad.startDate:='20080101';
ConditionForDownLoad.endDate:='20080201';
Memo1.Text:= vwsobj.downLoadInfo(ConditionForDownLoad);
vwsobj := unassigned;
end;
我用delphi6.0+msst2.0已经成功调用其提供的登录接口,现在要访问其数据下载接口时,其参数为一个结构体(包含开始时间和结束时间),返回值也是一个结构体(包含3个表),我在delphi中尝试定义了一个record与其参数结构体结构一致,但编译的时候就是过不去,不知该怎么办了,请帮忙!
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
type
TConditionForDownLoad=record
startDate:String[8];
endDate:String[8];
end;
implementation
{$R *.dfm}
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
vwsobj : Variant;
ConditionForDownLoad : TConditionForDownLoad;
begin
vwsobj := CreateOleObject('MSSOAP.SoapClient');
vwsobj.mssoapinit('http://10.32.19.248/PEWebService/LoginService.asmx?WSDL');
edit1.Text:= vwsobj.login('320600','1111');
vwsobj.mssoapinit('http://10.32.19.248/PEWebService/Residence.asmx?WSDL');
ConditionForDownLoad.startDate:='20080101';
ConditionForDownLoad.endDate:='20080201';
Memo1.Text:= vwsobj.downLoadInfo(ConditionForDownLoad);
vwsobj := unassigned;
end;