ValidaCFD

Esos datos tienes que extraerlos del XML, la DLL no tiene funciones para extraer datos individuales

TIP: Trata al XML como un archivo DE TEXTO, y puedes facilmente extraer los datos usando funciones de cadenas

Hola, Entonces ya investigue y lo que puedo hacer es Cargar el XML a un Memo y hacer una búsqueda con Pos y de la posicion que me de leer carácter por carácter hasta encontrar las ultimas comillas, ejem:
noCertificadoSAT="20001000000100005868"

si busco noCertificadoSAT=" y leería hasta encontrar las otras comillas?, porfa dime si voy bien ya que busque como extraerlo del XML y ta medio confuso, agradecería me ayudaras

A un memo?...pues si, pero hay formas mas eficientes

Mejor usa un TStringList, checa el metodo LoadFromFile y la propiedad Text

Tambien checa las funciones del sistema acerca del manejo de cadenas, especialmente la funcion leftstr, midstr, y rightstr en combinacion con pos

O puedes revisar nuestra solucion CFD2PDF para generar el PDF (clic aqui)

Hola, ya todo va bien, ahora necesito saber el costo de la librería QRCode para ya armar el proyecto y autorización de compra, si me lo envias a mi correo por favor. Gracias

Hola, ya todo va perfecto, pero ahora tengo un problema al enviar el mail con los archivos pdf y XML, lo que pasa es que a cuentas de Hotmail dice que lo envía pero no se recibe, aquí como lo estoy haciendo, por favor ayuda con esto

with idMessage1 do begin
// Cuerpo del mensaje.
Subject := 'Factura: ' + IntToStr(FrPunto_DeVenta.WFolio_Venta) + ' HELP Harware & Software';
Body.Clear;
Body.Text:= 'Mensaje enviado desde programa de Facturacion...';
//Body.Add('Hola ya pude enviar correos desde un programa de Facturacion...');
// Cuenta Origen.
From.Address:= 'facturacion@asiia.com.mx';
From.Name:= 'Joe';
From.Text := 'Facturacion HELP';
// Cuenta Destino.
//Recipients.Add;
//Recipients[0].Name:= 'Destinatario';
//Recipients[0].address:= 'facturacion@asiia.com.mx';
//Recipients.EMailAddresses := 'joediazg@hotmail.com,facturacion@asiia.com.mx';
Recipients.EMailAddresses := FrPunto_DeVenta.WFactura_DatosCliente_Email;
// Asunto del email.
// Prioridad del mensaje, Normal.
//Priority := TidMessagePriority(mpNormal);
//Coloco el archivo adjunto el cual enviar.
TIdAttachmentFile.Create(idMessage1.MessageParts , 'C:\TSO_System\Facturas\Fact_' + IntToStr(FrPunto_DeVenta.WFolio_Venta) + '.pdf');
TIdAttachmentFile.Create(idMessage1.MessageParts , 'C:\TSO_System\Facturas\Fact_' + IntToStr(FrPunto_DeVenta.WFolio_Venta) + '.xml' );
end;

with idSMTP1 do begin
// Configuro autentificación.
//AuthType := satLogin;

//IOHandler := IdSSLIOHandlerSocketOpenSSL1;
//IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv23;
//IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;
//IdSSLOpenSSLHeaders.Load;
Username := 'facturacion@asiia.com.mx'; // Nombre del usuario
Password := 'facturacion1'; // password
// Configuro el servidor SMTP.
Host := 'mail.asiia.com.mx';
Port := 26;

try
Connect;
try
// Envio el mensaje.
Send(IdMessage1);
finally
Disconnect;
end;
showmessage('Enviado Correctamente');
except
on E:Exception do begin
ShowMessage('Cannot send E-Mail: ' + E.Message);
//Result := False;
end;
//showmessage('No se ha podido enviar el email.' + #13 +
// 'Host desconocido o incorrecto.');
// Capturo algunas excepciones que pueden ocurrir

//ON E: EIdProtocolReplyError do begin
//showmessage('No se ha podido enviar el email.' + #13 +
//'Incorrecto el email o el usuario o la password.');
//end;
//on E: EFOpenError do begin
//showmessage('No se ha podido enviar el email.' + #13 +
//'Fichero Adjunto desconocido o erróneo.');
//end;
//on E: EIdSocketError do begin
//showmessage('No se ha podido enviar el email.'+ #13 +
//'Host desconocido o incorrecto.');
//end
//else begin
//showmessage('Fallo en el envio de email');
//raise;//para que muestre el error.
//end;
end;
if connected then
Disconnect;
end;

las línea comentadas son opciones que he estado probando, por favor necesito ayuda con esto, GRACIAS

Te recomiendo el foro de Club Delphi para asesoria en programacion Delphi