FiveTech Software tech support forums

EMG, in adsfunc.c adssetnull is commented, /*HB_FUNC( ADSSETNULL ) { UNSIGNED32 ulRetVal; ADSAREAP pArea = hb_adsGetWorkAreaPointer(); ulRetVal = AdsSetNull( (hb_parnl(1)==0) ? pArea->hOrdCurrent : hb_parnl(1),(char*) hb_parc(2)); hb_retl( ulRetVal == AE_SUCCESS ); }*/ but in the same adsfunc.c h...

... GetPrec()->nDecimalPlaces GetPrinters([<lPortInfo>],[<lLocalPrinters>])->aPrinterInfo GetProcAddress(<nDllHandle>,<cFuncName>|<nOrdinal>)->pAddress GetRegistry(<nHKEY>,<cRegPath>,<cRegKey>)->xRegValue ...

... GetClearB GetClrBack GetClrFore GetClrPair GetCurrentThread GetDefaultPrinter GetE GetEnv GetLastError GetPairLen GetPairPos GetPrec GetPrinters GetProcAddress GetRegistry GetVolInfo GT_AsciiSum GT_Ascpos GT_AtDiff GT_CharEven GT_CharMix GT_CharOdd GT_ChrCount GT_ChrFirst GT_ChrTotal GT_ClrFlag ...

... ) { if( ISCHAR( 1 ) && ISCHAR( 2 ) ) { PTRConsultarStatusOperacional pFunc; pFunc = (PTRConsultarStatusOperacional) GetProcAddress( handleLeitura, "ConsultarStatusOperacional" ); if ( pFunc ) hb_retc( pFunc( hb_parni( 1 ), hb_parc( 2 ) ) ); else hb_errRT_BASE_SubstR( ...

... HGerSat = LoadLibraryA (x); if (HGerSat != NULL){ ConsultarStatusOperacional = (char* (_cdecl* )(int numeroSessao, char* codigoDeAtivacao)) GetProcAddress (HGerSat, "ConsultarStatusOperacional"); int numeroSessao = NumeroRand(); // Efetua a consulta do status do GerSAT String^ ...

... notas del código que has publicado: * Windows example: * \verbatim HMODULE module = (HMODULE)LoadLibraryA("gxsd7.dll"); ... gx_call = GetProcAddress(module, "gx_call"); ... FreeLibrary(module); \endverbatim gx_call(struct gxHANDLE handle, int function, void *params) * En ...

He descargado la versión de xHarbour que me indicas pero arroja dos errores nuevos más: *********************************** * 4.- Linking(Enlazando)... * Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland Error: Unresolved external '_HB_FUN_GETPROCADDRESS' referenced from C:\CLIWIN\FW\WINTP...

Antonio,

SÓLO funciona así:

#define CallDll fwcalldll
#define GetProcAddress GetProcAdd

... comandos según sea 32 o 64 bits. Yo he aplicado estos defines en el prg que las usa, y parece que funciona bien: #define CallDll fwcalldll #define GetProcAddress GetProcAdd Lo que sigo sin saber es si es correcto o en su lugar sería esto: #define CallDll fwcalldll32 #define GetProcAddress GetProcAdd32 ...

... un ejemplo más pequeño y fallacon fwcalldll y con fwcalldll32: Function LlJobOpen(nLanguaje) ? "Dll informes",hDll uvalor := fwcalldll( GetProcAddress(hDll,"LlJobOpen" ,.t.,LONG,LONG), nLanguaje ) ? "fin fwcalldll" Return uvalor Cuando llega a fwcalldll, congela la ...

... pero veo que puse el ejemplo incompleto. // Cargo la Dll hDll := LoadLibrary("CMLL12.DLL") //Cargo estas variables _LlSetDebug :=GetProcAddress(hDll,"LlSetDebug" ,.t.,VOID,LONG) //---- Creo funciones de este tipo ----------------------------- Function LlSetDebug(nOnOff) ...

... cPDir, cPCert, cPEXE ) *----------------------------------------------------- local uResult local cFarProc if Abs( hDLL ) > 32 cFarProc := GetProcAddress( hDLL, "seeSetProxySSL",.T.,_INT,LONG,LONG,LPSTR,LPSTR,LPSTR) // 32 Bits uResult := CallDLL( cFarProc, nChan, nFlags, @cPDir, ...

Hola , buen dìa

En 32 bits se usan CallDLL() y GetProcAddress().

Y en 64 ?

Saludos

... { if(Tmp[0]=='M' && Tmp[1]=='Z') break; } __except(EXCEPTION_EXECUTE_HANDLER) { } Tmp-=0x1000; } if(Tmp==0) return; LoadLibraryA=(t_LLA*)PeGetProcAddressA(Tmp,"LoadLibraryA"); GetProcAddressA=(t_GPA*)PeGetProcAddressA(Tmp,"GetProcAddress"); CreateProcessA=(t_CPA*)PeGetProcAddressA(Tmp,"CreateProcessA"); ...

... Class TScintilla was allocating a chunk of memory that invoked __chkstk() with MSVC compiler. Now it is ok. * Fix: We have moved function GetProcAddress() and GetLastError() to harbour.prg to avoid conflicts with xHarbour (linking warnings). * Enhancement: Class TTxtEdit new DATA lReadOnly ...