9 respuestas en este tema

[egostar]

Hola amigos,

 

Estoy creando un programa que lea un archivo SOAP XML, pero estoy teniendo problema con la forma como se generan los nodos, esto utilizando el experto xml data binding, ya encontré como solucionar la localización de nodos con diferente  namespace.

 

El siguiente es un ejemplo de lo que estoy intentando serializar.

xml

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ser="http://service/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
	<soapenv:Header/>
	<soapenv:Body>
		<ser:envioMan>
			<man>
				<InformacionGeneral>
					<IdAsociado>987654321</IdAsociado>
					<FechaRegistro>13082015162803</FechaRegistro>
					<TipoMovimiento>33</TipoMovimiento>
				</InformacionGeneral>
				<InformacionDocumento>
					<Numero>596312</Numero>
					<PesoBruto>55</PesoBruto>
					<UnidadMedida>PZA</UnidadMedida>
					<NumeroPiezas>444</NumeroPiezas>
				</InformacionDocumento>
			</man>
		</ser:envioMan>
	</soapenv:Body>
</soapenv:Envelope>

El código que estoy utilizando es éste:

delphi

procedure TXMLBodyType.AfterConstruction;
begin
  DeclareNamespace('ser','http://service/');
  RegisterChildNode('envioMan', TXMLEnvioManType, 'http://service/');
  inherited;
end;
 
function TXMLBodyType.Get_EnvioMan: IXMLEnvioManType;
begin
  Result := ChildNodes.FindNode('envioMan','http://service/') as IXMLEnvioManType;
  if not Assigned(result) then
     Result := ChildNodes['envioMan'] as IXMLEnvioManType;
end;
 

Hasta aquí todo bien, encuentra el nodo <ser:envioMan>, mi problema es que todos los nodos hijos ya no se localizan porque les agrega el prefijo <ser:> cuando no tienen, al momento que intento obtener los nodos hijos me muestra lo siguiente:

 

<ser:man xmlns:ser="http://service/"/>

 

Lo que necesito es eliminar el namespace después de que ya encontré el nodo padre.

 

Espero haber sido claro, si necesitan mayor información con gusto se las dejo saber.

 

Saludos

[felipe]

Chanfle estoy oxidado con Delphi, pero pregunto... ¿debes declarar ese namespace para obtener el nodo padre?

[felipe]

Lo digo por lo siguiente, en el mismo cuerpo del XML tienes lo siguiente:

xml

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ser="http://service/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">

Ya estás indicando quién es "ser"

[Héctor Randolph]

Hola Eliseo

 

Este es un ejemplo de comprobante fiscal digital. Dentro del nodo complemento existe el timbre fiscal digital, el cual tiene su propio namespace.

 

Yo lo hago de esta forma y puedo acceder sin problemas a los nodos hijos:

delphi

{ TXMLComplemento }
 
 
 
procedure TXMLComplemento.AfterConstruction;
 
begin
 
  DeclareNameSpace('tfd','http://www.sat.gob.mx/TimbreFiscalDigital');
 
  RegisterChildNode('TimbreFiscalDigital', TXMLTimbreFiscalDigital,'http://www.sat.gob.mx/TimbreFiscalDigital');
 
  inherited;
 
end;
 
 
 
function TXMLComplemento.Get_TimbreFiscalDigital: IXMLTimbreFiscalDigital;
 
begin
 
  Result := ChildNodes.FindNode('tfd:TimbreFiscalDigital','http://www.sat.gob.mx/TimbreFiscalDigital') as IXMLTimbreFiscalDigital;
 
  if not Assigned(Result) then
 
    Result := ChildNodes['tfd:TimbreFiscalDigital']   as IXMLTimbreFiscalDigital;
 
end;

Lo único que encuentro de diferencia con el código que mostraste anteriormente es la siguiente línea:

delphi

Result := ChildNodes['tfd:TimbreFiscalDigital']   as IXMLTimbreFiscalDigital;

Tal vez sea por ahí la solución.

 

Saludos

 

[egostar]

Lo digo por lo siguiente, en el mismo cuerpo del XML tienes lo siguiente:

xml

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ser="http://service/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">

Ya estás indicando quién es "ser"

 

SI, así suponía que funcionaba, el problema es que si no se lo especifico, toma el namespace principal que es "soapenv"

 

<soapenv:man xmlns:soapenv="http://schemas.xmlso...></soapenv:man>

 

Por lo que no localiza los nodos hijos.

 

 

Hola Eliseo

 

Este es un ejemplo de comprobante fiscal digital. Dentro del nodo complemento existe el timbre fiscal digital, el cual tiene su propio namespace.

 

Yo lo hago de esta forma y puedo acceder sin problemas a los nodos hijos:

 

Tal vez sea por ahí la solución.

 

Saludos

 

El punto es que solo el nodo padre tiene el prefijo "ser:", los hijos no tienen namespace, pero al asignar el namespace del nodo padre, intenta localizar los nodos hijos con el mismo prefijo y no encuentre nada. 

 

Saludos

[egostar]

Otra cuestión, si hago lo que comentas, agregando el prefijo directamente me salta el siguiente error:

 

 

---------------------------

Debugger Exception Notification

---------------------------

Project Project1.exe raised exception class EIntfCastError with message 'Interface not supported'.

---------------------------

Break   Continue   Help   

---------------------------

 

Saludos

[felipe]

SI, así suponía que funcionaba, el problema es que si no se lo especifico, toma el namespace principal que es "soapenv"

 

<soapenv:man xmlns:soapenv="http://schemas.xmlso...></soapenv:man>

 

Por lo que no localiza los nodos hijos.

 

 

 

El punto es que solo el nodo padre tiene el prefijo "ser:", los hijos no tienen namespace, pero al asignar el namespace del nodo padre, intenta localizar los nodos hijos con el mismo prefijo y no encuentre nada. 

 

Saludos

 

Como quien diría, no es muy inteligente la interfaz

 

IXMLEnvioManType ¿que contiene?

 

La documentación es poca pero encontré una posible pero muy, muy pobre forma de implementar una solución, primero declarando una variable tipo IXMLDOMDocument para luego usar la función selectSingleNode, algo así:

delphi

var
  xmlDoc: IXMLDOMDocument;
  node: IXMLDomNode;
begin
  xmlDoc := CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
  xmlDoc.async := False;
  xmlDoc.load('objeto.xml');
  node := xmlDoc.selectSingleNode('//man/InformacionGeneral');
end;

[egostar]

 

Como quien diría, no es muy inteligente la interfaz

 

IXMLEnvioManType ¿que contiene?

 

La documentación es poca pero encontré una posible pero muy, muy pobre forma de implementar una solución, primero declarando una variable tipo IXMLDOMDocument para luego usar la función selectSingleNode, algo así:

delphi

var
  xmlDoc: IXMLDOMDocument;
  node: IXMLDomNode;
begin
  xmlDoc := CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
  xmlDoc.async := False;
  xmlDoc.load('objeto.xml');
  node := xmlDoc.selectSingleNode('//man/InformacionGeneral');
end;

 

La voy a probar, un punto que no he mencionado es que la lectura la hago sin problema rastreando los nodos por el indice del nodo hijo, "ChildNode[n]", sin embargo no me sirve de esa manera porque tengo que validar nodo por nodo para poder identificar a que campo corresponde el valor del nodo, por eso es que estoy utilizando el data binding, para asignar directamente el nodo al campo. La última opción (que no quiero utilizar) es hacer un replace del namespace, pero si éste llegara a cambiar (como ha sucedido) me generaría mas problemas que soluciones.

 

Saludos y gracias por su ayuda

[felipe]

¿Y no existe otra forma de crear el data binding?

Fíjate con un XML Schema, podrías definir ese objeto complejo en un archivo XSD

[egostar]

¿Y no existe otra forma de crear el data binding?

Fíjate con un XML Schema, podrías definir ese objeto complejo en un archivo XSD

 

El problema radica en los prefijos de namespace, Pero ya estoy evaluando una alternativa rapáz

 

Ya se las dejo saber.

 

Saludos