Sub Globals
Dim wvImage As Bitmap
Dim iv As ImageView
Private wv As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main") 'add the views in designer
wv.LoadUrl("http://www.google.com")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub wv_PageFinished (Url As String)
wvImage = wv.CaptureBitmap
iv.Bitmap = wvImage
Dim out As OutputStream
out = File.Openoutput(File.DirRootExternal,"WebImage.png",False)
wvImage.WriteToStream(out,100,"PNG")
out.Close
End Sub