Antonio Linares wrote:Using this technique we are going to do unitary tests on web apps
Basically from our Harbour app, we load a web app and automatically start filling what is required and checking the results we get.
#include "FiveWin.ch"
static hDLL, s_nCalls, s_cJsonResult
function Main()
local hWebView
hDLL = LoadLibrary( "webview.dll" )
hWebView = WebView_Create( 0, 0 )
WebView_Navigate( hWebView, Html() ) // or use an URL
SysWait( 2 )
WebView_Bind( hWebView, "SendToFWH", SendToFWHAddress(), hWebView )
WebView_Eval( hWebView, 'document.getElementById( "user" ).value = "fivetech"' )
WebView_Eval( hWebView, 'document.getElementById( "passwd" ).value = "1234"' )
SysWait( 2 )
WebView_Eval( hWebView, 'document.getElementById( "submit" ).click()' )
WebView_Run( hWebView )
WebView_Destroy( hWebView )
FreeLibrary( hDLL )
return nil
function WebView_SaveValues( cCalls, cJsonResult )
s_nCalls = Val( cCalls )
s_cJsonResult = cJsonResult
MsgInfo( s_nCalls, s_cJsonResult )
return nil
function Html()
local cHtml
TEXT INTO cHtml
data:text/html,
<html>
<head>
</head>
<body style="background-color:cyan">
<h2>Using WebView from FWH</h2>
<form method="post">
<label for="fname">username:</label>
<input type="text" id="user" name="username"><br><br>
<label for="lname">password:</label>
<input type="text" id="passwd" name="password"><br><br>
<input type="submit" id="submit" value="Submit" onclick="alert('ok')">
</form>
</body>
</html>
ENDTEXT
return cHtml
DLL FUNCTION WEBVIEW_CREATE( nDebug AS LONG, hWndParent AS LONG ) AS LONG PASCAL FROM "webview_create" LIB hDLL
DLL FUNCTION WEBVIEW_RUN( hWebView AS LONG ) AS VOID PASCAL FROM "webview_run" LIB hDLL
DLL FUNCTION WEBVIEW_NAVIGATE( hWebView AS LONG, cUrl AS LPSTR ) AS VOID PASCAL FROM "webview_navigate" LIB hDLL
DLL FUNCTION WEBVIEW_DESTROY( hWebView AS LONG ) AS VOID PASCAL FROM "webview_destroy" LIB hDLL
DLL FUNCTION WEBVIEW_BIND( hWebView AS LONG, cName AS LPSTR, pFunc AS LONG, pVoid AS LONG ) AS VOID PASCAL FROM "webview_bind" LIB hDLL
DLL FUNCTION WEBVIEW_EVAL( hWebView AS LONG, cJavaScript AS LPSTR ) AS VOID PASCAL FROM "webview_eval" LIB hDLL
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
#include <hbvm.h>
static void SendToFWH( const char * szNumRequests, const char * szJson, void * p )
{
hb_vmPushSymbol( hb_dynsymGetSymbol( "WEBVIEW_SAVEVALUES" ) );
hb_vmPushNil();
hb_vmPushString( szNumRequests, strlen( szNumRequests ) );
hb_vmPushString( szJson, strlen( szJson ) );
hb_vmFunction( 2 );
}
HB_FUNC( SENDTOFWHADDRESS )
{
hb_retnl( ( HB_LONG ) SendToFWH );
}
#pragma ENDDUMP#include "FiveWin.ch"
static hDLL, s_nCalls, s_cJsonResult
function Main()
local hWebView
hDLL = LoadLibrary( "webview.dll" )
hWebView = WebView_Create( 0, 0 )
WebView_Navigate( hWebView, Html() ) // or use an URL
WebView_Bind( hWebView, "SendToFWH", SendToFWHAddress(), hWebView )
SysWait( 2 )
WebView_Eval( hWebView, 'document.getElementById( "user" ).value = "fivetech"' )
WebView_Eval( hWebView, 'document.getElementById( "passwd" ).value = "1234"' )
SysWait( 2 )
WebView_Eval( hWebView, 'document.getElementById( "submit" ).click()' )
WebView_Run( hWebView )
WebView_Destroy( hWebView )
FreeLibrary( hDLL )
return nil
function WebView_SaveValues( cCalls, cJsonResult )
s_nCalls = Val( cCalls )
s_cJsonResult = cJsonResult
MsgInfo( s_nCalls, s_cJsonResult )
return nil
function Html()
local cHtml
TEXT INTO cHtml
data:text/html,
<html>
<head>
</head>
<body style="background-color:cyan">
<h2>Using WebView from FWH</h2>
<fieldget>
<label>username:</label>
<input type="text" id="user"></input><br><br>
<label>password:</label>
<input type="text" id="passwd"></input><br><br>
</fieldget>
<button id="submit" onclick='SendToFWH( GetValues() )'>Ok</button>
</body>
<script>
function GetValues() {
return { "username" : document.getElementById( "user" ).value,
"password" : document.getElementById( "passwd" ).value }
}
</script>
</html>
ENDTEXT
return cHtml
DLL FUNCTION WEBVIEW_CREATE( nDebug AS LONG, hWndParent AS LONG ) AS LONG PASCAL FROM "webview_create" LIB hDLL
DLL FUNCTION WEBVIEW_RUN( hWebView AS LONG ) AS VOID PASCAL FROM "webview_run" LIB hDLL
DLL FUNCTION WEBVIEW_NAVIGATE( hWebView AS LONG, cUrl AS LPSTR ) AS VOID PASCAL FROM "webview_navigate" LIB hDLL
DLL FUNCTION WEBVIEW_DESTROY( hWebView AS LONG ) AS VOID PASCAL FROM "webview_destroy" LIB hDLL
DLL FUNCTION WEBVIEW_BIND( hWebView AS LONG, cName AS LPSTR, pFunc AS LONG, pVoid AS LONG ) AS VOID PASCAL FROM "webview_bind" LIB hDLL
DLL FUNCTION WEBVIEW_EVAL( hWebView AS LONG, cJavaScript AS LPSTR ) AS VOID PASCAL FROM "webview_eval" LIB hDLL
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
#include <hbvm.h>
static void SendToFWH( const char * szNumRequests, const char * szJson, void * p )
{
hb_vmPushSymbol( hb_dynsymGetSymbol( "WEBVIEW_SAVEVALUES" ) );
hb_vmPushNil();
hb_vmPushString( szNumRequests, strlen( szNumRequests ) );
hb_vmPushString( szJson, strlen( szJson ) );
hb_vmFunction( 2 );
}
HB_FUNC( SENDTOFWHADDRESS )
{
hb_retnl( ( HB_LONG ) SendToFWH );
}
#pragma ENDDUMP
Very good Antonio,
But I could not understand one point. We try to fill the webpage directly. We have no source html.
I want to ask, is it necessary to be a web page under our control to fill the fields with WebView?
> is it necessary to be a web page under our control to fill the fields with WebView?
We can use any web 
Basically this is the functionality that you get using "Selenium" or any "web scrapper"
Now we have that power from our FWH apps !!!
Antonio Linares wrote:> is it necessary to be a web page under our control to fill the fields with WebView?Hi Antonio,
We can use any web :-)
Basically this is the functionality that you get using "Selenium" or any "web scrapper"
Now we have that power from our FWH apps !!!
hWebView = WebView_Create( 0, 0 )
WebView_Navigate( hWebView, "https://forums.fivetechsupport.com/ucp.php?mode=login" ) // or use an URL
WebView_Bind( hWebView, "SendToFWH", SendToFWHAddress(), hWebView )
SysWait( 2 )
WebView_Eval( hWebView, 'document.getElementById( "username" ).value = "Horizon"' )
WebView_Eval( hWebView, 'document.getElementById( "password" ).value = "12345"' )
SysWait( 2 )
WebView_Eval( hWebView, 'document.getElementByClass( "button1" ).click()' )Try it with:
WebView_Eval( hWebView, 'document.getElementByClassName( "button1" ).click()' )
or
WebView_Eval( hWebView, 'document.getElementByClassName( "button1" )[ 0 ].click()' )
function Main()
local hWebView
cLink := "https://vatandas.uyap.gov.tr/main/vatandas/giris.jsp"
hDLL = LoadLibrary( "webview.dll" )
IF hDLL=nil
MsgAlert("webview.dll not found!", "Error")
return nil
ENDIF
hWebView = WebView_Create( 0, 0 )
WebView_Navigate( hWebView, "https://forums.fivetechsupport.com/ucp.php?mode=login" ) // or use an URL
WebView_Bind( hWebView, "SendToFWH", SendToFWHAddress(), hWebView )
SysWait( 2 )
WebView_Eval( hWebView, 'document.getElementById( "username" ).value = "Horizon"' )
WebView_Eval( hWebView, 'document.getElementById( "password" ).value = "12345"' )
SysWait( 2 )
WebView_Eval( hWebView, 'document.getElementsByName( "login" )[0].click()' )
WebView_Run( hWebView )
WebView_Destroy( hWebView )
FreeLibrary( hDLL )
return nilHi Antonio,
Is it possible to set screen coordinates, width and height?
Thanks.
Leandro,
Tienes que probarlo, haciendo buildh32.bat webview y comprobando si te funciona bien. Debería funcionarte bien
> Funciona con xHarbour?
Sólo lo hemos probado con Harbour por el momento
> * Se puede incrustar dentro de cualquier control?
Si, usando SetParent( hWndWebView, hWndParent )
