FiveTech Software tech support forums

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, ...

Here is the "calling program" = babu.prg modified After that is the "dll program" = babudll.prg modified you may want to remove the altd() breaks and the reference to the external debugging libraries. REQUEST HB_GT_WIN REQUEST HB_GT_WIN_DEFAULT ********************************************************* ...

In this example, I added code to create a dialog in the calling program( babu.prg ) and added 1 control to it. then, I pass to the .dll ( babudll.prg ) the following. hItem1 := ItemNew( odialog:hwnd ) hItem2 := 'Dialog Handle Passed' HbDLLEntry2( "TEST3", hItem1, hitem2 ) *************** ...

... identified by :hwnd ?? If I could pass the actual windows object, that would be great. I followed the basic convention used in the FWH samples babudll.prg and babu.prg. thanks in advance.

Buenas tardes, comprobado con Virustotal https://www.virustotal.com/es/ , resultado: 2/57 Antivirus Resultado Actualización Baidu-International Trojan.Win32.Dropper.ctqc 20150223 Kaspersky Trojan-Dropper.Win32.Daws.ctqc 20150223 Saludos

asi es

Master al instalar el KASPERSKY SECURITY SCAN, él me dice que tiene dos archivos infectados:

Code: Select all  Expand view

UDS:DangerousObject.Multi.Generic

babudll.dll  

C:\FWH1306\samples

UDS:DangerousObject.Multi.Generic

babudll.dll  

E:\FWH1306\samples
 

Gracias, saludos.

Ari wrote:Estou buscando informações de como criar uma DLL de funcoes

Hechales un vistazo en ..\samples:
Babu.prg y BabuDll.prg

Saludos.

Hi Antonio, I tried but it seems hb_parl(-1) doesn't return a logic value or anyway the value is not TRUE. The external application that call babudll recognize TRUE only if I use "return TRUE" instead of "returnhb_parl(-1)" into ExecAll. This is a semplified self-contained ...

... condition is verified or not but the error "Checkpassword" has not prototipe in function ExecuteAll appears. ------- // To build BabuDLL.dll do: buildhd.bat babuDLL // To run this DLL, do buidh.bat Babu.prg function CheckPassword() local cVar cVar:=space(10) if .not. MsgGet("Password",,@cVar) ...

Marco, In babudll.prg add this code: BOOL __stdcall __export ExecuteAll( void ){   MessageBox( 0, "ExecuteAll()", "ok", 0 );      return TRUE;} And in babu.prg add this:   hDLL = LoadLibrary( ...

It works fine. Great work Antonio !! Just a small problem: I need to add into babudll a function named "ExecuteAll" that is automatically called from a c++ DLL for security purpose. I should return from the "ExecuteAll" function .t. or .f. Any ...

Mr.Antonio,

Finally you have gifted us the solution to create xHarbour PCODE Dll Creation.
I could create sucessfully the BABUDLL.DLL and BABU.EXE with the sources,
you have just released.

Now the Subject of this thread got its real meaning

Many many thanks and Regards,

- Ramesh Babu P

...      {-- Don't specify .PRG extensionGOTO EXIT:NOEXISTECHO The specified PRG %1 does not exist:EXIT babu.prg // Using Harbour DLLs// To build BabuDLL.dll do: buildhd.bat babuDLL#include "FiveWin.ch"static hDLLfunction Main()   local hItem1 := ItemNew( "Hello world!" ...

Mr.Antonio, Thank you very much for your continuous effort on xHarbour PCODE DLL I could create BABUDLL.DLL with xHarbour with the changes you have suggested in the BuildHd.bat and I could even build BABU.EXE. But when I call BABU.DLL, it is calling TEST() sucessfully from ...