Los errores que encontré parecen relacionados con unicode.
Siguiendo el consejo en este link http://stackoverflow.com/questions/11314454/calling-delphi-2006-dll-with-a-pchar-parameter-from-delphixe
Sugieren cambiar PChar por PAnsiChar, y asi lo hice con la unidad "DataTypeCast", dejando algo como esto:
Código: Seleccionar todo
unit DataTypeCast;
interface
uses Activex, DB, SysUtils;
type
PCaracter = PAnsiChar;
Caracter = AnsiChar;
TMarcador = TBytes;
//PAnsiChar
function ToChar(Str: String): PAnsiChar; overload;
function ToChar(Str: Pointer): PAnsiChar; overload;
//function ToChar(Str: String): PWideChar; overload;
//function ToChar(Str: Pointer): PWideChar; overload;
implementation
//PAnsiChar
function ToChar(Str: String): PAnsiChar; overload;
begin
Result := PAnsiChar(AnsiString(Str));
end;
function ToChar(Str: Pointer): PAnsiChar; overload;
begin
Result := PAnsiChar(Str);
end;
initialization
Coinitialize(nil);
finalization
CoUninitialize;
end.Con esto al menos ya las cadenas de texto no se ven en "chino", es decir son legibles (nombre de archivo y clave).
Si hago click en el botón de versión obtengo:
Version de la libreria : CFDLib V2.1.150217-Ecodex V9/CD V2-DEMO
Y si hago clic en el botón "1. CREAR CFDI A PARTIR DE UN *.ini", siguiendo la depuración veo que la llamada a la función
Código: Seleccionar todo
if GeneraCFD(ToChar(OpenDialog.FileName),ToChar(clave)) = OK then...recibe correctamente los dos parametros, pero siempre regresa con un "Error General"
Así deje en la unidad "CFDLibHeader" la función:
Código: Seleccionar todo
function GeneraCFD(IniFileName, ClaveLlavePrivada : PAnsiChar) : TError; stdcall; external 'CFDLib.dll';Y las funciones "GetError" y "GetErrorExt" siempre regresan vacías.
Quiero suponer que bajando una versión XE de evaluación te permitiría migrar estás librerías.
¿Haz logrado hacer funcionar tu librerias en versiones mas recientes de Delphi? -- algún tip para continuar las pruebas en XE8
¿Tienes planes de actualizar a nuevas versiones de Delphi tu librería?
Dice embarcadero que comprando la nueva versión se tiene acceso a versiones antiguas de Delphi, pero quisiera ir hacia adelante con esta versión XE.
Saludos
