Como leer un TRemotable que proviene de un webservice

[[egostar]]

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.

[[egostar]]

Confirmado, utilizando Turbo Delphi (Delphi 2006) funciona igual de bien.



Mismo código, utilizando el WSDL Importer de D2006.

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
var
  Consultas: IwsConsulta;
  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;

Si tu webservice es accesible por internet y si puedes envíamelo por mensaje privado y lo checamos.

Saludos.

[apicito]

Acabo de enviarte un correo electrónico a través de tu cuenta para que pruebes haber si a ti te funciona.
Yo me he bajado el trial de Delphi XE para probar, por si era un problema de versión, pero tampoco conseguí hacer lo funcionar.
Gracias por el tiempo que le estás dedicando a mi problema.

[[egostar]]

Empezado por apicito

Acabo de enviarte un correo electrónico a través de tu cuenta para que pruebes haber si a ti te funciona.
Yo me he bajado el trial de Delphi XE para probar, por si era un problema de versión, pero tampoco conseguí hacer lo funcionar.
Gracias por el tiempo que le estás dedicando a mi problema.

Hola

Ya he realizado las pruebas y si me regresó 3 registros. Creo que el 'secreto' está en ejecutar la función resetFechaRegistrosEntrada antes de la consulta ya que sin eso regresa una lista vacia. De cualquier forma te muestro el código que usé.

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
var
  Consultas: ConsolidacionWS;
  Lista: getListaRegistrosResponse;
  i: Integer;
begin
  Consultas := GetConsolidacionWS(true,'',nil);
  memo1.Lines.Add(Consultas.resetFechaRegistrosEntrada);
  Lista := Consultas.getListaRegistros('004');
  for i := 0 to High(Lista) do
  begin
    //:::::::
    memo1.Lines.Add(lista[i].nombre);
    //:::::::
  end;
end;

Y si, con Turbo Delphi no se recupera correctamente el WSDL ya que el protocolo SOAP que se utiliza en esa versión no es compatible con la del webservice.

Saludos

[apicito]

Entre tu código y el que yo estaba utilizando existe esta diferencia:
Yo definia Lista como Array_Of_registroBean

Código Delphi [-]
var Lista : Array_Of_registroBean

y tu como:

Código Delphi [-]
var Lista: getListaRegistrosResponse;

A mi no me compila con tu opción ya que no reconoce ese tipo. Como defines este tipo en la unit que produce el WsdlImporter?

[[egostar]]

En el WSDL viene de esta forma

Código Delphi [-]

registroBean         = class;                 { "http://dominio/"[GblCplx] }

getListaRegistrosResponse = array of registroBean;   { "http://dominio/"[Lit][GblCplx] }

  registroBean = class(TRemotable)
  private
    Fasunto: string;
    /........
  published
    property asunto:             string    Index (IS_OPTN or IS_UNQL) read Fasunto write Setasunto stored asunto_Specified;
    /........
  end;

Saludos

[apicito]

A mi me genera esto:

Código Delphi [-]
  
registroBean         = class;                 { "http://services.xxxxx/"[GblCplx] }
return                 = class;                 { "http://services.xxxxx/"[Alias] }

  registroBean = class(TRemotable)
  private
    Fasunto: string;
    Fasunto_Specified: boolean;
    FcorreoElectronico: string;
    FcorreoElectronico_Specified: boolean;

y

Código Delphi [-]
Array_Of_registroBean = array of registroBean;

y

Código Delphi [-]
  ConsolidacionWS = interface(IInvokable)
  ['{8796BA36-EF66-FC3D-8199-9C6A7C27E916}']
    function  getEstado(const entidad: string): string; stdcall;
    function  getListaRegistros(const entidad: string): Array_Of_registroBean; stdcall;
    function  resetFechaRegistrosEntrada: string; stdcall;
  end;

function GetConsolidacionWS(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): ConsolidacionWS;

Te pego el código completo en un privado.