Creacion archivo *.ini

Este es el foro para resolver dudas y hacer comentarios del Codigo Fuente para Delphi de generacion y timbrado que se ofrece aqui en el foro
[[ FORO CERRADO DEBIDO A QUE YA LA INFORMACION YA NO ES VIGENTE ]]
Avatar de Usuario
Dado
Mensajes: 15824
Registrado: Mar Jul 06, 2010 8:56 pm

Re: Creacion archivo *.ini

Mensajepor Dado » Lun Oct 27, 2014 4:28 pm

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
ADDENDAS? VALIDACION? CODIGO PARA PROGRAMAR TU PROPIA SOLUCION? TODO LO TENEMOS EN WWW.VALIDACFD.COM VISITANOS !!

ROSCO29
Mensajes: 9
Registrado: Lun Oct 20, 2014 6:02 pm

Re: Creacion archivo *.ini

Mensajepor ROSCO29 » Mar Oct 28, 2014 5:23 pm

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

Avatar de Usuario
Dado
Mensajes: 15824
Registrado: Mar Jul 06, 2010 8:56 pm

Re: Creacion archivo *.ini

Mensajepor Dado » Mar Oct 28, 2014 5:33 pm

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)
ADDENDAS? VALIDACION? CODIGO PARA PROGRAMAR TU PROPIA SOLUCION? TODO LO TENEMOS EN WWW.VALIDACFD.COM VISITANOS !!

ROSCO29
Mensajes: 9
Registrado: Lun Oct 20, 2014 6:02 pm

Re: Creacion archivo *.ini

Mensajepor ROSCO29 » Mié Nov 12, 2014 12:00 pm

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

ROSCO29
Mensajes: 9
Registrado: Lun Oct 20, 2014 6:02 pm

Re: Creacion archivo *.ini

Mensajepor ROSCO29 » Vie Nov 14, 2014 1:20 pm

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

Avatar de Usuario
Dado
Mensajes: 15824
Registrado: Mar Jul 06, 2010 8:56 pm

Re: Creacion archivo *.ini

Mensajepor Dado » Vie Nov 14, 2014 1:25 pm

Te recomiendo el foro de Club Delphi para asesoria en programacion Delphi
ADDENDAS? VALIDACION? CODIGO PARA PROGRAMAR TU PROPIA SOLUCION? TODO LO TENEMOS EN WWW.VALIDACFD.COM VISITANOS !!


Volver a “SOPORTE CODIGO FUENTE EN DELPHI”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados