criar dll e usar no exe -OK- e agora parametro e variavel ?

[zazibr]

ola pessoal


como crio uma dll passo a passo e utilizo dentro do meu .exe ?

utlizo xharbour + gtwvw + fw

valeu pessoal



ja testei os codigo do forum (fivetechsuport) e todos que manipulam variaveis ou parametros dão gpf
http://forums.fivetechsupport.com/viewt ... 82&p=44419
http://forums.fivetechsupport.com/viewt ... =3&t=14165
http://forums.fivetechsupport.com/viewt ... 26&p=57744



pesquisando na net encontrei o seguinte exemplo (sem parametro e sem variaveis)
funcionou perfeitamente agora como faço p/ trabalhar com variáveis dentro do exe e passar parâmetros e ler as variáveis que estão no .exe dentro da dll ?

// -------------------------------------------- //
// PRG1 (EXE)

#include "FiveWin.ch"

function Main()
MsgInfo( "ok from EXE" )

hDll := LoadLibrary( "prg2.dll" )
HB_LibDo( "DLLINIT" )
HB_LibDo( "xMAIN" )
return nil


-------------------------------------------- //
// PRG2 (DLL)

#include "FiveWin.ch"

function xMain()
MsgInfo( "ok from DLL" )
return nil

[Eolo]

De acordo com o help do XHarbour, o argumento é passado assim:

Código: Selecionar todos

// PRG1 (EXE)

#include "FiveWin.ch"

function Main()
MsgInfo( "ok from EXE" )

hDll := LoadLibrary( "prg2.dll" )
HB_LibDo( "DLLINIT" )
HB_LibDo( "xMAIN", "NOVA MENSAGEM") // aqui vai o argumento
return nil


-------------------------------------------- //
// PRG2 (DLL)

#include "FiveWin.ch"

function xMain( XPTO )
MsgInfo( XPTO ) // vai mostrar "NOVA MENSAGEM"
return nil

[zazibr]

no xharbour free nao funciona da gpf ... vou testar no harbou o complicado que estou enroscado com a gtwvw nao consigo migrar ou mudar de compilador