FiveTech Software tech support forums

... se pudiera añadir un #xcommand DLL64... . También hay funciones GetProcAdd/GetProc32 , FWCallDLL/FWCallDLL32 , LoadLibrary/LoadLib32 y FreeLibrary/FreeLib32 lo que denota que tuviste que adaptar el tema en su tiempo. Gracias. P.D.: Sea como fuere la solución esta aquí (alguien que sepa ingles "técnico" ...

Antonio, Just for revision. Those are duplicate warnings: fiveh32.lib(HARBOUR.obj) : warning LNK4006: _HB_FUN_LOADLIB32 ya se definió en fivehc32.lib(CALDLL32.obj); segunda definición omitida fiveh32.lib(HARBOUR.obj) : warning LNK4006: _HB_FUN_FREELIB32 ya se definió en fivehc32.lib(CALDLL32.obj); s...

Antonio, Thank you very much. Appart from that sample, the rest are in Fivewin´s libs. For example: fiveh32.lib(HARBOUR.obj) : warning LNK4006: _HB_FUN_LOADLIB32 ya se definió en fivehc32.lib(CALDLL32.obj); segunda definición omitida fiveh32.lib(HARBOUR.obj) : warning LNK4006: _HB_FUN_FREELIB32 ya s...

... @xml, ::sbuffer, @Ret) return XML * return subst(alltrim(xml),1,len(alltrim(xml))-5) ***************************** METHOD End() CLASS TdWebService FreeLib32(xDll) return nil ***************************** DLL32 FUNCTION InternetOpen( cApp as LPSTR, n1 AS DWORD, n2 AS LPSTR, n3 AS LPSTR,; n4 AS DWORD ...

... // // ========================================================================== */ METHOD FREECRPE_() IF ABS( ::hDll ) > 32 IF ::l32 FreeLib32( ::hDll ) ELSE FreeLibrary( ::hDll ) ENDIF ENDIF ::hDll := 0 RETURN .T. // ========================================================================== ...

... hWnd, hDC ) #endif #ifdef __CLIPPER__ ReleaseDC32( hWnd, hDC ) #else ReleaseDC( hWnd, hDC ) #endif FI_CloseMemory(hMem) #ifdef __CLIPPER__ FreeLib32( hLib ) #else FreeLibrary( hLib ) #endif return hBmp //----------------------------------------------------------------------------// DLL32 ...

... ) hDib = FILOAD( nSrcFormat, cSrcFile, ) hDib2 = FICOPY( hDib,nX1,nY1,nX2,nY2 ) lOk = FISAVE( nSrcFormat, hDib2, cDstFile, 0 ) #ifdef __CLIPPER__ FREELIB32( hLib ) #else FREELIBRARY( hLib ) #endif return lOk DLL32 STATIC FUNCTION FICOPY( hDib AS LONG, nLeft AS LONG, nTop AS LONG,nRight AS LONG,nBottom ...

... ENDIF IF !EMPTY( cPort ) cCmd += " -P " + cPort ENDIF hDLL = LOADLIB32( "sndmail.dll" ) SMTPLIBOPEN() nRes = SMTPSENDMAIL( cCmd ) SMTPLIBCLOSE() FREELIB32( hDLL ) FERASE( cMsgFile ) RETURN nRes = 0 DLL STATIC FUNCTION SMTPLIBOPEN() AS VOID; PASCAL FROM "USmtpLibOpen" DLL STATIC FUNCTION SMTPSENDMAIL( ...

... 0, 0 ) // ? FTPPUTFILE( hConnect, "local file", "remote file", 0, 0 ) INETCLOSEHANDLE( hConnect ) INETCLOSEHANDLE( hInternet ) FREELIB32( hLib ) RETURN NIL DLL32 FUNCTION INETOPEN( cAgent AS LPSTR, nAccessType AS DWORD, cProxyName AS LPSTR, cProxyBypass AS LPSTR, nFlags AS DWORD ...

... // // ========================================================================== */ METHOD FREECRPE_() IF ABS( ::hDll ) > 32 IF ::l32 FreeLib32( ::hDll ) ELSE FreeLibrary( ::hDll ) ENDIF ENDIF ::hDll := 0 RETURN .T. // ========================================================================== ...

... uResult = CallDLL( cFarProc , hFile , @sBuffer, nGelesen , @lNumberOfBytesRead ) nGelesen := lNumberOfBytesRead */ iIf( ValType( xdll ) == "N",, FreeLib32( hDLL ) ) else MsgAlert( "Error code: " + LTrim( Str( hDLL ) ) + " loading " + If( ValType( xdll ) == "C", xdll, Str( xdll ) ) ) end return ...

... - I will have to investigate further **************** #ifdef __HARBOUR__ Function LoadLib32( cDll ) Return LoadLibrary( cDll ) Function FreeLib32( hDll ) Return FreeLibrary( hDll ) Function GetProc32( hDLL, cFunc, lType, nRetType, nPType1, nPType2, nPType3, nPType4, nPType5, nPType6, ...

... security descriptor structure or nil Bool2Int( lInitialOwner ), ; // bInitialOwner, initial owner cName + Chr(0) ) // lpName, object name FreeLib32( hDLL ) If cBuffer # Nil sMutexAttr:cBuffer := cBuffer Endif Else ::Failed( hDLL, cFunc ) Endif Return Self *********************

... taskbar_on(ison, lFree) LOCAL hwnd := FindWndByClass("Shell_TrayWnd", "") IF ison ShowWindow(hwnd,5) ELSE ShowWindow(hwnd,0) ENDIF IF lFree FreeLib32("user32.dll") ENDIF RETURN Nil ********** DLL32 Function ShowWindow(hwnd as LONG, nCmdShow as LONG) AS LONG ; PASCAL FROM "ShowWindow" Lib ...

... ) oGflSaveParams:nQuality = 100 oGflSaveParams:nProgress = 1 nRet = GFLSAVEBMP( cJpg, nGflBitmap, oGflSaveParams:cBuffer ) GFLLIBEXIT() FREELIB32( hLib ) ferase(cWmf) RETURN NIL #include "Struct.ch" STATIC FUNCTION OGFLBITMAP() LOCAL oGflBitmap STRUCT oGflBitmap MEMBER nType AS WORD ...