−

−

−

−

−

−

−

−

−

−

−

−

−

"

I’m testing Delphi XE3 Soap web services.
When I create a complex type based on Tcollection, Delphi does not publish the WSDL correctly.

This is my type:

TIpadVersion = class(TCollectionItem)
private
FxDef: AnsiString;
FimagenNombre: AnsiString;
public
constructor Create(Collection: TCollection);override;
property xDef: AnsiString read FxDef write FxDef;
property imagenNombre: AnsiString read FimagenNombre write FimagenNombre;
end;

TIPadVersiones = class(TCollection)
protected
function getversion(i:integer):TIpadVersion;Virtual;
public
constructor create;overload;
function Add: TIpadVersion;overload;
property Items[Index: Integer]: TIpadVersion read getversion; default;
end;

TIpadArticulo = class(TCollectionItem)
private
Fid: AnsiString;
FVersiones :TIPadVersiones;
published
Constructor Create(Collection: TCollection);override;
Destructor Destroy;Override;
Procedure carga(art_id:String);
property versiones: TIPadVersiones read FVersiones write FVersiones;
end;

TListaArticulos = Class(TCollection)
protected
function getArticulo(i:integer):TIpadArticulo;Virtual;
public
constructor create;
function Add(Art_id:String): TIpadArticulo;overload;
property Items[Index: Integer]: TIpadArticulo read getArticulo; default;
end;

TUpdIpadArticulos = class(TRemotable)
private
FArticulosAdd : TListaArticulos;
FArticulosDel : TListaArticulos;
published
Constructor Create(Cat_id,Fecha:String);
Destructor Destroy;
property AddArticulos: TListaArticulos read FArticulosAdd write FArticulosAdd;
property DelArticulos: TListaArticulos read FArticulosDel write FArticulosDel;
end;

IRSWS = interface(IInvokable)
['{F18D9B9D-DC4C-415E-9906-7A64B18542AC}']

{ Methods of Invokable interface must not use the default }
{ calling convention; stdcall is recommended }
Function IpadSincronizaProducto(Empresa, Login, Password, id, fecha:String):TUpdIpadArticulos; stdcall;
end;

The WDSL published: You can see below that
xml structure
are not finished.

−

−

−

−

−

−

−

− …

Thx for your time.
Pau.