FiveTech Software tech support forums

... ) sin definir en el programa, lo que hice fue definir: Function RichEdit5( cText, cTitle, nTop, nLeft, nBottom, nRight ) local oFont, oDlg local hDLL local uTemp := If( ! Empty( cText ), cText, '' ) local lRich := .F., lGTF := .F., lOk := .F. publ oMemo DEFAULT nTop := 9, nLeft := 9, nBottom ...

Cambia esta línea:

local lAvailable := ! Empty( hDLL )

Hola Antonio, el error lo tengo en el loadllibrary, lo que devuelve: hDll := LoadLibrary( "winfis32.dll" ) el hDll = 0x0000000 si la librería existe o 0x0 si no existe, en lugar de devolver 0 si es correcto o el -1 Saludos Jorge Si hDLL vale cero ...

Hola Antonio, el error lo tengo en el loadllibrary, lo que devuelve: hDll := LoadLibrary( "winfis32.dll" ) el hDll = 0x0000000 si la librería existe o 0x0 si no existe, en lugar de devolver 0 si es correcto o el -1 Saludos Jorge Si hDLL vale cero ...

Hola Antonio, el error lo tengo en el loadllibrary, lo que devuelve:

hDll := LoadLibrary( "winfis32.dll" )

el hDll = 0x0000000 si la librería existe o 0x0 si no existe, en lugar de devolver 0 si es correcto o el -1

Saludos
Jorge

... FROM "Abort" LIB "winfis32.dll" deberias cambiarlas para que en vez de usar ... LIB "winfis32.dll" usen ... LIB hDll declara static hDll al comienzo del PRG donde las tengas y en tu código haz: hDll := LoadLibrary( "winfis32.dll" ) y cuando termines ...

... y salieron por la X sin guardar, se puede? Static Function RichEdit5( cText, cTitle, nTop, nLeft, nBottom, nRight ) local oFont, oDlg, oMemo local hDLL local uTemp := If( ! Empty( cText ), cText, '' ) local lRich := .F., lGTF := .F., lOk := .F. DEFAULT nTop := 9, nLeft := 9, nBottom := 27, nRight ...

... ... but Result is 0 ... as it look like the same Problem which i had with "Everything" i guess i need other Way under Fivewin   hDll = LoadLibrary( "Kernel32.dll" ) so i "load" DLL once at Start and than use hDll Handle. this work fine with "Everything" ...

... that you have a typo here: DLL FUNCTION Everything_SetRequestFlags( nFlag AS DWORD ) AS VOID PASCAL FROM "Everything_SetSearchA" LIB hDll it should be: DLL FUNCTION Everything_SetRequestFlags( nFlag AS DWORD ) AS VOID PASCAL FROM "Everything_SetRequestFlags" LIB hDll

Prueba asi:

cDatos = Space( 32000 )
Dllcall( hDLL, "INT", "CChex_Update",Anviz_handle,1,1,@cDatos,32000)

El error en estos casos se debe a que abres y cierras la DLL, cuando lo que debes es mantenerla abierta: public hDLL := hb_LibLoad( "tc-b_new_sdk.dll" ) a partir de ahi, usa hDLL en vez de "tc-b_new_sdk.dll" Anviz_handle:=DllCall( hDLL, "INT", "CChex_Start") ...

#include "FiveWin.ch" static hDLL function Main() local hWebView hDLL = LoadLibrary( "webview.dll" ) hWebView = WebView_Create( 0, 0 ) * WebView_Navigate( hWebView, Html() ) // or use a URL like "https://www.fivetechsoft.com/test.html" ...

César, se me pasó modificarlo en el ejemplo. En vez de hDLL tiene que ser pLib. Es para diferenciar el handle que se obtiene que no es el mismo que nos devuelve LoadLibrary() Ahora falta saber por que WebView_Navigate() no nos lleva a la URL especificada. ...

Antonio, que sería hDLL? No esta definida.
Si la cambio por pLib da un mensaje de Ok pero no muestra la pagina web