Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim WebView1 As WebView
'Dim WebViewExtras1 As WebViewExtras
Dim MyImage As Bitmap
Dim Timer1 As Timer
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
WebView1.Initialize("")
Timer1.Initialize("Timer1",2000)
Activity.AddView(WebView1, 0,0,100%x,100%y)
'WebViewExtras1.addJavascriptInterface(WebView1, "B4A")
'WebViewExtras1.addWebChromeClient(WebView1,"")
WebView1.LoadHtml( "<html><body><img src='http://www.domai.com/bod.php?slideUUID=453DAD761515BF64C94333ECB3F3122B'></body></html>")
Timer1.Enabled=True
End Sub
Sub Timer1_Tick
Log("Timer1_Tick triggered")
MyImage=WebView1.CaptureBitmap
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal, "webview.jpg", False)
MyImage.WriteToStream( out, 100, "JPEG")
out.Close
Timer1.Enabled=False
Activity.Finish
End Sub
Sub WebView1_PageFinished (Url As String)
Log("PageFinished triggered")
MyImage=WebView1.CaptureBitmap
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal, "webview.jpg", False)
MyImage.WriteToStream( out, 100, "JPEG")
out.Close
Activity.Finish
End Sub