Página 1 de 1

DLL32 y ahora?

Publicado: Vie Jun 16, 2006 1:41 pm
por Bingen Ugaldebere
Buenas, estoy pasando todas las funciones y utilidades que tenia en FW a
Xailer con sus correspondientes cambios y todo va muy bien, pero me
encuentro con un problema, cuando antes se usaba en una función una
llamada a una DLL de esta manera
DLL32 Static Function apiCopyFile(cName1 AS STRING, cName2 AS STRING) AS
LONG PASCAL;
FROM "CopyFileA" LIB "kernel32.dll"
DLL32 Static Function apiMoveFile(cName1 AS STRING, cName2 AS STRING) AS
LONG PASCAL;
FROM "MoveFileA" LIB "kernel32.dll"
Ahora que se debe de hacer???
Gracias y un saludo

DLL32 y ahora?

Publicado: Vie Jun 16, 2006 4:39 pm
por ignacio
Bingen,
Ahora lo más sencillo, más potente y más rápido, es utilizar INLINE C que
para eso lo tiene [x]Harbour:
//---------------------------------------------------------- ----------------
#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>
/*
BOOL CopyFile(
LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);
Esta es información es del API y no coincide con el prototipado que estabas
haciendo
*/
XA_FUNC(APICOPYFILE)
{
hb_retl( CopyFile( hb_parc( 1 ), hb_parc( 2 ), FALSE )
}
#pragma ENDDUMP
//---------------------------------------------------------- ----------------
Intenta hacer el resto, si tienes algún problema comentalo por aquí y entre
todos te echamos una mano.
Saludos,
"bingen" <bingen@muninser.com> escribió en el mensaje
news:[email=449298f6@ozsrvnegro.ozlan.local...]449298f6@ozsrvnegro.ozlan.local...[/email]
> Buenas, estoy pasando todas las funciones y utilidades que tenia en FW a
> Xailer con sus correspondientes cambios y todo va muy bien, pero me
> encuentro con un problema, cuando antes se usaba en una función una
> llamada a una DLL de esta manera
>
> DLL32 Static Function apiCopyFile(cName1 AS STRING, cName2 AS STRING) AS
> LONG PASCAL;
> FROM "CopyFileA" LIB "kernel32.dll"
> DLL32 Static Function apiMoveFile(cName1 AS STRING, cName2 AS STRING) AS
> LONG PASCAL;
> FROM "MoveFileA" LIB "kernel32.dll"
>
>
> Ahora que se debe de hacer???
>
> Gracias y un saludo