Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Bibliotecas de código fuente > [GH Freebrary]
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-03-2013
JuanPa1 JuanPa1 is offline
Miembro
 
Registrado: may 2006
Posts: 66
Poder: 18
JuanPa1 Va por buen camino
Exclamation Leer XML desarrollado en .NET que retorna DataTable

Espero me puedan ayudar a resolver este inconveniente. Utilizando el componente HTTPRIO de Delphi7 logre consumir un WS desarrollado en .NET que retorna un DataTable. La respuesta del Web Service es un XML el cual le he asignado a un componente Memo. Al intentar leer el XML veo que no es un XML comun pues contiene un tipo de dato complexType del cual quiero leer sus elementos pero no tengo idea de como debo hacerlo.
A continuación copio el XML que quiero leer por si alguien me puede ayudar con alguna sugerencia.
Cita:
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<soap:Body>
<ConsultarDatosClienteMercadeoResponse xmlns="http://tempuri.org/SecureService/SecureService">
<ConsultarDatosClienteMercadeoResult>

<xs:schema id="SetDeDatos" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xs:element name="SetDeDatos" msdata:IsDataSet="true" msdata:MainDataTable="Datos" msdata:UseCurrentLocale="true">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="Datos">
<xs:complexType>
<xs:sequence>
<xs:element name="COD_ASEG" type="xs:decimal" minOccurs="0" />
<xs:element name="IDENTIFICACION" type="xs:string" minOccurs="0" />
<xs:element name="NRO_RUC" type="xs:string" minOccurs="0" />
<xs:element name="NOMBRE_CLIENTE" type="xs:string" minOccurs="0" />
<xs:element name="CALIFICACION" type="xs:string" minOccurs="0" />
<xs:element name="OBSERVACION" type="xs:string" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
</xs:element>


</xs:schema>
<diffgr:diffgram xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:diffgr="urn:schemas-microsoft-com:xml-diffgram-v1">
<SetDeDatos xmlns="">


<Datos diffgr:id="Datos1" msdata:rowOrder="0">
<COD_ASEG>00000</COD_ASEG>
<IDENTIFICACION>111111111</IDENTIFICACION>
<NOMBRE_CLIENTE>MENDOZA XXXX</NOMBRE_CLIENTE>
<OBSERVACION>CLIENTE</OBSERVACION>
</Datos>
<Datos diffgr:id="Datos2" msdata:rowOrder="1">
<COD_ASEG>11111</COD_ASEG>
<IDENTIFICACION>222222222</IDENTIFICACION>
<NOMBRE_CLIENTE> JOHN YYYYY</NOMBRE_CLIENTE>
<OBSERVACION>CLIENTE</OBSERVACION>
</Datos>
<Datos diffgr:id="Datos3" msdata:rowOrder="2">
<COD_ASEG>22222</COD_ASEG>
<IDENTIFICACION>333333333</IDENTIFICACION>
<NOMBRE_CLIENTE>JUAN XXXXXX</NOMBRE_CLIENTE>
<OBSERVACION>CLIENTE</OBSERVACION>
</Datos>
</SetDeDatos>
</diffgr:diffgram>
</ConsultarDatosClienteMercadeoResult>
</ConsultarDatosClienteMercadeoResponse>
</soap:Body>
</soap:Envelope>

Saludos.

Última edición por Casimiro Notevi fecha: 20-03-2013 a las 21:46:06.
Responder Con Cita
  #2  
Antiguo 20-03-2013
Avatar de juanelo
juanelo juanelo is offline
Miembro
 
Registrado: sep 2007
Posts: 1.082
Poder: 18
juanelo Va por buen camino
Exclamation Leer XML desarrollado en .NET que retorna DataTable

Que tal,
Según yo (no me hagas mucho caso), pero este valor deberia de venir como una variable de tipo TRemotable que si usaste el "importador wsdl" de Delphi, te la crea de manera automatica.
En algunas ocasiones, en lo que se conoce con "marshalling" del los parametros de envío (request) no concuerda con lo que espera el WebService del otro lado del cable, sobre todo en .NET, pero la mayoria de veces este propio "marshalling" si que funciona de vuelta (response) con los componentes de Delphi, lo cual hace que las variables de vuelta se alojen correctamente en las usadas por delphi.
Aqui lo que veo es que es una estructura (ComplexType) de la cual deberia de tener su equivalente como TRemotable, lo datos de abajo son los que me hacen dudar (y creo que esos son los que indicas que son un dataset).
¿Puedes poner la URL del WSDL o bien el propiop WSDL, asi como un ejemplo del request que solicita el webservice?
__________________
Ya tengo Firma!
Responder Con Cita
  #3  
Antiguo 20-03-2013
Avatar de juanelo
juanelo juanelo is offline
Miembro
 
Registrado: sep 2007
Posts: 1.082
Poder: 18
juanelo Va por buen camino
Analizando un poco mas el Response del WebService, casi estoy seguro que el resultado te lo aloja como una array de TRemotable, pero insisto sería de mucha utilidad que puedas mandar el WSDL al menos para poder ayudarte.
__________________
Ya tengo Firma!
Responder Con Cita
  #4  
Antiguo 20-03-2013
JuanPa1 JuanPa1 is offline
Miembro
 
Registrado: may 2006
Posts: 66
Poder: 18
JuanPa1 Va por buen camino
Efectivamente para poder obtner el XML de respuesta he utilizado el "importador WSDL" de delphi. El enlace al web service es el siguiente:

http://186.3.87.210/SLXWebServicesDe...vice.asmx?WSDL

Ejemplo de requests que le envio desde delphi.

procedure TForm1.Button1Click(Sender: TObject);
var
ServiceToCall : SecureServiceSoap;
Authentication : AuthenticationHeader;

begin

ServiceToCall:=GetSecureServiceSoap(False,'',nil);
Authentication:=AuthenticationHeader.Create;
Authentication.UserName:=Trim('Tecanser.sesa');
Authentication.Password:=Trim('Tecanser.Sesa123');
(HTTPRIO1 as ISOAPHeaders).Send(Authentication);
(HTTPRIO1 as SecureServiceSoap).ConsultarDatosClienteMercadeo(txtidentificacion.Text);

end;

///////////////////////////////////////////////////////////////////////////////////////////////////
En el evento AfterExecute del componente HTTPRIO obtengo el resultado y asigno al componente Memo.

procedure TForm1.HTTPRIO1AfterExecute(const MethodName: String;
SOAPResponse: TStream);

begin
Memo1.Lines.LoadFromStream(SOAPResponse);
end;

Saludos.
Responder Con Cita
  #5  
Antiguo 20-03-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Hola JuanPa1.

Guardando todas las reservas respecto a otras soluciones, quizá esta opción te resulte viable.

La clase y ese programa de ejemplo los descargas fácilmente de aquí (son libres).

Saludos.
Responder Con Cita
  #6  
Antiguo 20-03-2013
Avatar de juanelo
juanelo juanelo is offline
Miembro
 
Registrado: sep 2007
Posts: 1.082
Poder: 18
juanelo Va por buen camino
Analizando las classes que te crea el importador, veo que no pudo "construir" la estructura definida en el webservice, por lo visto no hace uso del schema que tiene definido el wsdl para armar la clase.
En fin, mucho me temo que vas a irte por los pies para poder "interprertar" el response. Hazle mucho caso a la respuesta de Al, por ahi van los tiros.
Yo lo que te puedo recomendar es que uses el componente XMLDocument y juegues con:
Código Delphi [-]
TXMLDocument XMLDocument.ChildNodes.FindNode("NombreNodo")
Que es lo que basicamente Al te aconseja, pero estoy seguro que con la solucion de Al se te debe de hacer mucho mas facil.
Saludos.
__________________
Ya tengo Firma!
Responder Con Cita
  #7  
Antiguo 20-03-2013
JuanPa1 JuanPa1 is offline
Miembro
 
Registrado: may 2006
Posts: 66
Poder: 18
JuanPa1 Va por buen camino
Voy a seguir la recomendación de Al Gonzáles, les estaré comentando en cuanto logre leer el XML. Gracias por las respuestas.

Saludos,
Responder Con Cita
  #8  
Antiguo 20-03-2013
JuanPa1 JuanPa1 is offline
Miembro
 
Registrado: may 2006
Posts: 66
Poder: 18
JuanPa1 Va por buen camino
Intento cargar el componente TghXMLDoc en Delphi 7 pero tengo este error, "[Fatal Error] GHFRTL.pas(2021): Internal error: C13081". No se si saben a que se debe ese error.

Saludos.
Responder Con Cita
  #9  
Antiguo 21-03-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Cita:
Empezado por JuanPa1 Ver Mensaje
Intento cargar el componente TghXMLDoc en Delphi 7 pero tengo este error, "[Fatal Error] GHFRTL.pas(2021): Internal error: C13081". No se si saben a que se debe ese error.
Delphi 7 suele presentar ese tipo de error cuando no está debidamente actualizado. Básicamente por falta del parche 7.1. Una vez que lo instales ya no deberá presentarse.
Responder Con Cita
  #10  
Antiguo 21-03-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Como alternativa a la instalación del parche, hace tiempo Neftalí encontró un remedio usando directivas de compilación. Pero como te digo, teniendo instalado el parche 7.1 de tal manera que en el "Acerca de" del IDE se vea Version 7.0 (Build 8.1), el error del compilador ya no deberá presentarse (pienso que esa es la razón por la cual no me aparece a mí ese error).
Responder Con Cita
  #11  
Antiguo 21-03-2013
JuanPa1 JuanPa1 is offline
Miembro
 
Registrado: may 2006
Posts: 66
Poder: 18
JuanPa1 Va por buen camino
Con la instalación del parche logre cargar el componente TghXMLDoc y ejecutar el ejemplo recomendado y funciona bien. Cuando cambio por mi archivo XML y cambiando segun yo por el atributo que quiero leer no me retorna nada. No se desde donde deberia empezar la lectura de mi XML o que deberia cambiar para lograr leer mi XML utilizando el componente TghXMLDoc.

<Datos diffgr:id="Datos1" msdata:rowOrder="0">
<COD_ASEG>73807</COD_ASEG>
<IDENTIFICACION>1307762201001</IDENTIFICACION>
<NOMBRE_CLIENTE>MENDOZA PEÑARRIETA SANDY MARCEL</NOMBRE_CLIENTE>
<OBSERVACION>CLIENTE</OBSERVACION>

</Datos>

Saludos.
Responder Con Cita
  #12  
Antiguo 21-03-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Buen día Juan.

Cada sistema maneja sus propias estructuras XML. Voy a elaborar un segundo ejemplo con el archivo que pusiste en el primer mensaje. Según se ve, no hay atributos qué leer, sólo texto de elementos (elementos y atributos son diferentes tipos de nodos).

Más tarde lo anexaré a este hilo.
Responder Con Cita
  #13  
Antiguo 21-03-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Ya está listo, prueba con este código.
Archivos Adjuntos
Tipo de Archivo: zip TghXMLDoc_EjemploLectura2.zip (6,5 KB, 69 visitas)
Responder Con Cita
  #14  
Antiguo 21-03-2013
JuanPa1 JuanPa1 is offline
Miembro
 
Registrado: may 2006
Posts: 66
Poder: 18
JuanPa1 Va por buen camino
Excelente amigo, lo acabo de probar y funciona perfecto. Solo quiero mencionar que en mi desesperación por encontrar la solución he pasado por probar con la herramienta XML Mapper de Delphi, igual estuve intentando con el asistente de XML Data Binding pero ninguno me ayudo a resolver, posiblemente sea por mi falta de conocimientos con respecto a estas herramientas o como tu dices cada sistema genera sus propias estructuras XML las cuales no lograba entenderlas, al final con tu ejemplo he logrado resolverlo. Muchas gracias.

Saludos.
Responder Con Cita
  #15  
Antiguo 22-03-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
De nada Juan, para eso y más hacemos Comunidad.

Voy a copiar el archivo adjunto a la carpeta del proyecto GH Freebrary, para que todo el mundo pueda acceder a ese segundo ejemplo también.
Responder Con Cita
  #16  
Antiguo 12-07-2013
JuanPa1 JuanPa1 is offline
Miembro
 
Registrado: may 2006
Posts: 66
Poder: 18
JuanPa1 Va por buen camino
Error al invocar Web Services

Reabro el tema del web service porque tengo el siguiente problema, resulta que la aplicación desarrollado en Delphi 7 funciona perfectamente en casi la mayoria de computadores, vale mencionar que funciona en Windows XP y Windows Vista tanto de 32 como de 64 bits. Sin embargo tengo el problema de que en cuatro computadores no funciona y me da "Error al conectar al Web Service Cadena clase no válida". En un principio pensaba que se trataba de algun bloqueo de seguridad pero luego de verificar todas las seguridades no logro dar con el problema.
Por favor cualquier sugerencia de lo que puede estar pasando sera de gran ayuda.
Saludos Cordiales.
Responder Con Cita
  #17  
Antiguo 12-07-2013
Avatar de juanelo
juanelo juanelo is offline
Miembro
 
Registrado: sep 2007
Posts: 1.082
Poder: 18
juanelo Va por buen camino
Y que "seguridades" checaste y descartaste que sean ?. Lo mas comun son los firewalls.
__________________
Ya tengo Firma!
Responder Con Cita
  #18  
Antiguo 12-07-2013
JuanPa1 JuanPa1 is offline
Miembro
 
Registrado: may 2006
Posts: 66
Poder: 18
JuanPa1 Va por buen camino
Precisamente he checado los firewalls, antivirus y nada que funciona. Son alrededor de 40 computadores de los cuales cuatro no logran conectarse al web service y todos estan en la misma red y todos tienen las mismas politicas de seguridad.
Responder Con Cita
  #19  
Antiguo 12-07-2013
Avatar de juanelo
juanelo juanelo is offline
Miembro
 
Registrado: sep 2007
Posts: 1.082
Poder: 18
juanelo Va por buen camino
Cita:
Empezado por JuanPa1 Ver Mensaje
Precisamente he checado los firewalls, antivirus y nada que funciona. Son alrededor de 40 computadores de los cuales cuatro no logran conectarse al web service y todos estan en la misma red y todos tienen las mismas politicas de seguridad.
Y logras ver el WSDL desde un navegador como Mozilla o IE en esas pcs ?
__________________
Ya tengo Firma!
Responder Con Cita
  #20  
Antiguo 12-07-2013
JuanPa1 JuanPa1 is offline
Miembro
 
Registrado: may 2006
Posts: 66
Poder: 18
JuanPa1 Va por buen camino
Si logro ver el WSDL desde esas pcs, tambien he desarrollado una aplicación de prueba en .net y si logra conectarse al web service, el problema es con la aplicación desarrollada en delphi 7 que no me funciona en esas cuatro pcs.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Alguien ha desarrollado en un paquete un descendiente de TSessionHTTPModule ? rolandoj Lazarus, FreePascal, Kylix, etc. 0 19-12-2012 00:34:27
Reproductor desarrollado en delphi miguel_pxyz Noticias 9 14-04-2009 19:39:35
Pasar una Session a un Datatable altp .NET 0 14-04-2008 21:46:19
Actualizar DataTable Juampy .NET 2 24-04-2007 20:17:19
Vender programa con código desarrollado para otro Crandel Debates 4 09-11-2005 01:38:43


La franja horaria es GMT +2. Ahora son las 16:13:36.


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