Página 1 de 1

uso de dll a partir de xharbour

Enviado: 01 Abr 2005 08:13
por AlexCunha
Algum dos amigos me pode indicar guias ou exemplos de uso de dll desde código xharbour ?

Há tenho um exemplo, mas tá um pouco complicado ...

ac

Enviado: 01 Abr 2005 08:19
por AlexCunha
Um outro exemplo que peguei me pareceu bem simples

Código: Selecionar todos

procedure Main()
  alert ("teste")
  shLibKrnl32 := LoadLibrary("KERNEL32.DLL")
  alert (shLibKrnl32)
  CallProc (GetProcAddress(shLibKrnl32, "MultiByteToWideChar"), 0, 0, pcStr, -1, pnPtrWide, LEN(pcStr) + 1)
  FreeLibrary(shLibKrnl32)
return
O que tenho de incluir no meu prg para que LoadLibrary, CallProc e FreeLibrary sejam aceites ?

ac

Enviado: 06 Abr 2005 20:49
por culik
ola

pegue o arquivo dllbema na area de arquivos da lista harbourbr
e o fonte para poder usar a dll da bematech com xharbour

[]´s
Luiz
www.xharbour.com.br