View Replies (0)
Obtaining the value of an input field from a webbrowser control
  1. Advice
0 Votes
  1. Nish Ag
  2. PowerBuilder
  3. Wednesday, 2 November 2022 05:26 AM UTC

I am trying to implement a webbrowser control and inside the webbrowser control I am trying to implement a way to collect value from the input field.

 

This is a test webpage I have setted up: https://stc.opensyscon.com.au/test.html

 

The code of the webpage is this:

<script type="text/javascript" src="https://code.jquery.com/jquery-3.6.1.min.js"></script>


<script>
function getIdValue(lid)
{
    var lret;

    lret = document.getElementById(lid).value;

    return lret;
}
/*
$(document).ready(function()
{
    var lret;

    lret = getIdValue('fname');
    alert("Lret = " + lret);

});
*/
</script>
<html>
    <head>
        <title>Testing</title>
    <head>

    <body onload="autofill()">
        Test page
        <!--<button id="my_button" onclick="msg_box()">msg box</button>-->
        <form>
            <label for="fname">First name:</label><br>
            <input type="text" id="fname" name="fname"><br>
        </form>
        <script type"text/css">
            function msg_box()
            {
                alert("I am an alert box!");
            }
            function autofill()
            {
                document.getElementById('fname').value="John"
            }
        </script>
    </body>


</html>

 

And in powerbuilder (built on top of the demo code) here is a sample code:

 

Inside w_customers, ue_nav() event (this is being called as post event):

string lsret, ls_tagname
string webpage = "https://stc.opensyscon.com.au/test.html"
//wb_test.Navigate(webpage)

long ll_RootObject
long ll_item
JsonParser lnv_JsonParser
lnv_JsonParser = Create JsonParser

// Script to start navigation:
ib_navigate_called = FALSE
ib_navigate_started = FALSE

lsret = "start"

if wb_test.navigate(webpage) <> 1 then
    // give error message
    return
end if

yield()



//sleep(2)
do while  lsRet <> "complete"
	wb_test.EvaluateJavaScriptSync("document.readyState", REF lsRet)
	
	lnv_JsonParser.LoadString(lsRet)
	ll_RootObject = lnv_JsonParser.GetRootItem()
	ll_item = lnv_JsonParser.GetChildItem(ll_RootObject, 2)
	ls_tagName = lnv_JsonParser.GetItemString(ll_item)

	if Pos(ls_tagName, '"complete"') = 0 then
		 exit
	end if
loop

ib_navigate_called = TRUE

string ls_Json, ls_error
//int result
//
//wb_test.EvaluateJavascriptSync('document.getElementById("my_button")', ls_Json, ls_error)

//wb_test.EvaluateJavascriptSync('document.getElementById("fname").value', ls_Json, ls_error)
wb_test.EvaluateJavascriptSync('getIdValue("fname")', ls_Json, ls_error)


messagebox("Debug", "ls_Json = " + ls_Json)
//wb.test.document.getElementById(lid).value;

//
//
//if 1 = 2 then
//	wb_test.Navigate(webpage)
//end if
//

 

Inside the webborwser control I have got two events:

 

navigationstart():

// We need to know it has really started navigating before we try to determine whether it has finished
if ib_navigate_called then ib_navigate_started = TRUE

 

navigationprogressindex():

// Navigation has been started. If it indicates 100 percent finished, check the document.readyState.
// If that is "complete", print the PDF file.

string lsRet
string webpage = "https://stc.opensyscon.com.au/test.html"

if NOT ib_navigate_started then return

if progressindex < 100 then return

EvaluateJavaScriptSync("document.readyState", REF lsRet)
if Pos(lsRet, '"complete"') = 0 then
    return
end if
ib_navigate_started = FALSE // prevent recursion & thus doing any following steps twice

// now do whatever you need to do, it should be fully loaded!

string ls_Json, ls_error
int result

//wb_test.EvaluateJavascriptSync('document.getElementById("my_button")', ls_Json, ls_error)
//wb_test.EvaluateJavascriptSync('document.getIdValue("fname")', ls_Json, ls_error)
//
//
//if 1 = 2 then
//	wb_test.Navigate(webpage)
//end if

 

Unfortunately the navigationprogressindex() event never gets called so I don't know what is up with that.

 

And in the ue_nav() event, I am getting value from ls_json only if I run through the debugger however running without the debugger it returns nothing.

 

I am trying to follow this guide:

 

https://community.appeon.com/index.php/qna/q-a/new-webbrowser-event-to-know-navigate-is-finished#reply-33504

 

However I don't know how to get navigationprogressindex() to work or if there is an alternative way to get the value of the input field into ls_json?

Notfication about notifications Powerclient
Responses (0)
  1. Likes
  2. Latest
  3. Oldest

Find Questions by Tag

.EXE .NET 6.0 .NET Assembly .NET Core 3.1 .NET Core Framework .NET DataStore .NET Std Framework 32-bit 64-bit ADO.NET AEM AI Algorithm Amazon AWS Android Apache API APK App Store App Store (Apple) Appeon Workspace Appeon Xcelerator Plug-in Architecture Array ASE Asynchronous Methods Authentication AutoBuild AutoCompiler Automated Testing Automation AutoScript Azure Barcode Base64 Batch BigData BLOB Branch & Merge Browser Bug Build Button C# C# Class Importer C# Editor C# Model generator Calendar Camera Certificate Chrome Citrix Class Client Client/Server Cloud Cluster Collection COM Command Line Compiler Compression Computed Field Configuration Controls Cookies Cordova Crash Cross-Platform Crosstab CSharpAssembly CSharpObject CSS CSV Cursor Data Database Database Driver Database Painter Database Profile Database Provider DataObject DataSource DataStore DataStore (C#) DataStore (PS) DataType DataWindow DATE DATETIME DB2 Debug Debugger Debugging Deployment Design DLL DO-WHILE Dockable Docker Documentation DOUBLE Download DragDrop Edge Edit Style Editor Elevate Conference Email Embedded SQL Emulator Encoding Encryption Enhancement Request Entity Entity Framework ERP Error Event Event Handler Event Handling Excel Exception Export Expression External Functions F# Field File File Access Filter Firefox Firewall Font FOR-NEXT Foreground Format Function Garbage Collection GeoLocation Git Graph HANA Hash Header HTML/5 HTTP/S HTTPClient Icon IDE Identity IIS IMAPI Import InfoMaker Inheritance Installation Integer IntelliSense Interface Internet Internet Explorer iOS IPA iPad iPhone IWA J# Java JavaScript JBoss JDBC JOIN JSON JSONGenerator JSONParser Kestrel Label Lambda Large File LDAP Library License LINQ Linux OS Load Balancing Localization Localized PBVM Log In Log Out Logging LONG LONGLONG macOS MAPI Maps MDI Memory Memory Leak Menu Merge MessageBox Messagging Method Migration MIME TYPE Mobile Model ModelStore ModelStore (C#) MSOLEDBSQL Multi Threading MVC MySQL n-Tier Namespace NativePDF NVO OAuth ODATA ODBC Office Offline OLE OLEDB Online Open Source OpenAPI OpenSSL Oracle OrcaScript Other Outlook Output Package Parameter Patch PayPal PB Classic PB Native PB.NET PBC PBD PBDOM PBG PBJVM PBL PBNI PBORCA PBVM PBX PDF Performance Permission PFC Picture Pipeline Play Store (Google) Plugin Popup Port POST PostgreSQL PowerBuilder PowerBuilder (Appeon) PowerBuilder (SAP) PowerBuilder Compiler PowerBuilder Runtime PowerClient PowerScript (PS) PowerScript IDE PowerScript Migrator PowerServer PowerServer Mobile PowerServer Toolkit PowerServer Web PowerServerLabel Print Properties Proxy Publish PULL PUSH Query Regression Release Renew Resize Response REST Retrieve RibbonBar RibbonBar Builder Rich Text Roadmap RPC Runtime Packager SaaS Scaffolding Script SDI SDK Security Server Service Session Single Sign-on Size SMTP SMTPClient SnapDevelop SOAP Sort Source Code Speech Recognition SQL SQL Anywhere SQL Server SqlBuilder SqlExecutor SQLite SqlModelMapper Storage Stored Procedure Subscription SVN Swagger Syntax TabbedBar TabbedView Tablet TabPage Target TE Control Testing Text TFS Theme TIME Timer TLS/SSL Tomcat TortoiseGit TortoiseSVN Transaction Transparency Trial Trigger TRY-CATCH TX Control Type UI ULONG UltraLite Uninstall Unit Test Unit Testing UNIX OS Update Upgrade Upload URL User Center User Object UWP Validation VARCHAR Variable Versioning Visual Studio Visual Studio Code VM Voice Warning WCF Web API Web Extensions Web Service WebBrowser WebForms WebLogic WebSphere WildFly WinAPI Window Windows OS WinForms Wizard Workgroup Workspace WPF XCODE XHTML XML Zoom
✖

Helpful?

If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.