FiveTech Software tech support forums

... := If( ValType( "user32.dll" ) == "N", "user32.dll", LoadLibrary( "user32.dll" ) ) ; local uResult ; local cFarProc ; if Abs( _hDLL ) > 32 ; cFarProc = GetProcAdd( _hDLL, If( Empty( "GetWindowTextA" ) == .T., "GetTextW", "GetWindowTextA" ...

... 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) // 32 Bits uResult ...

... Self METHOD End() IF ::hDib != 0 ::Free( ::hDib ) Endif FreeLibrary( ::hDll ) Return .T. METHOD DigiToFile(cFILE,nRES) LOCAL nPixType := 0 LOCAL cFarProc DEFAULT nRes := 100 ::SetResolution( nRes ) IF ::lLoad cFarProc := GetProcAddress( ::hDLL, "TWAIN_AcquireNative",.T., WORD,WORD,_INT ...

Antonio, I already did this as the forst thing to detect where is the problem. it hags on every place where I call n = CallDLL(cFarProc , c3) for example. I must say that this kind of call when compiled on Windows 7 OS will NOT work!!! I am using one DLL which controls the dongle attached ...

Nobody is compiling on Windows 7 OS and also using the programs that uses DLL functions?? Nobody has problems using this syntax: cFarProc := GetProcAddress(hDLL, "iSEDUnlockKey",.T.,LONG, STRING) cString := "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"" // This is the UNLOCK ...

... you are directing the report to a printer // ========================================================================== */ METHOD PEOPEN_() LOCAL cFarProc LOCAL cFunc := "PEOpenEngine" IF ::l32 cFarProc := GetProc32( ::hDLL, cFunc, .T., LONG ) ::lError := ( CallDll32( cFarProc ) == FALSE ...

... cPort) No tCRW.PRg coloque isto: MESSAGE SetPrinter32 METHOD SetPrinter32_ + Method SetPrinter32_( cDriver, cPrinter, cPort) LOCAL nRet LOCAL cFarProc := "PESelectPrinter" cFarProc := GetProcAdd( ::hDll, cFarProc,.T.,_INT,LONG,LPSTR ,LPSTR,LPSTR,LONG) nRet := CallDll( cFarProc, ::nJobHandle, ...

... 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> ),; .T.,<cRes> ...

... you are directing the report to a printer // ========================================================================== */ METHOD PEOPEN_() LOCAL cFarProc LOCAL cFunc := "PEOpenEngine" IF ::l32 cFarProc := GetProc32( ::hDLL, cFunc, .T., LONG ) ::lError := ( CallDll32( cFarProc ) == FALSE ) ELSE ...

... 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 ) uResult = CallDLL( ...

... LOADLIBRARY( CALLDLL ) IF ABS( NDLL ) <= 32 // could not load library NDLL := NIL ENDIF CALLPROC := "I2PDF_SilentRunning" RETURN_TYPE := VOID CFARPROC := GetProcAddress(NDLL,CALLPROC, PASCAL_TYPE, RETURN_TYPE, LONG ) RETVAL := CALLDLL( CFARPROC )

... hDLL, cFunc, lType, nRetType, nPType1, nPType2, nPType3, nPType4, nPType5, nPType6, nPType7, nPType8, nPType9, nPType10 ) Function CallDLL32( cFarProc, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6, uParam7, uParam8, uParam9, uParam10 ) Return CallDLL( cFarProc, uParam1, uParam2, uParam3, ...

... this? Thanks Peter ********************* Method Create( sMutexAttr, lInitialOwner, cName ) Class TMutex Local hDLL := LoadLib32( iKERNEL ) Local cFarProc, cFunc := "CreateMutexA", cBuffer := Nil Default lInitialOwner := .F., cName := "FiveWin App" If ValType( sMutexAttr ) == "O" .and. ; Upper( ...

... cPort := PrnGetPort() oCrw:SetPrinter32( cDriver, cPrinter, cPort) Method SetPrinter32( cDriver, cPrinter, cPort) CLASS Crystal32 LOCAL nRet LOCAL cFarProc := "PESelectPrinter" cFarProc := GetProcAddress( ::hDll, cFarProc,.T.,_INT,LONG,LPSTR ,LPSTR,LPSTR,LONG) nRet := CallDll( cFarProc, ::nJobHandle, ...

... ::hDib ) end FreeLibrary( ::hDll ) RETU NIL METHOD DigiToFile( cFile , nRes ) // Acquire Document & save to file LOCAL nPixType := 0 LOCAL cFarProc DEFAULT nRes := 100 ::SetResolution( nRes ) if ::lLoad cFarProc := GetProcAddress( ::hDLL, "TWAIN_AcquireNative",.T., WORD,WORD,_INT ) ::hDib ...