我在做一个数据调用,其通过.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;
解决方案 »
- 请问File not found"oxPerst.dcu" 如何解决?
- word中合并表格中单元格小问题,高手请进……在线急等之……
- 用delphi打开pdf文档时,怎样才能屏蔽“另存副本”按钮?
- 两个问题(解决立即放分)
- devexpress 的过滤器怎么用?在运行时设置?
- 发送这个数据到COM口,其实是发送了什么过去?
- 强烈要求与新加坡断交,外交绥靖路线可以休矣
- Access2000中的jpg文件格式,怎么读入到DBImage中呢?
- 有没有pascal语言的资料,是doc格式的,搞定了马上给分,谢谢!
- 急急急!求一程序?请大侠帮个忙,在线等
- sendmessage和postmessage的一些用法
- 为什么speedbutton的enable为false时,看不到上面变灰的图片呢?帮帮忙!
这个帖子我好像回过的啊?