Error en CallDll

[fgondi]

Hola grupo,

Estoy compilando con xHarbour los programas que tengo en Harbour. Compila perfectamente pero al ejecutar el programa me lanza el siguiente error:


La dll en cuestión pertenece a la clase tLFN:

Code: Select all  Expand view  RUN

DLL32 Static Function apiFullFName(cFileName AS STRING, nBuffer AS LONG,
                                   @lpBuffer AS STRING);
    AS LONG PASCAL FROM "GetFullPathNameA" LIB "kernel32.dll"

En Harbour funciona perfectamente, pero no se que tengo que cambiar para que funcione en xHarbour.

[fgondi]

Hola grupo,

Solucionado.

Comprobé que el archivo testlnf2.prg del directorio samples funcionaba correctamente.

La diferencia era los parametros que se pasaban. Una vez cambiados funciona correctamente.

Code: Select all  Expand view  RUN

DLL32 Static Function apiFullFName(lpszFile AS LPSTR, cchPath AS DWORD,;
               lpszPath AS LPSTR, @nFilePos AS PTR);
    AS LONG PASCAL FROM "GetFullPathNameA" LIB "kernel32.dll"

Lo que no se es el motivo por el que ahora cambia los parámetros a pasar y si ese problema me lo encontraré en alguna dll mas.