ValidaCFD

El error "Interface not supported" es debido a que no reconocio el nodo por una de dos, o esta mal formado lo que tratas de leer o esta mal inicializado el objeto dentro de Delphi.

pd. siento comentarte debido a la enorme carga de trabajo que tengo en estos momentos no me va a ser posible ayudarte mucho en este asunto, pero es un foro publico ! esperemos que otros foristas puedan ayudarte un poco mas que yo.

saludos,
La interface si esta bien definida, lo raro es que como que no la encuentra en el xml, yo hice esto:
cfd3:=getcomprobante(xmld);//defin cfdi vers 3
tfd:=GetTimbreFiscalDigital(xmld) //nodo tfd dentro de complemento...EXCEpcion
y ahi lanzo la excepcion...
opte por copiar lo del timbrefiscal en el archivo xsd de la estructura del cfd3 y quedo todo junto, creo un solo archivo .pas, no marca ningun error y puedo accesar a la interface pero todos los atributos del nodo <tfd:timbrefiscaldigital> los devuelve vacios... Ya no se..

uff, uf, solo podrias orientarme nadamas para salir xq ya estoy ciclado.. jej...
Te comentaba que en el foro que enviaste la solucion por email a alguien sobre la <donat>... La tendras disponible..
Algun link, o docs., yo le busco..

Gracias

La cadena original no viene contenida en el XML, esa la tienes que volver a construir. La forma más sencilla la da la propia biblioteca de DADO, la clase TElectronicDocument contiene una propiedad llamada atinadamente "Fingerprint", la cual contiene la cadena original del CFD o CFDi contenido en la clase. Recordemos que esta clase tiene el método "LoadFromFile", con el cual cargamos el XML que deseemos y en forma automática nos llena todos las propiedades del CFD o CFDi de manera que podemos accederlas sin tener que meternos con el XML.