我在D7中通过向导生成了单元文件 其中的声明为:
getCustInfoResponse = class(TRemotable)
private
FgetCustInfoReturn: CustomerInformation;
public
constructor Create; override;
destructor Destroy; override;
published
property getCustInfoReturn: CustomerInformation read FgetCustInfoReturn write FgetCustInfoReturn;
end;CustomerInformation = class ()
private
address:WideString;
public
.....
end;getCustInfo = class(TRemotable)
private
FmobileNumber: WideString;
FopNumber: WideString;
public
constructor Create; override;
published
property mobileNumber: WideString read FmobileNumber write FmobileNumber;
property opNumber: WideString read FopNumber write FopNumber;
end;BossService = interface(IInvokable)
['{349F9CFF-3301-9902-EFB7-E4EAB8E4C04B}']
function getArrearage(const parameters: getArrearage): getArrearageResponse; stdcall;
end;function GetBossService(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): BossService;但是我在主程序部分这样写:
begin HTTPRIO.WSDLLocation:='http://192.168.100.28:9080/BOSSWS/services/BossService/wsdl/BossService.wsdl';
//temp:=GetBossService(true,'',HTTPRIO);
temp:=HTTPRIO as BossService;
Para1:=getCustInfo.Create; Para1.mobileNumber:='13702238903';
Para1.opNumber:='1860';
try
showmessage(temp.getCustInfo(Para1).getCustInfoReturn.address);
//程序执行到此处出错:'Invalid property element:1'
except
on e:Exception do
Raise Exception.Create(e.Message);
end;
FreeAndNil(Para1);
temp:=nil;
end;
帮帮忙有人能告诉我这是什么问题吗?
getCustInfoResponse = class(TRemotable)
private
FgetCustInfoReturn: CustomerInformation;
public
constructor Create; override;
destructor Destroy; override;
published
property getCustInfoReturn: CustomerInformation read FgetCustInfoReturn write FgetCustInfoReturn;
end;CustomerInformation = class ()
private
address:WideString;
public
.....
end;getCustInfo = class(TRemotable)
private
FmobileNumber: WideString;
FopNumber: WideString;
public
constructor Create; override;
published
property mobileNumber: WideString read FmobileNumber write FmobileNumber;
property opNumber: WideString read FopNumber write FopNumber;
end;BossService = interface(IInvokable)
['{349F9CFF-3301-9902-EFB7-E4EAB8E4C04B}']
function getArrearage(const parameters: getArrearage): getArrearageResponse; stdcall;
end;function GetBossService(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): BossService;但是我在主程序部分这样写:
begin HTTPRIO.WSDLLocation:='http://192.168.100.28:9080/BOSSWS/services/BossService/wsdl/BossService.wsdl';
//temp:=GetBossService(true,'',HTTPRIO);
temp:=HTTPRIO as BossService;
Para1:=getCustInfo.Create; Para1.mobileNumber:='13702238903';
Para1.opNumber:='1860';
try
showmessage(temp.getCustInfo(Para1).getCustInfoReturn.address);
//程序执行到此处出错:'Invalid property element:1'
except
on e:Exception do
Raise Exception.Create(e.Message);
end;
FreeAndNil(Para1);
temp:=nil;
end;
帮帮忙有人能告诉我这是什么问题吗?
解决方案 »
- OleContainer操作Word,关闭Word后不知道如何判别Word已被关闭?
- 取MAC的函数,是从网上找的,不懂,运行是报错,请叫了!
- 如何让clientdataset删除记录前,自定义一个提醒的 警告 语句
- FileDateToDateTime(Handle)没法读取正在运动的文件?
- 高手请看,为什么一个简单的delphi程序就能占用近20M内存?????
- 开发控件属性问题,急!!!!!!!!
- 快速可靠的分布式计算开发平台:欢迎大家访问我的网站http://www.ezService.org/
- ★★ 上海的工作机会,快来看看啊! ★★
- 如何消除文本框末尾空行
- 怎么用DELHPI找工作,各位请多多指教
- 有什么函数能把char类型的数据转化成string或integer类型的数据!
- 获取注册表某一键值的权限
客户端接收到的数据类型是继承了一次的