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:
Saludos. |
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? |
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.
|
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. |
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. |
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: 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. |
Voy a seguir la recomendación de Al Gonzáles, les estaré comentando en cuanto logre leer el XML. Gracias por las respuestas.
Saludos, |
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. |
Cita:
|
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).
|
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. |
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. |
1 Archivos Adjunto(s)
Ya está listo, prueba con este código. :)
|
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. |
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. |
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. |
Y que "seguridades" checaste y descartaste que sean ?. Lo mas comun son los firewalls.
|
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.
|
Cita:
|
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.
|
Cita:
|
Cita:
La solución es instalar en ellos esta actualización de Windows: http://www.microsoft.com/en-us/downl....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 de cómo incluir esa mejora. |
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. |
Cita:
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, haciéndola con ello más flexible. Te avisaré cuando quede lista esa mejora. Un saludo. :) |
La franja horaria es GMT +2. Ahora son las 20:48:33. |
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