Utilizar funciones de una dll con harbour

Posts: 174

Joined: Wed Nov 29, 2017 11:42 AM

Utilizar funciones de una dll con harbour

Posted: Thu Dec 06, 2018 12:02 PM

Si bien he probado y visto como se saca partido a unas funciones de una dll con FW, del sample babu.prg y babudll.prg

Pretendo utilizar lo mismo, funciones de un fichero dll, el mismo babudll.dll, PERO sin utilizar FW, con Harbour nativo.
He agregado la lib hbxpp para compilar, pero no consigo hacerlo andar.

También, segun he visto algun ejemplo por la red, pero no lo consigo!!!

Code (fw): Select all Collapse

function Main()
   Local hDLL

   hDLL = LoadLibrary( "user32.dll" )
   msginfo( hDLL )  //me da correctamente el handle

//hbxpp.lib
//DllCall(<cDllFile>|<nDllHandle>,[<nCallingConvention>],<cFuncName>|<nOrdinal>,[<xParams,...>])->nResult
   DllCall( "user32.dll", 32, "GetWindowText" )
   DllCall( hDLL, 32, "GetWindowText" )
//no consigo nada, ni con el nombre ni con el handle

   MsgInfo( "aquí llego" )
   
   FreeLibrary( hDLL )

return nil

¿Alguien puede orientarme un poco???
¿Que hago mal???
¿Que me falta???
¿Se pueden atacar DLLs con harbour nativo???

Gracias.

Un Saludo,

Xevi.

Aprendiz de la vida!!!

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Utilizar funciones de una dll con harbour

Posted: Thu Dec 06, 2018 10:14 PM

Esto es con la funcion CALLDLL32 de Fivewin, no se si te servira.

Code (fw): Select all Collapse

nHandler := CallDll32( "Funcion" , "ARCHIVO.DLL" , nParam1 , nParam2 )
IF nHandler >= 0
     CallDll32( "OtraFuncion" , "ARCHIVO.DLL" , nHandler )
     CallDll32 ( "Respuesta" , "ARCHIVO.DLL" , nHandler, @RTA )
ENDIF

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Utilizar funciones de una dll con harbour

Posted: Thu Dec 06, 2018 11:05 PM

Mira este ejemplo

Code (fw): Select all Collapse

#include "Fivewin.ch"

Static cTitle  := ""

Function Main()

   local oDlg
   cTitle     := Space( 40 )

   DEFINE WINDOW oDlg TITLE "Prueba" FROM 10, 10 TO 200, 300 PIXEL

   ACTIVATE WINDOW oDlg ON INIT ( GetTextW( oDlg:hWnd, @cTitle, 255 ), MsgInfo( cTitle ) )

Return nil

DLL FUNCTION GetTextW( nHandle AS LONG, @cT AS LPSTR, nMax AS LONG ) AS _INT PASCAL FROM "GetWindowTextA" LIB "user32.dll"

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Xevi

Posts: 174

Joined: Wed Nov 29, 2017 11:42 AM

Re: Utilizar funciones de una dll con harbour

Posted: Mon Dec 10, 2018 08:41 AM

Las dos opciones requieren de FW, por lo tanto no me sirve para utilizar con Harbour nativo.

Cristobal, el código ppo de la opcion que me sugieres, hecha mano de FWCallDLL y GetProcAdd de FW

function GetTextW( nHandle,cT,nMax ) ; local _hDLL := If( ValType( "user32.dll" ) == "N", "user32.dll", LoadLibrary( "user32.dll" ) ) ; local uResult ; local cFarProc ; if Abs( _hDLL ) > 32 ; cFarProc = GetProcAdd( _hDLL, If( Empty( "GetWindowTextA" ) == .T., "GetTextW", "GetWindowTextA" ), .T., 7,7,9,7 ) ; uResult = FWCallDLL( cFarProc,nHandle,@cT,nMax ) ; If( ValType( "user32.dll" ) == "N",, FreeLibrary( _hDLL ) ) ; else ; MsgAlert( "Error code: " + LTrim( Str( _hDLL ) ) + " loading " + If( ValType( "user32.dll" ) == "C", "user32.dll", Str( "user32.dll" ) ) ) ; end ; return uResult

Y la otra opción, CallDll32, ya directamente es una función de FW.

Alguna sugerencia... o cual foro Harbour donde poner mi petición???

Gracias.

Un Saludo,

Xevi.

Aprendiz de la vida!!!

Joaquim Ferrer

Posts: 105

Joined: Sat Jan 14, 2012 03:46 PM

Re: Utilizar funciones de una dll con harbour

Posted: Mon Dec 10, 2018 02:49 PM

Buenas Xevi

Pretendes utilizar funciones contenidas en una DLL o pcode harbour de una DLL ?

Si es lo último :

Code (fw): Select all Collapse

DYNAMIC HRBFUNC1
FUNCTION Main()
Local x, handle := hb_LibLoad( "my.dll" )
 
x := hrbFunc1()   // hrbFunc1 - the function from my.dll
 
hb_LibUnload( handle )
Return Nil

Tienes +info en http://www.kresin.ru/en/hrbfaq_3.html#Doc12

Fivewinner desde 1.9, programador PHP y Javascript, PWA & HTML5 evangelista

Xevi

Posts: 174

Joined: Wed Nov 29, 2017 11:42 AM

Re: Utilizar funciones de una dll con harbour

Posted: Mon Dec 10, 2018 04:33 PM

Gracias, Quim.

Funciones contenidas en una Dll...
Llamar a funciones en pcode, eso ya lo havia visto.

Un Saludo,

Xevi.

Aprendiz de la vida!!!

Joaquim Ferrer

Posts: 105

Joined: Sat Jan 14, 2012 03:46 PM

Re: Utilizar funciones de una dll con harbour

Posted: Tue Dec 11, 2018 07:42 AM

Xevi

Puedes probar con automatización OLE y la función harbour

Code (fw): Select all Collapse

win_oleCreateObject()

Tienes un ejemplo en https://github.com/vszakats/harbour-core/blob/master/contrib/hbwin/tests/ole.prg

También puedes llamar a una DLL de esta forma, mediante un script, linea de comando, etc

Code (fw): Select all Collapse

Rundll32 Shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder

Algunos ejemplos en https://www.thewindowsclub.com/rundll32-shortcut-commands-windows
Saludos

Fivewinner desde 1.9, programador PHP y Javascript, PWA & HTML5 evangelista

FiveTech Support Forums

Utilizar funciones de una dll con harbour

Re: Utilizar funciones de una dll con harbour

Re: Utilizar funciones de una dll con harbour

Re: Utilizar funciones de una dll con harbour

Re: Utilizar funciones de una dll con harbour

Re: Utilizar funciones de una dll con harbour

Re: Utilizar funciones de una dll con harbour

Continue the discussion