Leer XML desarrollado en .NET que retorna DataTable

[JuanPa1]

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]

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]

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]

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.

[[Al González]]

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.

[juanelo]

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.

[JuanPa1]

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]

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]]

Empezado por JuanPa1

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.

[[Al González]]

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

[JuanPa1]

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]]

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]]

Ya está listo, prueba con este código.

[JuanPa1]

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]]

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.

[JuanPa1]

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]

Y que "seguridades" checaste y descartaste que sean ?. Lo mas comun son los firewalls.

[JuanPa1]

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]

Empezado por JuanPa1

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]

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.