FiveTech Software tech support forums

www.FiveTechSoft.com
https://fivetechsupport.com/forums/

FWH 24.02 new Class TWebView2

https://fivetechsupport.com/forums/viewtopic.php?f=3&t=44289

Page 1 of 1

FWH 24.02 new Class TWebView2

PostPosted: Thu Feb 29, 2024 4:59 am
by Antonio Linares
Dear friends,

when we started looking for info to use WebView2 from FWH we found https://github.com/webview/webview

the code looked quite complex, so we decided to try the webview.dll which it is what we have been using in FWH until now

recently I talked about it to Bruno Cantero and as he is a very good expert with OLE and C++ and he decided to build his own version without using the DLL

he shared it with me and I started testing it :-)

there are some pros and cons:

1. we no longer need to use webview.dll neither WebView2Loader.dll, which is great news! :-)

2. webview.dll way of working does not follow the original Microsoft WebView2 implementation, so we are still working to find compatibility with FWH Class TWebView

that is why we have decided, in the meantime, to implement a new Class TWebView2 until we make it as much compatible as possible with existing Class TWebView.

Once we reach full compatibility, we will drop existing Class TWebView, so Class TWebView2 will be renamed as Class TWebView. And we will no longer need to use those DLLs :-)

In FWH 24.02 you can find in FWH\samples the original examples for Class TWebView. You can also find copies of them, in example: webview_2.prg which are the equivalents for Class TWebView2. Please notice that there are some differences, so you will have to review your current code to get it properly working with new Class TWebView2 (in the future it will become the official FWH Class TWebView)

Thanks for reading this message, we wanted to clearly explain what we are doing and why :-)

Re: FWH 24.02 new Class TWebView2

PostPosted: Fri Mar 01, 2024 3:18 pm
by Otto
Dear Antonio,

I was preparing an example for a PDF with preview, which Anton had already solved more simply in the forum in the meantime.

I had the problem here that I wanted to display the PDF in an iframe. I then realized that the webview2 denies access.
Then I wanted to allow access with oWebView:SetAllowFileAccess(.t.), but this is not supported.

Is this possible with the new version?

Best regards,
Otto

Not allowed to load local resource: file:///C:/fwh2023/samples/231113_FactSheet.pdf

Code: Select all  Expand view

function Main()

   local oWebView := TWebView():New(1)
    local cHtml := memoread( "c:\fwh2023\samples\pdfviewer.html" )
 
//  oWebView:SetAllowFileAccess( .t. )
   oWebView:SetHtml( cHtml )
   
 
   oWebView:SetTitle( "Microsoft Edge WebView working from FWH" )
   oWebView:SetSize( 1200, 800 )
   oWebView:SetUserAgent( "Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.5060.53 Mobile Safari/537.36" )
   sleep( 600 )
   oWebView:Run()
   oWebView:Destroy()

return nil
 



Code: Select all  Expand view


<!DOCTYPE html>
<html lang="de">
  <head>
   <meta charset="UTF-8">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <title>Restaurant Tischplan</title>

    <script src="https://code.jquery.com/jquery-3.6.0.min.js"></script>
    <link href="https://cdn.jsdelivr.net/npm/bootstrap@5.3.2/dist/css/bootstrap.min.css" rel="stylesheet">
    <script src="https://cdn.jsdelivr.net/npm/bootstrap@5.3.2/dist/js/bootstrap.bundle.min.js"></script>

  <style>
     @media print {
     .border-black {
    border-color: black !important;
    border-style: solid !important;
    border-width: 1px !important;
}
}
    </style>

  </head>
<body>
    <div class="container mt-5">
        <h2>PDF-Datei anzeigen und drucken</h2>
        <!-- Druck-Button -->
        <button id="printButton" class="btn btn-primary">Drucken</button>
        <!-- PDF-Datei einbetten -->
        <iframe id="pdfViewer"  src="file:///C:/fwh2023/samples/231113_FactSheet.pdf" width="100%" height="600px" style="border: none;"></iframe>
    </div>

    <!-- JavaScript für Druckfunktionalität -->
    <script>
        $(document).ready(function() {
            $('#printButton').click(function() {
                var pdfFrame = document.getElementById('pdfViewer');
                pdfFrame.focus();
                pdfFrame.contentWindow.print();
            });
        });
    </script>
</body>


 

Re: FWH 24.02 new Class TWebView2

PostPosted: Sat Mar 02, 2024 8:22 am
by Antonio Linares
Dear Otto,

Looking in the webview2 docs I can't find a SetAllowFileAccess()
https://github.com/FiveTechSoft/FiveTech_wiki/blob/main/FiveWin/WebView/microsoft-edge-webview2-reference-win32-webview2-1.0.2365.46.pdf

I am going to ask Bruno about it as he already has a PDF viewer using webview2

Re: FWH 24.02 new Class TWebView2

PostPosted: Sat Mar 02, 2024 8:25 am
by Antonio Linares
He just answered me saying that he didn't use that, it is not needed

He just hides the bar options using:
put_HiddenPdfToolbarItems( … constants to hide )

from interface settingsd

webview2 has many options, please review the above Microsoft docs url for it

Re: FWH 24.02 new Class TWebView2

PostPosted: Wed Mar 13, 2024 2:38 pm
by csincuir
Hola Antonio,
Haciendo pruebas con la nueva clase TWebView2, primero, excelente que ahora ya no se necesitan las dll's

Segundo, haciendo pruebas con el ejemplo "\samples\webviewlogin.prg", el metodo "Bind()" no lo tiene definido la clase TWebView2(),
por lo que la puse en comentarios y funcionó correctamente, mostrándome el dialogo del Login y me envía la respuesta, pero tuve que
tratar la misma de otra forma ya que envía un array con un hash en la posición 1, por lo que no es necesario utilizar la función hb_jsonDecode().

Pero veo que también el método "Return()" no lo tiene definido la nueva clase TWebView2() por lo que ya no pude enviar la respuesta.

Te envío los cambios que hice en el ejemplo por si sirve de algo, y voy a seguir haciendo pruebas con lo que se pueda con esta nueva clase TWebView2().

Code: Select all  Expand view
#include "FiveWin.ch"

function Main()

   local oWebView := TWebView2():New()

   oWebView:SetHtml( Html() )
   oWebView:SetTitle( "Please identify with your credentials" )
   oWebView:SetSize( 1200, 800 )
   oWebView:SetUserAgent( "Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.5060.53 Mobile Safari/537.36" )
   //oWebView:Bind( "SendToFWH" )
   oWebView:bOnBind = { | cJson, cCalls | Login( cJson, cCalls, oWebView ) }
   sleep( 300 )
   oWebView:Run()
   oWebView:Destroy()

return nil

function Login( cJson, cCalls, oWebView )

   local hData
   
   //hb_jsonDecode( cJson, @hData )
   hData := cJson[1]

   //if hData[ 1 ][ "username" ] != "Antonio" .or. hData[ 1 ][ "password" ] != "1234"
   if hData[ "username" ] != "Antonio" .or. hData[ "password" ] != "1234"
      oWebView:Return( cCalls, 0, "{ 'result': 'incorrect values' }" )
   else
      oWebView:Return( cCalls, 0, "{ 'result': 'correct!' }" )
  endif

return nil  

function Html()

   local cHtml

   TEXT INTO cHtml
   <!DOCTYPE html>
   <html>
   <head>
     <title>Identify</title>
     <style>
     body {
      display: flex;
      align-items: center;
      justify-content: center;
      height: 100vh;
      background-color: #F2F2F2;
      font-family: Arial, sans-serif;
      margin: 0;
     padding: 0;
    }
   
      .container {
         max-width: 400px;
         margin: 0 auto;
         padding: 40px;
         background-color: #FFFFFF;
         border-radius: 5px;
         display: flex;
         flex-direction: column;
         align-items: center;
         box-shadow: 0px 0px 44px rgba(0, 0, 0, 0.7) !important;
         overflow:none !important;
       }
   
       .logo {
         margin-bottom: 40px;
         display: flex;
         align-items: center;
       }
   
       .logo img {
         max-width: 100%;
         height: auto;
       }
   
       .btn {
         display: inline-block;
         padding: 12px 24px;
         background-color: #4CAF50;
         color: #FFFFFF;
         font-size: 16px;
         text-decoration: none;
         border-radius: 5px;
         transition: background-color 0.3s ease;
       }
   
       .btn:hover {
         background-color: #45A049;
       }
         
       .form-group {
         margin-bottom: 20px;
       }
       
       .form-group label {
         display: block;
         font-size: 16px;
         font-weight: bold;
         margin-bottom: 5px;
         color: #333333;
       }
       
       .form-group input {
         width: 100%;
         padding: 12px;
         font-size: 16px;
         border-radius: 5px;
         border: 1px solid #CCCCCC;
       }
       
       .btn {
         display: inline-block;
         padding: 12px 24px;
         background-color: #4CAF50;
         color: #FFFFFF;
         font-size: 16px;
         text-decoration: none;
         border-radius: 5px;
         transition: background-color 0.3s ease;
       }
       
       .btn:hover {
         background-color: #45A049;
       }
       
       body {
         background-color: #3498db;
       }
       
       .btn {
         background-color: #2980b9;
       }
       
       .btn:hover {
         background-color: #1a5276;
   
      .logo {
         margin-bottom: 40px;
         }
   
         .logo img {
         max-width: 100%;
         height: auto;
         }            
       }
     
     .myinput {
       width: auto !important; 
     }
     
     .mybtn {
       text-align:center;
     }
     
     </style>
   </head>
   <body>
     <div class="container">
       <div class="logo">
         <img src="https://fivetechsupport.com/forums/styles/prosilver/imageset/site_logo.gif" alt="Logo">
       </div>
       <form id="login-form" action="#" method="POST">
         <div class="form-group">
           <label for="username">Username:</label>
           <input type="text" id="username" name="username" class="myinput" required>
         </div>
         <div class="form-group">
           <label for="password">Password:</label>
           <input type="password" id="password" name="password" class="myinput" required>
         </div>
       <div class="form-group mybtn" >
       <button type="submit" class="btn">Start session</button>
       </div>
       </form>
     </div>
   
     <script>
       document.getElementById('login-form').addEventListener('submit', function(event) {
         event.preventDefault();
   
         var username = document.getElementById('username').value;
         var password = document.getElementById('password').value;
         var data = {
           username: username,
           password: password
         };
   
         var s = SendToFWH(data).then( s => { alert(s.result); } );
       });
     </script>
   </body>
   </html>
   ENDTEXT

return cHtml
 


Saludos cordiales.

Carlos.

Re: FWH 24.02 new Class TWebView2

PostPosted: Wed Mar 13, 2024 4:24 pm
by Antonio Linares
Estimado Carlos,

me alegro mucho de comenzar a recibir feedback de la nueva clase TWebView2, gracias! :-)

Como has advertido, hay diferencias entre esta nueva clase y la anterior basada en la DLL. Hay que destacar que los autores de webview.dll
hicieron ciertas interpretaciones que difieren un tanto de la forma original de uso que Microsoft implementó.

El método Eval() devuelve el resultado de la evaluación ahora, por que MsgInfo( oWebView:Eval( "123" ) ) devolverá 123, y eso sucede igualmente
si se llama a cualquier código javascript que devuelva un cierto valor. Por lo tanto ya no es necesario llamar a "SendToFWH()" desde el método Eval()
pues el resultado nos viene automaticamente de vuelta.

SendToFWH() solo se usa para hacer llamadas desde javascrip al EXE, y si, es posible que notes algunas diferencias con la anterior clase TWebView.
El método Return() aun no está muy claro como hemos de implementarlo, hay que hacer pruebas y ver cual es la forma idónea de hacerlo.

Agradezco mucho tus comentarios, pruebas y resultados. Lo bueno de esta nueva clase TWebView2 es que ya nos olvidamos de las DLLs y además ya seguimos
exactamente el modelo implementado por Microsoft.

Re: FWH 24.02 new Class TWebView2

PostPosted: Fri Mar 15, 2024 3:13 pm
by csincuir
Antonio,
Siguiendo con las pruebas de la TWebView2, realice unos pequeños cambios a la clase TWebView2 para acomodarlos al ejemplo "webviewlogin.prg" y poder darle funcionalidad si el usuario ingresa correctamente los datos, presentar la ventana principal de un sistema.

Code: Select all  Expand view
#include "FiveWin.ch"

#define GWL_STYLE        -16

static aWebViews := {}

static oWnd, lLogin

function Main()

   local oWebView

   lLogin := .f.
   oWebView := TWebView2():New(NIL,.F.)
   oWebView:SetHtml( Html() )
   oWebView:SetTitle( "FWH 2404 - WebView2" )
   oWebView:SetSizeWnd( 675, 675 )
   oWebView:SetUserAgent( "Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.5060.53 Mobile Safari/537.36" )
   //oWebView:Bind( "SendToFWH" )
   oWebView:bOnBind = { | cJson, cCalls | Login( cJson, cCalls, oWebView ) }
   //sleep( 300 )
   oWebView:Center()  
   
   oWebView:Run()
   //oWebView:Destroy()

   If lLogin
      WndSistema()
   End
   
return nil

function Login( cJson, cCalls, oWebView )

   local hData

   //hb_jsonDecode( cJson, @hData )
   
   hData := cJson
   If hData[ 1 ][ "username" ] == "CancelarIngreso"
      If MsgNoYes("Esta seguro de cancelar el ingreso?","Confirme por favor...")
         oWebView:End()
      End
   End
   if hData[ 1 ][ "username" ] != "Antonio" .or. hData[ 1 ][ "password" ] != "1234"
      MsgAlert("Datos de usuario incorrectos","Verifique por favor")
   else
      //oWebView:Return( cCalls, 0, "{ 'result': 'correct!' }" )
     lLogin := .t.
     oWebView:End()

  endif

return nil  


//-------------------------------------------------------------------
FUNCTION WndSistema()

   local oBar

   SET _3DLOOK ON

   USE Customer ALIAS Clients
   USE Sales NEW
   SELECT Clients

   DEFINE WINDOW oWnd TITLE "FWH 2404 - WebView2" MDI ;
      MENU BuildMenu() COLOR "N/W"

   DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007

   DEFINE BUTTON OF oBar ACTION MsgInfo( "Click" ) ;
      FILENAME "..\bitmaps\attach.bmp" PROMPT "Attach"

   DEFINE BUTTON OF oBar ACTION MsgInfo( "Click" ) ;
      FILENAME "..\bitmaps\calendar.bmp" PROMPT "Calendar"

   DEFINE BUTTON OF oBar ACTION MsgInfo( "Click" ) ;
      FILENAME "..\bitmaps\people2.bmp" PROMPT "Clients"

   DEFINE BUTTON OF oBar ACTION MsgInfo( "Click" )

   SET MESSAGE OF oWnd TO "Testing FWH 2404 - WebView2" CENTERED

   ACTIVATE WINDOW oWnd MAXIMIZED;
      VALID MsgYesNo( "Desea salir del sistema?", "Confirme por favor" )

return nil

//----------------------------------------------------------------------------//

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "&Archivos"
      MENU
         MENUITEM "&Clientes..." ACTION  MsgInfo( "Click" ) ;
            MESSAGE "Clients management"

         MENUITEM "&Reportes..." ACTION MsgInfo( "Click" )
         SEPARATOR
         MENUITEM "&Salida" ACTION oWnd:End() ;
            MESSAGE "End this test"

      ENDMENU


   ENDMENU

return oMenu

//----------------------------------------------------------------------------//

Function Html()
local cHtml

TEXT INTO cHtml

<!DOCTYPE html>
<html lang="en">
<head>
  <!-- Design by foolishdeveloper.com -->
    <title>Sistema Empresarial - SEM</title>
 
    <link rel="preconnect" href="https://fonts.gstatic.com">
    <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.15.4/css/all.min.css">
    <link href="https://fonts.googleapis.com/css2?family=Poppins:wght@300;500;600&display=swap" rel="stylesheet">
   
    <!--Stylesheet-->
    <style media="screen">
        *,
        *:before,
        *:after{
            padding: 0;
            margin: 0;
            box-sizing: border-box;
        }
        body{
            background-color: #080710;
        }
        .background{
            width: 430px;
            height: 520px;
            position: absolute;
            transform: translate(-50%,-50%);
            left: 50%;
            top: 50%;
        }
        .background .shape{
            height: 200px;
            width: 200px;
            position: absolute;
            border-radius: 50%;
        }
        .shape:first-child{
            background: linear-gradient(
                #1845ad,
                #23a2f6
            );
            left: -80px;
            top: -80px;
        }
        .shape:last-child{
            background: linear-gradient(
                to right,
                #ff512f,
                #f09819
            );
            right: -30px;
            bottom: -80px;
        }
        form{
            height: 520px;
            width: 400px;
            background-color: rgba(255,255,255,0.13);
            position: absolute;
            transform: translate(-50%,-50%);
            top: 50%;
            left: 50%;
            border-radius: 10px;
            backdrop-filter: blur(10px);
            border: 2px solid rgba(255,255,255,0.1);
            box-shadow: 0 0 40px rgba(8,7,16,0.6);
            padding: 50px 35px;
        }
        form *{
            font-family: 'Poppins',sans-serif;
            color: #ffffff;
            letter-spacing: 0.5px;
            outline: none;
            border: none;
        }
        form h3{
            font-size: 32px;
            font-weight: 500;
            line-height: 42px;
            text-align: center;
        }

        label{
            display: block;
            margin-top: 30px;
            font-size: 16px;
            font-weight: 500;
        }
        input{
            display: block;
            height: 50px;
            width: 100%;
            background-color: rgba(255,255,255,0.07);
            border-radius: 3px;
            padding: 0 10px;
            margin-top: 8px;
            font-size: 14px;
            font-weight: 300;
        }
        ::placeholder{
            color: #e5e5e5;
        }
        button{
            margin-top: 50px;
            width: 100%;
            background-color: #ffffff;
            color: #080710;
            padding: 15px 0;
            font-size: 18px;
            font-weight: 600;
            border-radius: 5px;
            cursor: pointer;
        }
        .botones{
          margin-top: 0px;
          display: flex;
        }
        .botones div{
          background: red;
          width: 165px;
          border-radius: 3px;
          padding: 5px 10px 10px 5px;
          background-color: rgba(255,255,255,0.0);
          color: #eaf0fb;
          text-align: center;
        }
        .botones div:hover{
          background-color: rgba(255,255,255,0.0);
        }
        .botones .fb{
          margin-left: 25px;
        }
        .botones i{
          margin-right: 4px;
        }

       .btn {
         display: inline-block;
         padding: 12px 24px;
         background-color: #2980b9;
         color: #FFFFFF;
         font-size: 16px;
         text-decoration: none;
         border-radius: 5px;
         transition: background-color 0.3s ease;
       }
   
       .btn:hover {
         //background-color: #45A049;
         background-color: #1a5276;   
       }
       
       .btnc {
         background-color: #af504c;
         padding: 12px 24px;
         font-size: 16px;
         transition: background-color 0.3s ease;
       }
       
       .btnc:hover {
         background-color: #1a5276;   
        }
       
    </style>
</head>
<body>
    <div class="background">
        <div class="shape"></div>
        <div class="shape"></div>
    </div>

    <form id="login-form" action="#" method="POST">
        <h3>Ingreso al Sistema</h3>

        <label for="username">Nombre:</label>
        <input type="text" placeholder="Nombre de Usuario" id="username" name="username" autofocus>

        <label for="password">Clave:</label>
        <input type="password" placeholder="Clave de usuario" id="password">

        <!--button>Ingreso</button-->
       
        <div class="botones">
            <div>
                <button class="btn">Ingresar</button>
            </div>
            <div>
                <button type="cancel" class="btnc" onclick="cancelalogin();">Cancelar</button>
            </div>
        </div>

    </form>
   
     <script>
       document.getElementById('login-form').addEventListener('submit', function(event) {
         event.preventDefault();
   
         var username = document.getElementById('username').value;
         var password = document.getElementById('password').value;
         var data = {
           username: username,
           password: password
         };
   
         var s = SendToFWH(data).then( s => { alert(s.result); } );
       });
       
       function cancelalogin() {
         event.preventDefault();
   
         var username = "CancelarIngreso";
         var password = "CancelarIngreso";
         var data = {
           username: username,
           password: password
         };
   
         var s = SendToFWH(data).then( s => { alert(s.result); } );
        }  
     </script>
</body>
</html>


ENDTEXT

return cHtml


//----------------------------------------------------------------------------//

CLASS TWebView2

   DATA hWebView
   DATA oWnd    
   DATA bOnBind

   METHOD New( oWndParent, lSysMenu ) CONSTRUCTOR //CASR

   METHOD Navigate( cURL ) INLINE WebView2_Navigate( ::hWebView, cURL )

   METHOD Center() INLINE ::oWnd:Center()  

   METHOD SetHtml( cHtml ) INLINE WebView2_SetHtml( ::hWebView, cHTML )  

   METHOD SetTitle( cText ) INLINE SetWindowText( ::oWnd:hWnd, cText )

   METHOD SetSize( nWidth, nHeight ) INLINE WebView2_SetSize( ::hWebView, nWidth, nHeight )
   
   METHOD SetSizeWnd( nWidth, nHeight ) INLINE  ::oWnd:SetSize( nWidth, nHeight )  //CASR

   METHOD SetUserAgent( cUserAgent ) INLINE WebView2_SetUserAgent( ::hWebView, cUserAgent )

   METHOD OpenDevToolsWindow( lOnOff ) INLINE WebView2_OpenDevToolsWindow( ::hWebView, If( Empty( lOnOff ), .T., lOnOff ) )

   METHOD Run() INLINE ::oWnd:Activate()

   METHOD SetParent( oWnd ) INLINE ( ::oWnd := oWnd, SetWindowLong( ::GetWindow(), GWL_STYLE, nOr( WS_CHILD, WS_VISIBLE ) ),;
          SetWindowPos( ::GetWindow(), 0, 0, 0, oWnd:nWidth, oWnd:nHeight, 4 ),;
          SetParent( ::GetWindow(), oWnd:hWnd ) )      

   METHOD GetWindow() INLINE ::oWnd:hWnd

   METHOD Eval( cJavaScript ) INLINE WebView2_Eval( ::hWebView, cJavaScript )  

   METHOD Terminate() VIRTUAL  

   METHOD Destroy() VIRTUAL
   
   METHOD Return( cRequest, nBindResult, cFromPrgToJS ) INLINE ;
      WebView_Return( ::hWebView, cRequest, nBindResult, cFromPrgToJS )


   METHOD End() INLINE ( WebView2_End( ::hWebView ), ::hWebView := 0, ::oWnd:End() )  //CASR

ENDCLASS        

//----------------------------------------------------------------------------//

METHOD New( oWndParent, lSysMenu ) CLASS TWebView2

   DEFAULT  lSysMenu := .t.
   
   if ! Empty( oWndParent ) .and. ! Empty( oWndParent:hWnd )
      ::hWebView = WebView2_New( oWndParent:hWnd )
      ::oWnd = oWndParent
   else
      If lSysMenu
         DEFINE WINDOW ::oWnd TITLE "WebView" COLOR "N/B"
      Else
         DEFINE WINDOW ::oWnd TITLE "WebView" COLOR "N/B" NoSysMenu
      End
     
      ::hWebView = WebView2_New( ::oWnd:hWnd )
      ::oWnd:bResized = { | nType, nWidth, nHeight | nType, ::SetSize( nWidth, nHeight ) }
   endif
   
   ::bOnBind = { | nErrorCode, cJsonResult, hWebView | hWebView,;
               MsgInfo( "errorCode: " + AllTrim( Str( nErrorCode ) ) + CRLF + ;
               "cJsonResult: " + cJsonResult ) }

   AAdd( aWebViews, Self )

return Self    


//----------------------------------------------------------------------------//

static function GetWebView( hWebView )

return aWebViews[ AScan( aWebViews, { | o | o:hWebView == hWebView } ) ]  

//----------------------------------------------------------------------------//

function WebView2_GetParams( cParams, hWebView )

   local oWebView := GetWebView( hWebView )
   local hJson

   hb_jsonDecode( cParams, @hJson )

   if ! Empty( oWebView:bOnBind )
      Eval( oWebView:bOnBind, hJson[ "params" ], oWebView )
   endif  

return nil  

//----------------------------------------------------------------------------//

function WebView2_GetValues( nErrorCode, cJsonResult, hWebView )

   local nAt := AScan( aWebViews, { | o | o:hWebView == hWebView } ), nResult

   if nAt != 0 .and. ! Empty( aWebViews[ nAt ]:bOnBind )
      nResult = Eval( aWebViews[ nAt ]:bOnBind, nErrorCode, cJsonResult, hWebView )
   endif  

return nResult


//----------------------------------------------------------------------------//

Image
El usuario es "Antonio" y la clave "12345"

En el codigo enviado, va la clase TWebView2 con los cambios realizados por mi persona marcados con "CASR"

Ahora, con una pregunta, como hago para que no aparezca el scroll vertical de la ventana del login??

Saludos cordiales.

Carlos.

Re: FWH 24.02 new Class TWebView2

PostPosted: Fri Mar 15, 2024 4:31 pm
by Otto
Hello Carlos,
thank you. That is a very nice example.
Do you also have a version for webview2 old?

I haven't dealt with the new webview2 yet. But then I could look at the differences in programming.
Best regards,
Otto

Re: FWH 24.02 new Class TWebView2

PostPosted: Sat Mar 16, 2024 4:32 pm
by Natter
I understand that since version FWH2402, when using webview 2, I do not need to use webview.dll.
I have compiled an example chart.png from FWH2402. However, when I start, I get a call error message webview.dll Why ?

Re: FWH 24.02 new Class TWebView2

PostPosted: Sat Mar 16, 2024 5:00 pm
by csincuir
Otto wrote:Hello Carlos,
thank you. That is a very nice example.
Do you also have a version for webview2 old?

I haven't dealt with the new webview2 yet. But then I could look at the differences in programming.
Best regards,
Otto


Estimado Otto,
La clase original webview2.prg esta en el directorio "source" de la FWH2402, yo tome el codigo y lo agregue al ejemplo que coloque anteriormente, donde solo le hice unos pocos cambios en el tema de la ventana que contiene el objeto webview2.

Saludos cordiales.

Carlos

Re: FWH 24.02 new Class TWebView2

PostPosted: Sat Mar 16, 2024 5:04 pm
by csincuir
Natter wrote:I understand that since version FWH2402, when using webview 2, I do not need to use webview.dll.
I have compiled an example chart.png from FWH2402. However, when I start, I get a call error message webview.dll Why ?


Hola Natter.
Para no usar la webview.dll cambia en el codigo esta linea:
Code: Select all  Expand view
local oWebView := TWebView():New()


Por esta otra linea:
Code: Select all  Expand view
local oWebView := TWebView2():New()
 


Solo agregale el "2" al nombre de la clase y ya no va a utilizar la "webview.dll"

Saludos cordiales.

Carlos.

Re: FWH 24.02 new Class TWebView2

PostPosted: Sat Mar 16, 2024 6:13 pm
by Natter
Gracias, Carlos !
All times are UTC
Page 1 of 1
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/