iOS Question B4A to B4I simple code conversion

[francesco paolo lavecchia]

Hi everyone,

I need to convert this code:

Sub Globals
Dim wv As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
wv.Initialize("wv")
wv.LoadUrl("http://www.mysite.net/")
End Sub

Sub wv_OverrideUrl (Url As String) As Boolean
Dim Intent1 As Intent

Sub wv_OverrideUrl (Url As String) As Boolean

Dim Intent1 As Intent

Intent1.Initialize(Intent1.ACTION_VIEW, Url)
Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
StartActivity(Intent1)

If Url.StartsWith("https://maps.google.it/?") Then
wv.Back
wv.Forward
Else If Url.StartsWith("https://www.google.com/maps/dir//") Then
wv.Back
wv.Forward
wv.Forward
End If

End Sub

thanks in advance to anyone who helps me....

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

What is the question?

What is the problem?

B4i WebView is almost identical to B4A WebView: https://www.b4x.com/b4i/help/views.html#webview

 

[francesco paolo lavecchia]

I tried so many ways and it doesn't work.

I mean, the ovverride function works only for the first time

Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page")
Page1.RootPanel.LoadLayout("main")
NavControl.ShowPage(Page1)
wv.LoadUrl("http://www.mysite.com")
End Sub

Sub wv_OverrideUrl (Url As String) As Boolean
App.OpenURL(Url)
End Sub

After the firstApp.OpenURL(Url) excecution, the override function doent's work anymore
In android app the override function works always.


what should I do to solve the problem?

 

[karld]

I am far from an expert as I am still learning myself.

Someone else please correct me if I am wrong.....

Does it give any errors?
I am not sure what you are trying to do here. More code would be helpful.
What is calling the App..OpenURL subroutine?

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

 

[francesco paolo lavecchia]

B4A

Sub Globals
Dim wv As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
wv.Initialize("wv")
wv.LoadUrl("http://www.mysite.net/")
End Sub

Sub wv_OverrideUrl (Url As String) As Boolean
Dim Intent1 As Intent

Sub wv_OverrideUrl (Url As String) As Boolean

Dim Intent1 As Intent

Intent1.Initialize(Intent1.ACTION_VIEW, Url)
Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
StartActivity(Intent1) 

If Url.StartsWith("https://maps.google.it/?") Then
wv.Back
wv.Forward
Else If Url.StartsWith("https://www.google.com/maps/dir//") Then
wv.Back
wv.Forward 
wv.Forward 
End If
End Sub

B4I

Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page")
Page1.RootPanel.LoadLayout("main")
NavControl.ShowPage(Page1)
wv.LoadUrl("http://www.mysite.com")
End Sub

Sub wv_OverrideUrl (Url As String) As Boolean
App.OpenURL(Url)
End Sub

After the first App.OpenURL(Url) excecution, the override function doent's work anymore
In android app the override function works always.

what should I do to solve the problem?

 

[Erel]

What is the purpose of this code? Why aren't you calling App.OpenURL directly?

You also need to return True from this sub if you want to consume the event and prevent the WebView from changing the location.

 

[francesco paolo lavecchia]

In B4A I'm using Intent to call the google maps app instead of using the normal browser, so I want to use the same way to call google maps instead of using safari..

 

[Erel]

I guess that the B4i code misses the check whether it should handle the url or not.

Make sure to return True from this sub after you call App.OpenUrl.

 

[francesco paolo lavecchia]

I tried but it doesn't work the same.
Could you send me a complete working example (zip)?
I need something that run the Google Maps app while users click on the relative link

 

[Erel]

Could you send me a complete working example (zip)?

Sorry but it is not possible. You can post your updated code and we will help you solve the issue.

 

[francesco paolo lavecchia]

ok, but this code

Private Sub Application_Start (Nav AsNavigationController)

NavControl = Nav
Page1.Initialize("Page")
Page1.RootPanel.LoadLayout("main")
NavControl.ShowPage(Page1)
wv.LoadUrl("http://www.mysite.com")

End Sub

Sub wv_OverrideUrl (Url AsString) As Boolean

App.OpenURL(Url)
Return True

End Sub

it's wrong... what should I do to solve this issue?

I need something that works like in android

Sub Activity_Create(FirstTime As Boolean)

wv.Initialize("wv")
wv.LoadUrl("http://www.mysite.net/")

End Sub

Sub wv_OverrideUrl (Url AsString) As Boolean

Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW, Url)
Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
StartActivity(Intent1)

End Sub

 

[Erel]

I'm sorry but I still don't understand your code. What do you need WebView for if you are immediately calling App.OpenURL?

 

[francesco paolo lavecchia]

My english is not so good to explain what I need... but I want to try
By default, when a user clicks on a link where there is a connection with google maps, the browser opens itself using a plug-in that allow it to open a map. Instead of this feature, I always want to open the google maps app...

 

[Erel]

What is mysite.net? Can you post the real site? If not can you post the actual link that you want to catch and open with Google Map?

 

[francesco paolo lavecchia]

http://www.guidedocartis.it/marche/?page_id=17827

You have to click on

Consulta la mappa

 

[Erel]

Here:

#QueriesSchemes: comgooglemapsurl
#ATSEnabled: false
Sub Process_Globals
   Public App As Application
   Public NavControl As NavigationController
   Private Page1 As Page

   Private WebView1 As WebView
End Sub

Private Sub Application_Start (Nav As NavigationController)
   'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
   NavControl = Nav
   Page1.Initialize("Page1")
   Page1.Title = "Page 1"
   Page1.RootPanel.LoadLayout("1")
   NavControl.ShowPage(Page1)
   WebView1.LoadUrl("http://www.guidedocartis.it/marche/?page_id=17827")
End Sub

Sub WebView1_OverrideUrl (Url As String) As Boolean
   If Url.StartsWith("https://maps.google") Then
     Dim fixed As String = Url.Replace("https://", "comgooglemapsurl://")
     If App.CanOpenURL(fixed) Then
       App.OpenURL(fixed)
       Return True
     End If
   End If
   Return False
End Sub

 

[francesco paolo lavecchia]

Yes,It's working (it was impossible for me to do)
Thank you so much!!

 

[francesco paolo lavecchia]

Sorry, I have the same problem with www.google.com and with PDF...

 

[Erel]

I cannot write your program... See how the code handled the maps url. You need to do something similar for the pdf link.