Libreria dll para crear y timbrar facturas electronicas

[EddyRocha]

Si realizo la prueba con elecutable que ra traes compilado CFDLibTest.exe realiza bien la prueba, pero si yo compilo y genero el ejecutable CFDLibTest.exe muestra el error:

en el boton que dice "Convierte archivo *.ini a Factura Electronica"
Hubo un Error
????????????o?????$
C?????

en el de version muestra el mensaje:
Version de la libreria : ????

[EddyRocha]

Me falto decirte que la bitacora dice:

---Inciando creacion de CFD / CFDI---
Abriendo archivo ini : C
ERROR FATAL : No se encontro el archivo : C



y es con el codigo demo, donde selecciono el archivo ini por medio de una ventana dialogo...

[EddyRocha]

Si verificas la bitacora recorta el nombre del archivo a solo C, cuando el ini se llama CFDi.ini,
hice la prueba generando un archivo ini que se llamara solo C, y ahora la bitacora genero esto:

---Inciando creacion de CFD / CFDI---
Abriendo archivo ini : C
ERROR FATAL : Se requiere un dato obligatorio : Parametros Certificado

[Dado]

Si realizo la prueba con elecutable que ra traes compilado CFDLibTest.exe realiza bien la prueba, pero si yo compilo y genero el ejecutable CFDLibTest.exe muestra el error:

en el boton que dice "Convierte archivo *.ini a Factura Electronica"
Hubo un Error
????????????o?????$
C?????

en el de version muestra el mensaje:
Version de la libreria : ????

Eddy Eddy, amigo mio.....aver cuentame "toda la historia", despues de tantos años debo aprender a hacer la pregunta magica :

Que sistema operativo usas : Windows 7

Que lenguaje de programacion usas : DELPHI 2009+ O NO?

Que es lo que intentas hacer : Compilar algo que funciona pero cuando tu lo compilas falla

OK. Esto es lo que esta pasando, el CODIGO FUENTE ESTA DISEÑADO PARA DELPHI VERSION 7, siempre he publicado a lo largo y ancho del foro que ese es el lenguaje y version que uso.

Si quieres intentar hacerlo funcionar en Delphi V2009 o mayor DEBES CAMBIAR "CON CUIDADO" todos los PChar por PANSIChar

[EddyRocha]

Me suponia que algo asi era, dejame hacer el cambio y te aviso del resultado, por cierto soy Amiga, Gracias

[EddyRocha]

Cambie los Pchar por PAnsichar, ya que estoy usando Delphi2009, y ahora me muestra el error (ahora si en español):

Hubo un Error
No se encontro el archivo
C

[EddyRocha]

Otro detalle es que el proyecto desde que le agregue la libreria, ya no corre para debugeo con F9 solo le puedo hacer un build, en el event log, indica MODULE Load SSLEAY32.dll No debug Info. Base address, sabes a que se debe, el delphi si corre con un respaldo del codigo sin la libreria...

[Dado]

@EddyRocha

Hola amiga, aqui ya revise tu caso, te anexo el "prototipo" de como debes hacer los cambios en D2009+ para que esto jale :
(recuerda cambiar TODOS los PChar por PAnsiChar, INCLUYENDO el "CFDLibHeader.pas")

procedure TForm1.Button2Click(Sender: TObject);
var clave, Arch : AnsiString;
begin
OpenDialog.Title := 'CARGAR ARCHIVO INI PARA CONVERTIR A FACTURA';
OpenDialog.DefaultExt := 'ini';
OpenDialog.Filter := 'Archivo INI (*.ini)|*.ini';

if OpenDialog.Execute then
begin
clave := InputBox('','Introduzca la clave de la Llave Privada','a0123456789');
Arch := OpenDialog.FileName;

if GeneraCFD(PAnsiChar(Arch),PAnsiChar(clave)) = OK then
MessageDlg('Se grabo la factura en formato XML'+#13#10#13#10+'La Cadena Original y el Sello Digital son'+
#13#10#13#10 + copy(CadenaOriginal,1,50) + '...' + #13#10#13#10 + copy(SelloDigital,1,50) + '...',mtInformation,[mbOK],0)
else
MessageDlg('Hubo un Error' + #13#10 + GetError + #13#10 + GetErrorExt,mtError,[mbOK],0)
end;
end;

[EddyRocha]

El detalle esta en que hice los cambios en cuanto me mencionaste lo del delphi2009, tambien INCLUYENDO el "CFDLibHeader.pas"

mi codigo esta de esta forma:

if GeneraCFD(PAnsiChar(dmGlobal.qryCat_EmpresaRepClR_RutaDocumentos.Value+'\'+
'CFDi.ini'
),PAnsiChar(dmCatalogos.qryCertVigenteCer_PasswordLLave.Value))= OK then


y lo que mejoro es que ya no me da los caracteres chinos, ahora me da el error "No se encontro el archivo : C"

[Dado]

@Eddy.....mmh que no Eddy es por "Eduardo"?......amiga

Código: Seleccionar todo

var temp1, temp2 : AnsiString;

temp1 := dmGlobal.qryCat_EmpresaRepClR_RutaDocumentos.Value+'\'+ 'CFDi.ini';
temp2 := dmCatalogos.qryCertVigenteCer_PasswordLLave.Value);

if GeneraCFD(PAnsiChar(temp1),PAnsiChar(temp2) = OK then.........

Me dices si asi te funciono