FiveTech Software tech support forums

by **Antonio Linares** » Sat Jun 04, 2022 6:43 am

We have managed to create a new Class TWebView to use Microsoft Edge from FWH apps and the SAME source code works with Borland, Microsoft and MinGW and xHarbour too !!! :-D

Code: Select all Expand view: // Please install https://developer.microsoft.com/en-us/m ... /webview2/ x86 version before using it #include "FiveWin.ch" function Main() local oWebView := TWebView():New() oWebView:Navigate( "http://www.google.com" ) oWebView:Run() oWebView:Destroy() return nil

by **ssbbs** » Sat Jun 04, 2022 8:02 am

Can I run and get result embedded javascript?

by **Antonio Linares** » Sat Jun 04, 2022 9:42 am

Yes, it is properly working, in example:

oWebView:Eval( 'document.body.style.backgroundColor = "#' + NumToHex( hb_Random( 0xFFFFFF ) ) + '"' )

by **Horizon** » Sat Jun 04, 2022 10:49 am

Antonio Linares wrote:Yes, it is properly working, in example:

oWebView:Eval( 'document.body.style.backgroundColor = "#' + NumToHex( hb_Random( 0xFFFFFF ) ) + '"' )

waiting!.....

by **cmsoft** » Sat Jun 04, 2022 1:47 pm

Excelente Antonio, cuando estará disponible?

by **ssbbs** » Sat Jun 04, 2022 2:06 pm

Antonio Linares wrote:Yes, it is properly working, in example:

oWebView:Eval( 'document.body.style.backgroundColor = "#' + NumToHex( hb_Random( 0xFFFFFF ) ) + '"' )

How to get result?
ex: oWebView:Eval("return (1+2);")

by **leandro** » Sat Jun 04, 2022 4:02 pm

Que buena noticia

by **Antonio Linares** » Sat Jun 04, 2022 5:24 pm

ssbbs wrote:
Antonio Linares wrote:Yes, it is properly working, in example:

oWebView:Eval( 'document.body.style.backgroundColor = "#' + NumToHex( hb_Random( 0xFFFFFF ) ) + '"' )

How to get result?
ex: oWebView:Eval("return (1+2);")

Basically this is the used technique:

oWebView:Bind( "SendToFWH", SendToFWH() ) // this creates a javascript function "SendToFWH" that will call FWH SendToFWH()
oWebView:Eval( "SendToFWH( 1 + 2 )" ) // this way we return a value from javascript to FWH

there is some C source code involved that we are working to simplify using the Class TWebView :-)

by **ssbbs** » Sun Jun 05, 2022 2:55 am

great!

by **Antonio Linares** » Mon Jun 06, 2022 7:50 am

We managed to simplify all the required low level C code and see how nice and simple looks now:

You can use the "SendToFWH" name or any other name you may prefer ;-)

Code: Select all Expand view: #include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oWebView := TWebView():New() oWebView:bOnBind = { | cJson, nCalls | MsgInfo( cJson, nCalls ) } oWebView:Bind( "SendToFWH" ) oWebView:Navigate( Html() ) Sleep( 200 ) oWebView:Eval( "SendToFWH( 'ok' )" ) oWebView:Run() oWebView:Destroy() 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> <button onclick='SendToFWH( 123 )'>Call FWH app from web browser</button> <button onclick='SendToFWH( 456 )'>Test 2</button> <button onclick='SendToFWH( 123, 456, "yes it works!" )'>Test 3</button> </body> </html> ENDTEXT return cHtml //----------------------------------------------------------------------------//

by **Horizon** » Mon Jun 06, 2022 9:17 am

Antonio Linares wrote:We managed to simplify all the required low level C code and see how nice and simple looks now:

You can use the "SendToFWH" name or any other name you may prefer

Code: Select all Expand view
#include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oWebView := TWebView():New() oWebView:bOnBind = { | cJson, nCalls | MsgInfo( cJson, nCalls ) } oWebView:Bind( "SendToFWH" ) oWebView:Navigate( Html() ) Sleep( 200 ) oWebView:Eval( "SendToFWH( 'ok' )" ) oWebView:Run() oWebView:Destroy() 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> <button onclick='SendToFWH( 123 )'>Call FWH app from web browser</button> <button onclick='SendToFWH( 456 )'>Test 2</button> <button onclick='SendToFWH( 123, 456, "yes it works!" )'>Test 3</button> </body> </html> ENDTEXT return cHtml //----------------------------------------------------------------------------//

Hi Antonio,

Can you give me an example that is read from an write to hmtl website.

When can we test this class?

Thanks.

by **Antonio Linares** » Mon Jun 06, 2022 6:43 pm

Dear Hakan,

> Can you give me an example that is read from an write to hmtl website.

Not sure what you are asking exactly.

Using oWebView:Eval( cJavaScriptExpression ) you invoke javascript code from your FWH app and
you get the result using a codeblock oWebView:bOnBind. This is very powerful.

> When can we test this class?

We want to publish a FWH 22.06 asap

by **MGA** » Tue Jun 07, 2022 2:34 pm

con la clase TWEBVIEW será posible volver a tener mapas (googlemaps) en diálogo (activeX)?

by **Antonio Linares** » Tue Jun 07, 2022 5:15 pm

Aqui tienes los mapas funcionando :-)

viewtopic.php?p=248110&sid=3287c8ad5b8e0f81744d69e7509dd8f9#p248110

by **Giovany Vecchi** » Tue Jun 07, 2022 5:48 pm

Very good Antonio.
I was taking a class too. I already had all the functions and I managed to work to run inside a resource or Window directly without having to capture the WebView window.
As I don't have time to improve the class, I'll wait for the native class for FiveWin.

FiveTech Software tech support forums

New Class TWebView in next FWH build

New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Re: New Class TWebView in next FWH build

Who is online