PDA

Ver la Versión Completa : Leer XML desarrollado en .NET que retorna DataTable


JuanPa1
20-03-2013, 21:24:28
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.

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

juanelo
20-03-2013, 22:31:59
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?

juanelo
20-03-2013, 22:37:39
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.

JuanPa1
20-03-2013, 22:46:48
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/SLXWebServicesDemo/SecureService.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.

Al González
20-03-2013, 22:55:38
Hola JuanPa1.

Guardando todas las reservas respecto a otras soluciones, quizá esta opción (http://www.clubdelphi.com/foros/showpost.php?p=454487&postcount=21) te resulte viable.

La clase y ese programa de ejemplo los descargas fácilmente de aquí (http://terawiki.clubdelphi.com/Delphi/Componentes-Funciones/__GH_Freebrary__/) (son libres).

Saludos.

juanelo
20-03-2013, 23:07:14
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:

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.

JuanPa1
20-03-2013, 23:16:40
Voy a seguir la recomendación de Al Gonzáles, les estaré comentando en cuanto logre leer el XML. Gracias por las respuestas.

Saludos,

JuanPa1
20-03-2013, 23:35:54
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.

Al González
21-03-2013, 00:05:56
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 (http://edn.embarcadero.com/article/32337). Una vez que lo instales ya no deberá presentarse.

Al González
21-03-2013, 00:46:17
Como alternativa a la instalación del parche, hace tiempo Neftalí encontró (http://www.clubdelphi.com/foros/showthread.php?t=68895) 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).

JuanPa1
21-03-2013, 17:15:02
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.

Al González
21-03-2013, 19:55:34
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.

Al González
21-03-2013, 21:45:57
Ya está listo, prueba con este código. :)

JuanPa1
21-03-2013, 22:06:45
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.

Al González
22-03-2013, 00:35:20
De nada Juan, para eso y más hacemos Comunidad. :)

Voy a copiar el archivo adjunto a la carpeta del proyecto (http://terawiki.clubdelphi.com/Delphi/Componentes-Funciones/__GH_Freebrary__/) GH Freebrary, para que todo el mundo pueda acceder a ese segundo ejemplo también.

JuanPa1
12-07-2013, 17:55:54
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.

juanelo
12-07-2013, 19:10:00
Y que "seguridades" checaste y descartaste que sean ?. Lo mas comun son los firewalls.

JuanPa1
12-07-2013, 19:27:48
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.

juanelo
12-07-2013, 19:47:00
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 ?

JuanPa1
12-07-2013, 19:54:20
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.

juanelo
12-07-2013, 20:21:14
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.
Y que SO tienen las pcs que no te dejan conectarte con Delphi ?

Al González
12-07-2013, 20:24:21
[...]Cadena clase no válida".
Por lo que comentas, casi estoy seguro de que el error que mencionas no tiene que ver con tu servicio Web, sino con las versiones de MSXML que hay en esos cuatro equipos.

La solución es instalar en ellos esta actualización de Windows: http://www.microsoft.com/en-us/download/details.aspx?id=19662

TghXMLDoc actualmente usa MSXML2.DOMDocument.4.0, aunque estoy considerando mejorar la clase para que trabaje con otras de las versiones de MSXML. Se aceptan propuestas (http://www.clubdelphi.com/foros/showthread.php?t=84523) de cómo incluir esa mejora.

JuanPa1
12-07-2013, 20:44:08
Efectivamente el problema ha sido la versión de MSXML, he instalado la actualización recomendada y ha funcionado correctamente. Solo una inquietud adicional, esta actualización se debe aplicar para todos los sistemas operativos y arquitecturas o debo descargarme la actualización dependediendo del SO y arquitectura.

Saludos Cordiales y muchas gracias por tu apoyo.

Al González
07-11-2013, 20:39:05
[...] esta actualización se debe aplicar para todos los sistemas operativos y arquitecturas o debo descargarme la actualización dependediendo del SO y arquitectura.
Hola JuanPa1.

Respondiendo a esa inquietud, te comento que he usado la misma actualización en Windows XP y en Windows 8, por lo cual infiero que su instalador sirve para todas las versiones actuales del sistema operativo.

Como nota adicional, decir que ya estoy revisando la clase para que pueda usar otras versiones de MSXML (http://www.clubdelphi.com/foros/showthread.php?t=84523), haciéndola con ello más flexible. Te avisaré cuando quede lista esa mejora.

Un saludo. :)