Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-08-2011
Avatar de apicito
apicito apicito is offline
Miembro
 
Registrado: may 2003
Ubicación: Ourense
Posts: 341
Poder: 22
apicito Va por buen camino
No soy capaz de entender como es posible que mi proyecto a mi no me funcione y a ti si, utilizando ambos Delphi XE. Tendrás en tu delphi algun componente que falta en mi instalación?
Responder Con Cita
  #2  
Antiguo 02-09-2011
Avatar de apicito
apicito apicito is offline
Miembro
 
Registrado: may 2003
Ubicación: Ourense
Posts: 341
Poder: 22
apicito Va por buen camino
[SOLUCIONADO] Como leer un TRemotable que proviene de un webservice Responder a Tema

Después de horas y horas intentando hacer cosas distintas, pero casi siempre haciendo lo mismo, he conseguido solucionar el problema de la lectura de TRemotable.
[SOLUCION] Descargarme la última versión de Delphi XE2 trial y funcionó a la primera. Osea que es un defecto de las versiones anteriores de delphi.
Gracias por la colaboración. Especialmente a Egostar por el tiempo que le dedicó a mi problema.

Codigo:
Unit generada por wsImporter:
Código Delphi [-]
  registroBean         = class;                 { "http://xxxxxxx.es/"[GblCplx] }

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

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

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

function GetConsolidacionWS(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): ConsolidacionWS;
La unit que usa lo anterior:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
    Consultas: ConsolidacionWS;
    Lista: getListaRegistrosResponse;
    Entidad: string;
begin
  Entidad := '004';
  Consultas := GetConsolidacionWS(true,'',nil);
  memo1.Lines.Add('======================================');
  Lista := Consultas.getListaRegistros(Entidad);
  for i := 0 to High(Lista) do begin
    //:::::::
    memo1.Lines.Add(lista[i].nombre);
    //:::::::
  end;
  memo1.Lines.Add('---------------------------------------');
end;

Última edición por apicito fecha: 02-09-2011 a las 19:44:34.
Responder Con Cita
  #3  
Antiguo 02-09-2011
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.561
Poder: 25
egostar Va camino a la fama
Hola

Cita:
Empezado por apicito Ver Mensaje
No soy capaz de entender como es posible que mi proyecto a mi no me funcione y a ti si, utilizando ambos Delphi XE. Tendrás en tu delphi algun componente que falta en mi instalación?
Caray, no había visto este mensaje

Me alegra que al final hayas resuelto el problema, en realidad no entiendo porque no te funcionó con XE, no tengo ningún componente adicional (aún me niego a utilizar componentes extras), incluso, la versión que tengo es la profesional, es decir, lo más básico.

En fin, lo dicho, me alegra que ya esté funcionando y no hay nada que agradecer, también a mi me sirvió para aprender a crear y manipular arreglos TRemotable, son interesantes

Saludos
Responder Con Cita
  #4  
Antiguo 02-09-2011
Avatar de apicito
apicito apicito is offline
Miembro
 
Registrado: may 2003
Ubicación: Ourense
Posts: 341
Poder: 22
apicito Va por buen camino
Seguramente mi versión era distinta a la tuya.
Repito, gracias.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Webservice regresa PDF como string en base64 beemot Internet 3 05-07-2010 12:11:58
Array en class(TRemotable) Miguel Galarza OOP 4 06-04-2010 22:44:05
Como leer un txt? pablopessoa Varios 4 16-11-2009 15:57:21
como leer la memoria cyberagl Varios 0 14-03-2007 07:22:56
De dónde proviene el nombre de Google. marcoszorrilla Noticias 12 24-01-2006 22:51:24


La franja horaria es GMT +2. Ahora son las 16:57:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi