FiveTech Software tech support forums

... but I wrapped them like Function XSetProxYSSL( nChan, nFlags, cPDir, cPCert, cPEXE ) *----------------------------------------------------- local uResult local cFarProc if Abs( hDLL ) > 32 cFarProc := GetProcAddress( hDLL, "seeSetProxySSL",.T.,_INT,LONG,LONG,LPSTR,LPSTR,LPSTR) // ...

... also can not handle dynamic SQLs. Still this is very convenient. In my personal library for ADO, I handle Commands the same way. Finally I call uResult := oCmd:Execute( cCity, nAge, .... )

... * New: Class TMeterEx METHOD SetTotal( nTotal ) to have compatibility with Class TMeter. * New: function Execute( cCode, [ params, ... ] ) --> uResult invokes the builted in Harbour compiler so you can compile any external file or dinamically built code. Please review FWH\samples\scripts.prg ...

... any external file with code or dinamically generated code from your app :-) In FWH 12.07 we provide a new function Execute( cCode, params ) --> uResult that simplifies the process,

... _INT,WORD,_INT ) nResult := CallDLL( cFarProc,::hWnd,nPixType ) Endif Return Self METHOD SetResolution( nDpi ) LOCAL cFarProc LOCAL uResult DEFAULT nDpi := 100 IF ::lLoad cFarProc := GetProcAddress( ::hDLL, "TWAIN_SetResolution",.T., VOID,_DOUBLE ) uResult := CallDLL( cFarProc,nDpi ...

... return iif( lAcept, cText, cMemo ) //--------------------------------- function uCharToVal( cValue, uType ) local cType := ValType( uType ) local uResult do case case cType == "C" uResult = cValue case cType == "N" uResult = Val( cValue ) case cType == "D" uResult ...

... use this to execute a Harbour dynamically loaded pcode DLL function or procedure: HB_DllDo( <cFuncName> [,<params...>] ) --> [<uResult>] This lets you have all your common code in a DLL, and have lots of small EXEs that use it. Realize however that, even though this may be ...

... use this to execute a Harbour dynamically loaded pcode DLL function or procedure: HB_DllDo( <cFuncName> [,<params...>] ) --> [<uResult>] This lets you have all your common code in a DLL, and have lots of small EXEs that use it. Realize however that, even though this may be ...

... [,<ParN> AS <TypN>] [AS <cRes>] [LIB <cLib>] [ALIAS <cAlias>] =>; Local hDll:=DllHandle( <cLib> );; Local uResult, cFarProc;; IF Abs(hDll) > 32 ;; cFarProc := GetProcAddress(hDLL, if( [Empty(<cAlias>) ==] .T., <(cFunction)>, <cAlias> ...

... use this to execute a Harbour dynamically loaded pcode DLL function or procedure: HB_DllDo( <cFuncName> [,<params...>] ) --> [<uResult>] This lets you have all your common code in a DLL, and have lots of small EXEs that use it. Realize however that, even though this may be ...

... use this to execute a Harbour dynamically loaded pcode DLL function or procedure: HB_DllDo( <cFuncName> [,<params...>] ) --> [<uResult>] This lets you have all your common code in a DLL, and have lots of small EXEs that use it. Realize however that, even though this may be ...

... use this to execute a Harbour dynamically loaded pcode DLL function or procedure: HB_DllDo( <cFuncName> [,<params...>] ) --> [<uResult>] This lets you have all your common code in a DLL, and have lots of small EXEs that use it. Realize however that, even though this may be ...

... InternetReadFile( hFile ,sBuffer,lNumBytesToRead,lNumberOfBytesRead ) local hDLL := iIf( ValType( xdll ) == "N", xdll, LoadLib32( "xdll" ) ) local uResult local cFarProc local sb1 := sbuffer , sb2, sb3 if Abs( hDLL ) > 32 cFarProc = GetProcAdd( hDLL, "InternetReadFile" ,.T., 7 , 7 , 8 , 7, 7 ...

... proporcionar una clase para tal fín. Las funciones son: CreateOleObject() --> hOle OleInvoke( hOle, cMethodName, uParam1, ..., uParamN ) --> uResult OleSetProperty( hOle, cPropertyName, uParam1, ..., uParamN ) OleGetProperty( hOle, cPropertyName ) --> uValue

... _INT,WORD,_INT ) nResult := CallDLL( cFarProc,::hWnd,nPixType ) end RETU Self METHOD SetResolution( nDpi ) // NEW LOCAL cFarProc LOCAL uResult DEFAULT nDpi := 100 if ::lLoad cFarProc := GetProcAddress( ::hDLL, "TWAIN_SetResolution",.T., VOID,_DOUBLE ) uResult := CallDLL( cFarProc,nDpi ...