Como se pone una funcion en un dll y como se invoca

[Vladimir Zorrilla]

Estimados Amigos

Como se pone una funcion en un dll y como se invoca
luego desde otro programa en xharbour



Saludos

Vladimir Zorrilla Llerena

[Antonio Linares]

Vladimir,

La función a poner en la DLL es en C ó en PRG ?

[Vladimir Zorrilla]

el programa a poner en el dll es un archivo prg


Gracias

[Antonio Linares]

Vladimir,

Revisa los siguientes ejemplos de FWH:

babu.prg
babudll.prg
testdll.prg
testdllp.prg
pcodedll.prg

[Ari]

Antonio

Estou testando o babuDLLl e pcodeDLL.

Como passar Array ou Object como parametro para a DLL ?

Code: Select all  Expand view  RUN


Function Main1()

  local hItem1 := ItemNew( paSis  )       <<<- Array com 1032 elementos
  local hItem2 := ItemNew( "Variavel do Config" )

  HbDLLEntry2( "Test", hItem1, hItem2 )

  ItemRelease( hItem1 )
  ItemRelease( hItem2 )
 
return nil



No babudll.prg eu pego a variavel, mas nao vem o conteudo de cada elemento ou nao estou sabendo acessar .. usando o ValType( cMsg1 )

Code: Select all  Expand view  RUN


// To build BabuDLL.dll do: buildhd.bat babuDLL
// To run this DLL, do buidh.bat Babu.prg

Function Test( cMsg1, cMsg2 )
  local n

  // result "OBject" e nao Array
  MsgInfo( ValType( cMsg1 ) )   // Object and not Array

  For n := 1 TO Len( cMsg1 )       
     MsgInfo( cMsg1[n] , cMsg2 ) <-- vejo somente 1,2,3,4..6..7..8..9
  Next

return nil


Ari


[Antonio Linares]

Ari,

Prueba esto:

MsgInfo( cMsg1:ClassName() ) // Object and not Array

para ver a que clase pertenece ese objeto