Italian screen capture

timo

Active Member
Licensed User
Longtime User
Esiste anche il metodo con la libreria 'Reflection' per farlo dall'apparecchio. Purtroppo non trovo più il link da dove avevo preso il codice d'esempio, che comunque è questo:
B4X:
Sub btnScreenShot_Click
   'prende uno screenshot dello schermo: Libreria 'Reflection'
   Dim Obj1, Obj2 As Reflector
   Dim bmp As Bitmap
   Dim c As Canvas
   Obj1.Target = Obj1.GetActivityBA
   Obj1.Target = Obj1.GetField("vg")
   bmp.InitializeMutable(Activity.Width, Activity.Height)
   c.Initialize2(bmp)
   Dim args(1) As Object
   Dim types(1) As String
   Obj2.Target = c
   Obj2.Target = Obj2.GetField("canvas")
   args(0) = Obj2.Target
   types(0) = "android.graphics.Canvas"
   Obj1.RunMethod4("draw", args, types) 
   Dim Out As OutputStream
   Out = File.OpenOutput(File.DirRootExternal, "Test.png", False)
   bmp.WriteToStream(Out, 100, "PNG")
   Out.Close
End Sub
Poi, con un programma di disegno, cancelli il pulsante dall'immagine.
 
Last edited:
Top