PC Toledo

Código: Selecionar todos

DYNAMIC Alert

function Another()

   cVar:="teste"
   
   Alert( "Inside the DLL" )

return cVar

function Teste(cVar)

   cVar:="passagem por referencia"

return cVar

Código: Selecionar todos

#---------------------------
# Nome da DLL
# ---------------------------
-ocdll
# ---------------------------
# Bibliotecas
# ---------------------------
-lhbmaindllp
# ---------------------------
# Outros Parƒmetros
# ---------------------------
#-workdir=.\OBJ\
-hbdyn
# ---------------------------
# Prg(s) e Rc(s)
# ---------------------------
CDLL.PRG

Código: Selecionar todos

@echo off
set path=d:\harbour32\bin
SET HB_COMPILER=mingw
hbmk2 cdll.hbp
pause

Código: Selecionar todos

function Main()
   local hDLL := hb_LibLoad( "cdll.dll" )
   cTeste1:=""
   cTeste:=Do( "Another" )
   Alert(cTeste)
   Do( "Teste",@cTeste1)
   Alert( cTeste1 )
   hb_LibFree( hDLL )
return nil

#pragma BEGINDUMP

#include "hbapi.h"

HB_EXPORT_ATTR PHB_FUNC dll_hb_vmProcAddress( const char * szFuncName )
{
   return hb_vmProcAddress( szFuncName );
}

#pragma ENDDUMP  

Código: Selecionar todos

set hb_compiler=mingw
hbmk2 testedll.prg 

Código: Selecionar todos

function Main()
   local hDLL := hb_LibLoad( "cdll.dll" )
   cTeste1:=""
   cTeste:=Do( "Another" )
   Do( "Teste",@cTeste1)
   Alert( cTeste+" - "+cTeste1 )
   hb_LibFree( hDLL )
return nil

Código: Selecionar todos

#pragma BEGINDUMP
#include "hbapi.h"
HB_EXPORT_ATTR PHB_FUNC dll_hb_vmProcAddress( const char * szFuncName )
{
   return hb_vmProcAddress( szFuncName );
}
#pragma ENDDUMP  */

Código: Selecionar todos

DYNAMIC Alert
DYNAMIC DbUseArea

function Another()
   cVar:="teste"
return cVar

function Teste(cVar)
   cVar:="passagem por referencia"
return cVar

function OpenDataBase(cVar)
   DbUseArea(.T.,"DBFNTX",cVar,cVar,.T.)
RETURN Nil

Código: Selecionar todos

   Do( "OpenDataBase","CADASTRO")
   dbedit()

Código: Selecionar todos

Error E2141 teste2.prg 74: Declaration syntax error
*** 1 errors in Compile ***

Código: Selecionar todos

#pragma BEGINDUMP
#include "hbapi.h"
HB_EXPORT_ATTR PHB_FUNC dll_hb_vmProcAddress( const char * szFuncName )      //-----> Esta é a linha 74 q se refere o erro
{
   return hb_vmProcAddress( szFuncName );
}
#pragma ENDDUMP  */