Ver Mensaje Individual
  #4  
Antiguo 26-08-2011
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.561
Reputación: 25
egostar Va camino a la fama
Hola

he hecho una pequeña prueba para leer un Array of TRemotable y me funciona perfectamente.

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
var
  Lista: IListaArray;
  i: Integer;
begin
  Consultas := GetIwsConsulta(true,'',nil);
  Lista := Consultas.GetArrayoftrRetorno;
  for i := 0 to High(Lista) do
  begin
    memo1.Lines.Add(inttostr(lista[i].ID) + '--->' + lista[i].Descripcion);
  end;
end;

IListaArray está declarado en el webservice así:

Código Delphi [-]

  trRetorno = class(TRemotable)
  private
    FID: Integer;
    FDescripcion: string;
  published
    property ID: Integer  read FID write FID;
    property Descripcion: string read FDescripcion write FDescripcion;
  end;

  IListaArray = array of trRetorno;

Y el resultado es éste:



A menos que tu webservice no esté regresando nada, no veo el problema.

Saludos

PD, estoy utilizando DelphiXE, pero debe funcionar igual con versiones anteriores, lo probaré con mi Turbo Delphi y te comento, además, estoy utilizando el mismo documento que te enlacé, solo le agregué el tipo IListaArray.
Responder Con Cita