ArrayOfAnyType
 

Hola:

Hice la conexión a un webservice (Visual C) , pero uno de los métodos requiere de arreglos de tipo ArrayOfAnytype, el problema es que esta clase no tiene un método add, alguien sabe como se puede manejar esta clase?

Código Delphi [-]
  
  ArrayOfAnyType = class(TRemotable)
  private
    FanyType: anyType;
  public
    FList: TList;
    constructor Create; override;
    function   GetVariantArray(Index: Integer): Variant;
    function   GetVariantArrayLength: Integer;
    property   VariantArray[Index: Integer]: Variant read GetVariantArray; default;
    property   Len: Integer read GetVariantArrayLength;
    procedure Add(Valor : TRemotable);
  published
    property anyType: anyType read FanyType write FanyType;
  end;

-------------------------------------------------------------------------

Código Delphi [-]
procedure ArrayOfAnyType.Add(Valor: TRemotable);
begin
  FList.Add(Valor);
end;

constructor ArrayOfAnyType.Create;
begin
  inherited Create;
  FSerializationOptions := [xoInlineArrays];
  FList := TList.Create();
end;

function ArrayOfAnyType.GetVariantArray(Index: Integer): Variant;
begin
  Result := FanyType[Index];
end;

function ArrayOfAnyType.GetVariantArrayLength: Integer;
begin
  if Assigned(FanyType) then
    Result := Length(FanyType)
  else
  Result := 0;
end;

Faltaba
 

Genere el método add y quedo de la siguiente manera:

Código Delphi [-]
procedure ArrayOfAnyType.Add(item: variant);
var
  i : integer;
begin
  i := Len;
  SetLength(FanyType,i + 1);
  FanyType[i] := item;
end;

Pero, ahora como hago un casting de un variant a una clase de tipo TRemotable?

Hola naverus.

Por favor encierra tu código entre las etiquetas [delphi] [/delphi] para que sea más legible. ( imágen explicativa ).

Un saludo y muchas gracias.

Cast
 

mmm, no se que pase, agrege el metodo add al cual le paso como parametro la clase TRemote, lo agrega, pero el webservice no lo lee !!!