Android Question Wait For and WebView PageFinished

[iglrs1]

Hi,

I want to wait for a webpage to finished but I dont want that the program continues.

When a use the Wait For comand the program return an continue. Is it posible to wait for the page to be finished?
Thanks

Sub LoadWebPage(Address As String)
    
    WebView1.LoadUrl(Address)
    Wait For WebView1_PageFinished(Url As String)

    ...
End sub

 

[William Lancee]

'Put this in your calling program instead of LoadWebPage(Address)
Wait for (LoadWebPage(Address)) Complete (Success As Boolean)
   
Sub LoadWebPage(Address As String) As ResumableSub
    WebView1.LoadUrl(Address)
    Wait For WebView1_PageFinished(Url As String)
    ...
    Return True
End sub

 

[iglrs1]

Thanks. The fact is that LoadWebPage is a function inside a class(Web) a if I write it as

'Class Web

Sub Class_Globals
End Sub

Sub LoadPage(address)
   Wait for (LoadWebPage(Address)) Complete (Success As Boolean)
End sub

Sub LoadWebPage(Address As String) As ResumableSub
    WebView1.LoadUrl(Address)
    Wait For WebView1_PageFinished(Url As String)
    ...
    Return True
End sub

a tried to call like that

Dim www as Web
www.LoadPage("www.google.com")

the code continue and doesn't wait to load the web page

 

[William Lancee]

Yes that makes a difference. You need to have a callback function instead.

Note that I haven't tested this.

Sub Class_Globals
    Private Callback As Object
End Sub

Public Sub Initialize (CallbackModule As Object)
    Callback = CallbackModule
End Sub

Sub LoadWebPage(Address As String) As ResumableSub
    WebView1.LoadUrl(Address)
    Wait For WebView1_PageFinished(Url As String)
    ...
    CallSub(Callback, "LoadWebPage_Completed")
End sub

Dim www as Web
www.Initialize(Me)
www.LoadPage("www.google.com")
Wait For LoadWebPage_Completed

 

[iglrs1]

Thaks

 

[Walter Brunmueller]

Hello!

Please post the complete class-code, because I get some errors
and I am not so familiar with this type of programming

- WebView1 is not declaired
- www.LoadPage is the class method but LoadWebPage is declaired

Thank you for your help!

 

[William Lancee]

Sure. I chose the B4XPages template as a working example.

In B4XMainPage:

Private Sub B4XPage_Appear
    Log("LOAD REQUESTED1")
    Dim www As web
    www.Initialize(Me)
    www.LoadWebPage("www.google.com")
    Wait For LoadWebPage_Completed
    Log("LOADED")
End Sub

The Class (webview1 is declared in code, but you could use the designer and load the layout file):

Ed: I changed my mind about the parameters in initialize (since in this case root is not needed).

Sub Class_Globals
    Private Callback As Object
    Private webview1 As WebView
End Sub

Public Sub Initialize (CallbackModule As Object)
    Callback = CallbackModule
    webview1.Initialize("WebView1")
End Sub

Public Sub LoadWebPage(Address As String)
    Log("LOAD REQUESTED2")
    webview1.LoadUrl(Address)
    Wait For WebView1_PageFinished(Url As String)
    Log("PAGE FINISHED")
    '...
    CallSub(Callback, "LoadWebPage_Completed")
End Sub

 

[Walter Brunmueller]

Thanks a lot