Dado el siguiente xml:
<?xml version="1.0" encoding="UTF-8"?>
<Sistema xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.w3.org/TR/xmldsig-core/xmldsig-core-schema.xsd">
<Cabecera>
<IDVersion>0.1</IDVersion>
<Obligado>
<NombreRazon>EMPRESA DE PRUEBA, S.A.</NombreRazon>
</Obligado>
</Cabecera>
<RegistroAlta>
<Registro>
<Periodo>
<Ejercicio>2023</Ejercicio>
<PeriodoLiq>1T</PeriodoLiq>
</Periodo>
<IdFactura>
<NumSerie>FR230001</NumSerie>
<FechaExpedicion>31/01/2023</FechaExpedicion>
</IdFactura>
<TipoFactura>F2</TipoFactura>
<FechaOperacion>31/01/2023</FechaOperacion>
<DescripcionOperacion>VENTA MINORISTA</DescripcionOperacion>
<Desglose>
<DetalleDesglose>
<TipoImpositivo>4.00</TipoImpositivo>
<BaseImponibleOimporteNoSujeto>1.00</BaseImponibleOimporteNoSujeto>
<CuotaRepercutida>0.04</CuotaRepercutida>
</DetalleDesglose>
</Desglose>
<ImporteTotal>1.04</ImporteTotal>
<EncadenamientoFraAnterior>
<NumSerieFraAnterior>FR230001</NumSerieFraAnterior>
<FechaExpedicionFacturaAnterior>31/01/2023</FechaExpedicionFacturaAnterior>
<HuellaFacturaAnterior>9yYI6U89U3IUIQE345EUGWEBsd7EKFCBP9trtYUJSD0JFFKJKrtthAuysfadfWPE</HuellaFacturaAnterior>
</EncadenamientoFraAnterior>
<SistemaInformatico>
<Version>46.243.1</Version>
<NumeroInstalacion>45</NumeroInstalacion>
<TipoUsoSistema>01</TipoUsoSistema>
</SistemaInformatico>
</Registro>
<DatosControl>
<Huella>005948F5A441A56ABF584804036409719AB89892608FD708BAB8AE5088C896AD</Huella>
<TipoHash>01</TipoHash>
<FechaGenRegistro>31/07/2022</FechaGenRegistro>
<HoraGenRegistro>09:00:07</HoraGenRegistro>
<HusoHorarioGenRegistro>02</HusoHorarioGenRegistro>
</DatosControl>
</RegistroAlta>
</Sistema>
Necesitaría pasar el nodo completo < Registro > conteniendo hijos y valores < /Registro > incluidas sus etiquetas a un WideString a fin de calcular el hash de toda la cadena. Esto sería bajo delphi7 con Windows 10 x64. La construcción esta en base a un TXMLDocument. ¿Cómo puedo extraer a widestring el nodo completo con sus hijos y valores para poder calcular el hash de ese string?
Por favor a ver si alguien me puede echar un cable, por más que he buscado en google, tutoriales y probadas opciones no he tenido éxito. Gracias.
Este es el trozo de codigo en el que me pierdo totalmente y no carga los datos del nodo
procedure TGeneraFicherosEnXML.Button3Click(Sender: TObject);
var
RegistroFacturacion: IXMLNode;
begin
// LEYENDO EL VALOR DE LOS NODOS
ListBox1.Items.Clear;
XMLDocument1.LoadFromFile( ExtractFilePath( Application.ExeName ) + 'Fichero XML prueba.xml' );
XMLDocument1.Active := True;
RegistroFacturacion := XMLDocument1.DocumentElement.ChildNodes[0];
RegistroFacturacion := XMLDocument1.ChildNodes.FindNode('RegistroFacturacion');
end;