FiveTech Software tech support forums

Yes, I declared the hLib variable. But the following error occurs: Error description: Error BASE/1089 Argument error: ABS Args: [ 1] = P 0x0 Stack Calls =========== Called from: => ABS( 0 ) Called from: .\source\classes\IMAGE.PRG ...

Dear Natter,

static hLib must be declared before any code above

I tried to run the Load Free Image() function in my program.
I received a message about the absence of the hLib variable.
If you set STATIC hLib, the compilation message will appear - STATIC declaration follows executable statement

... Harbour. You are getting the run time error at this line while executing this line in function LoadFreeImage() in image.prg      if hLib <= 32  This is because while using xHarbour, hLib is a pointer but not numeric. I also agree that this problem was not there in earlier ...

Carlos,

la línea 22919 tienes que cambiarla asi:

static HMODULE m_hLib = NULL;

fijate en los errores, porque ellos te marcan las soluciones

Another , how use ftp over TLS ? hLib = LOADLIBRARY( "wininet.dll" ) hInternet := INETOPEN( "Anystring", 1, 0, 0, 0 ) hConnect := INETCONNECT( hInternet, "www.xtech.com.cn",21, "xxx@xtech.com.cn", "erp6.5", ...

... mensaje('Error : '+cHttp) else ? memoread('c:\SunatX.jpg') endif *----------------------------* function URLDownLoad(cUrl, cSaveAs) //hLib = LOADLIBRARY( "urlmon.dll") if !URLDownloadToFile( 0, cUrl, cSaveAs, 0, 0 ) == 0 retu.f. endif //FREELIBRARY( hLib ) retu.t. DLL32 FUNCTION ...

... = FICNV24( hDib ) lOk = FISAVE( nDstFormat, hDib2, cDstFile, nQuality ) FIUNLOAD( hDib ) FIUNLOAD( hDib2 ) endif return lOk 2.myapp.prg static hLib ... ... buttion action FISAVEIMG( "tmp1.bmp", "tmp1.jpg", 2, 95) DLL32 FUNCTION FISAVE( nFormat AS LONG, hDib AS LONG, cFileName ...

... "Fivewin.ch" #include "Dll.Ch" #include "Objects.Ch" #include "Hbclass.ch" FUNCTION md204() LOCAL clObj,hLib LOCAL PathCert:="\mlmall\config\pos\zofri.pfx" LOCAL PassCert:="Ah2Cfg723rQ" LOCAL cDllname:="\MLMall\Config\POS\MkSg.InterfazPOS.Security.dll" ...

... LOCAL ts_mod:='M',ts_folio:='12345' LOCAL ts_tbruto:=15000,ts_tneto:=13000,ts_timp:=2000 hlib := loadlibrary(cDllName) if abs(hlib)<=32 msgAlert ("Error Code: "+Ltrim(str(hlib))+" Loading "+ cDllName ) return .t. endif ...

... LOCAL cDllname:="\MLMall\Config\POS\MkSg.InterfazPOS.Security.dll" LOCAL ts_token:="" LOCAL clObj hlib := loadlibrary(cDllName) INI oIni File "\MLMALL\config\config.ini" GET ts_token SECTION "TOKEN SESION "+e_rut ENTRY "Token" ...

Error description: Error BASE/1003 Variable does not exist: HLIB

... mensaje('Error : '+cHttp) else ? memoread('c:\MisDescargas\Respuesta.txt') endif *----------------------------* func URLDownLoad(cUrl, cSaveAs) hLib = LOADLIBRARY( "urlmon.dll") if !URLDownloadToFile( 0, cUrl, cSaveAs, 0, 0 ) == 0 retu.f. endif FREELIBRARY( hLib ) retu.t. DLL32 FUNCTION ...

Viktor,

Estos IF tienen que estar en minusculas:

IF ( hLib )

No pierdas tu tiempo en pelearte con esto, deja que nosotros lo solucionemos y luego los usaras comodamente

... activate dialog odlg return 2. download.prg : #include "fivewin.ch" #include "dll.ch" static hLib FUNCTION main() hLib = LOADLIBRARY( "urlmon.dll") if URLDownloadToFile( 0, "http://www.xtech.com.cn/down/app.exe", ".\app.exe", ...