Como leer un TRemotable que proviene de un webservice

[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.

[apicito]

Te ponmgo en un privado el enlace de descarga de mi unit.

[apicito]

He sustituido mi ConsolidacionWS1.pas por el que me has enviado y sigue sin funcionar. Hace bien el reseteo de la descarga dando el mensaje: "Base de datos actualizada correctamente" Pero despues no descarga los tres registros.
Ya no sé que puede estar pasando.
Lo Estoy probando con el Delphi XE.

[apicito]

Me he dado de cuenta de que están modificando el WS y por esto no coinciden el que yo había importado con el que tu estás importando ahora. Ahora cuando lo importo yo ya se parece al que te sale a ti. De hecho si importas de nuevo verás que ha cambiado.
El lunes intentaré averiguar que es lo que está pasando.
Un par de preguntas:
¿Cuando le das importar lo dejas en automático o seleccionar una version determinada de soap 1.1 o 1.2?
¿En la ultima pantalla dejas marcadas las opciones por defecto o cambias alguna opción?.

[[egostar]]

No creo que hayan cambiado el wservice, así es como lo resuelve mi Turbo Delphi, lo que me indica que el problema es con el protocolo del SOAP, en mi Delphi XE dejo en Automático la importación y las opciones de la ultima pantalla en los 'default'.

He ejecutado tu proyecto y me funciona correctamente, si no puedes ejecutar ese mismo proyecto en Delphi 2010 entonces si es problema de compatibilidad.

Memo1
Base de datos actualizada correctamente
CARMEN B... G.... V...
CARMEN B... G.... V...
CARMEN B... G.... V...

La próxima semana espero publicar una alternativa para conectarse a webservice sin utilizar el WSDL importer. Ya te dejo saber cuando lo tenga listo.

Saludos