Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/wcf/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/delphi/9.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Wcf 为什么wsdl导入器会生成奇怪的对象?_Wcf_Delphi - Fatal编程技术网

Wcf 为什么wsdl导入器会生成奇怪的对象?

Wcf 为什么wsdl导入器会生成奇怪的对象?,wcf,delphi,Wcf,Delphi,我在.NET中创建了一个web服务,它在Silverlight和WPF上运行良好。我想尝试一下Delphi XE4。我的服务是用SOAP公开的,所以它非常适合具有自动WSDL导入器的Rad Studio。我的问题是,我的每种ws都用2个类表示 第一个是复杂类型,它继承自TRemotable: // ************************************************************************ // // XML : MessageRe

我在.NET中创建了一个web服务,它在Silverlight和WPF上运行良好。我想尝试一下Delphi XE4。我的服务是用SOAP公开的,所以它非常适合具有自动WSDL导入器的Rad Studio。我的问题是,我的每种ws都用2个类表示

第一个是复杂类型,它继承自TRemotable:

// ************************************************************************ //
// XML       : MessageRecuperationSalaries, global, <complexType>
// Espace de nommage : http://XXX/XXX/XXX
// ************************************************************************ //
MessageRecuperationSalaries2 = class(TRemotable)
private
  FEtabCode: string;
  FEtabCode_Specified: boolean;
  FSalaries: ArrayOfSalarie;
  FSalaries_Specified: boolean;
  procedure SetEtabCode(Index: Integer; const Astring: string);
  function  EtabCode_Specified(Index: Integer): boolean;
  procedure SetSalaries(Index: Integer; const AArrayOfSalarie: ArrayOfSalarie);
  function  Salaries_Specified(Index: Integer): boolean;
public
  destructor Destroy; override;
published
  property EtabCode: string          Index (IS_OPTN or IS_NLBL) read FEtabCode write SetEtabCode stored EtabCode_Specified;
  property Salaries: ArrayOfSalarie  Index (IS_OPTN or IS_NLBL) read FSalaries write SetSalaries stored Salaries_Specified;
end;
/***************************************************************************************************//
//XML:MessageRecreaculation,全局,
//名称空间:http://XXX/XXX/XXX
// ************************************************************************ //
MessageRecreationSalaries2=类别(可旋转)
私有的
FEtabCode:字符串;
指定的FEtabCode_:布尔值;
FSalaries:ArrayOfSalarie;
FSalaries_指定:布尔值;
过程setABC代码(索引:整数;常量:字符串);
指定的函数EtabCode_(索引:整数):布尔值;
过程集合数组(索引:整数;常量AArrayOfSalarie:ArrayOfSalarie);
指定的函数(索引:整数):布尔值;
公众的
毁灭者毁灭;推翻
出版
属性EtabCode:指定字符串索引(IS_OPTN或IS_NLBL)读取FEtabCode写入setabcode存储的EtabCode;
属性薪资:指定的ArrayOfSalarie索引(IS_OPTN或IS_NLBL)读取FSalaries写入SETALARIES存储薪资;
结束;
第二个类继承自第一个类,不包含任何属性:

// ************************************************************************ //
// XML       : MessageRecuperationSalaries, global, <element>
// Espace de nommage : http://XXX/XXX/XXX
// ************************************************************************ //
MessageRecuperationSalaries = class(MessageRecuperationSalaries2)
private
published
end;
/***************************************************************************************************//
//XML:MessageRecreaculation,全局,
//名称空间:http://XXX/XXX/XXX
// ************************************************************************ //
MessageRecreationPalaries=类别(MessageRecreationPalaries2)
私有的
出版
结束;

是否有任何选项可以直接为从TRemotable继承的每个类型生成一个类?还是我的web服务有问题?

为什么会有问题?嗯。。。它起作用了。但是当我看到同一个对象有两个不同的类时,在我的自动完成中它看起来相当混乱。当我想使用结尾没有数字的类时,我必须将其转换为数字终止的类