In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

DLL32 y ahora?

Foro público de Xailer en español
Responder
Bingen Ugaldebere
Mensajes: 1310
Registrado: Mié Sep 26, 2007 7:12 pm

DLL32 y ahora?

Mensaje 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
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9463
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

DLL32 y ahora?

Mensaje 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
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Responder