FiveTech Software tech support forums

richard-service

... instance->MyMethod(param);
}
// C Application
#include <windows.h>

typedef int (*CallDotNetFunction)(int);

int main() {
HMODULE hDll = LoadLibrary("Wrapper.dll");
CallDotNetFunction func = (CallDotNetFunction)GetProcAddress(hDll, "CallDotNetFunction");

int result = func(42 ...

... instance->MyMethod(param);
}
// C Application
#include <windows.h>

typedef int (*CallDotNetFunction)(int);

int main() {
HMODULE hDll = LoadLibrary("Wrapper.dll");
CallDotNetFunction func = (CallDotNetFunction)GetProcAddress(hDll, "CallDotNetFunction");

int result = func(42 ...

ShumingWang

1.
FUNCTION img2dbarcode()
local h2d
private hlib
hLib = LOADLIBRARY( "zint.dll" )

h2d:=ZBarcode_Create()
//// h2d should has datas: symbology,height,width,bitmap,...
?h2d:symbology
// error: method symbology does not exsist

ZBarcode_Encode_and_buffer(h2d,"abc45",5,0)
//error: will hangup ...

GUSPRE

... esto provoca que al llamar a las funciones internas de las DLL estas arrojen error.

He probado con los samples que vienen en FWH (Que usan LoadLibrary or LoadLib32) y hacen lo mismo , por ejemplo EMF.PRG
Error

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/01/24, 11:43:31 ...

... for it:
simply rename your RC file as rctoprg.rc and build rctoprg.prg

If you keep your dialogs inside a DLL then replace GetInstance() for LoadLibrary( "yourdll.dll" )

This example and the new C code listed at the bottom will be included in next FWH build.

rctoprg.prg
#include "FiveWin.ch ...

hi Antonio,

Could you kindly adapt this code to HMG ?

i´m not sure about "Callback" under HMG

will FWH CODE work when "LoadLibrary", "llama64.dll" or do i need DLL FUNCTION :?:

Dear Jimmy,

Does HMG support DLL FUNCTION ? or similar ? Or should we use Harbour default DLL management functions ...

hi Antonio,

Antonio Linares wrote: Could you kindly adapt this code to HMG ?

i´m not sure about "Callback" under HMG

will FWH CODE work when "LoadLibrary", "llama64.dll" or do i need DLL FUNCTION

Garbi

... 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Fatal: Unable to open file 'GDIPLUS.LIB'
* Linking errors *

Ademas si esta libreria : LoadLibrary( "riched20.dll" ) debe de estar en la carpeta de fwh\samples, no esta

Dear Randal,

xHarbour provides a function LoadLibrary() that returns a pointer, thats why we modified dll.ch to check if a pointer is returned and then we turn it into a number.

When you link FWH dll.c then you are using FWH LoadLibrary() that retuns a number and everything is correct.

So, again ...

Randal

I put together a small test and if works fine with Fivewin and Harbour (Borland) but not xBuilder/xHarbour.

The problem is with LoadLibrary, this function returns a pointer instead of a numeric value.

I'm linking these libs:

\fwh\lib\xfw.lib
\xhb\lib\xHBZIP.LIB
\xhb\lib\xHBZipDll.lib
\xhb\c_lib\win ...

Randal

... however, I'm getting an error in a particular function.

I'm using a 3rd party lib for emailing. This is the code in question:

hSmtp := LoadLibrary("CSMTPAV9.dll")
// Must initialize first. Should return true
lSmtpInit := SmtpInitialize(CSTOOLS9_LICENSE_KEY)

DLL FUNCTION SmtpInitialize ...

jpcavagnaro

Hola Antonio, el error lo tengo en el loadllibrary, lo que devuelve:

hDll := LoadLibrary( "winfis32.dll" )

el hDll = 0x0000000 si la librería existe o 0x0 si no existe, en lugar de devolver 0 si es correcto o el -1

Saludos
Jorge

Si hDLL vale cero (da igual que esté escrito en hexadecimal ...

jpcavagnaro

jpcavagnaro wrote:Hola Antonio, el error lo tengo en el loadllibrary, lo que devuelve:

hDll := LoadLibrary( "winfis32.dll" )

el hDll = 0x0000000 si la librería existe o 0x0 si no existe, en lugar de devolver 0 si es correcto o el -1

Saludos
Jorge

Hola Antonio, el error lo tengo en el loadllibrary, lo que devuelve:

hDll := LoadLibrary( "winfis32.dll" )

el hDll = 0x0000000 si la librería existe o 0x0 si no existe, en lugar de devolver 0 si es correcto o el -1

Saludos
Jorge

Si hDLL vale cero (da igual que esté escrito en hexadecimal ...

jpcavagnaro

Hola Antonio, el error lo tengo en el loadllibrary, lo que devuelve:

hDll := LoadLibrary( "winfis32.dll" )

el hDll = 0x0000000 si la librería existe o 0x0 si no existe, en lugar de devolver 0 si es correcto o el -1

Saludos
Jorge

FiveTech Software tech support forums

Search found 340 matches: loadlibrary

Re: How to convert LIB from .NET dll file

Re: How to convert LIB from .NET dll file

Re: How to add 2d barcode to fastreport or fwh/harbour？

Error Usando LoadLib32 o LoadLib - Retorno Puntero

Re: RC to PRG generator

Re: Using Microsoft AI Phi-2 from FWH

Re: Using Microsoft AI Phi-2 from FWH

Re: PDF en aplicacion con RICHEDIT

Re: xHarbour Commercial and latest FWH

Re: xHarbour Commercial and latest FWH

xHarbour Commercial and latest FWH

Re: Error al leer un dll

Re: Error al leer un dll

Re: Error al leer un dll

Re: Error al leer un dll