Italian Creare immagine di un oggetto

[Fulvio75]

Ciao a tutti, esiste un modo per catturare l'immagine di un oggetto presente sullo schermo del telefono?
Es: ho una clw e vorrei creare un immagine della sola clw presente sullo schermo
Tipo: captureimage (clw)
Grazie

 

[LucaMs]

Di una tua app o di qualunque sia attiva in quel momento? In questo secondo caso, direi proprio di no!

Se invece è una tua app, usa una variabile di tipo B4XView e "mettici" la tua View, quindi usa il metodo SnapShot della B4XView:

Dm xView As B4XView = TuaView
Dim bmp As Bitmap = xView.SnapShot

 

[Fulvio75]

Nono della mia app... Sul layout che vado ad aprire ho una clw con due righe contenenti dei dati e devo catturarne l'immagine da salvare premendo un bottone

 

[LucaMs]

Nono della mia app... Sul layout che vado ad aprire ho una clw con due righe contenenti dei dati e devo catturarne l'immagine da salvare premendo un bottone

Dim bmp As Bitmap = xCLV.AsView.Snapshot

 

[Fulvio75]

Dim bmp As Bitmap = xCLV.AsView.Snapshot

 

[Fulvio75]

Tutti gli oggetti??
Per salvarla ci sarà un BMP.save

 

[Fulvio75]

Questo è uguale??

XUI B4XView.Snapshot = similar to imageview.getimage

Hello, is the .Snapshot from a B4XView, the same as ImageView.GetImage?

www.b4x.com

 

[LucaMs]

Tutti gli oggetti??

Puoi usare il metodo del mio primo post su tutte le View (oggetti non ha significato).
Per salvare una Bitmap ad esempio di un Button:

Dim xView As B4XView = Button1
Dim Bitmap1 As B4XBitmap = xView.Snapshot
Dim Out As OutputStream
Out = File.OpenOutput(File.DirInternal, "MiaBitmap.png", False)
Bitmap1.WriteToStream(Out, 100, "PNG")
Out.Close

(Codice non provato ma dovrebbe funzionare)

 

[Fulvio75]

Puoi usare il metodo del mio primo post su tutte le View (oggetti non ha significato).
Per salvare una Bitmap ad esempio di un Button:

Dim xView As B4XView = Button1
Dim Bitmap1 As B4XBitmap = xView.Snapshot
Dim Out As OutputStream
Out = File.OpenOutput(File.DirInternal, "MiaBitmap.png", False)
Bitmap1.WriteToStream(Out, 100, "PNG")
Out.Close

(Codice non provato ma dovrebbe funzionare)

Ok provo io grazie

 

[Sagenut]

Avevo dato la stessa soluzione per la stessa domanda nel forum internazionale
https://www.b4x.com/android/forum/threads/xcustomlistview-to-image.115769/
Ma l'utente diceva che comunque otteneva lo snapshot solo della parte visibile.
Erel gli suggerì di usare:

clv.sv.ScrollViewInnerPanel.Snapshot

L'utente non ha più risposto quindi sospetto che potesse essere stata la soluzione ideale.

 

[Fulvio75]

Avevo dato la stessa soluzione per la stessa domanda nel forum internazionale
https://www.b4x.com/android/forum/threads/xcustomlistview-to-image.115769/
Ma l'utente diceva che comunque otteneva lo snapshot solo della parte visibile.
Erel gli suggerì di usare:

clv.sv.ScrollViewInnerPanel.Snapshot

L'utente non ha più risposto quindi sospetto che potesse essere stata la soluzione ideale.

Domani provo poi vi dico

 

[Fulvio75]

Puoi usare il metodo del mio primo post su tutte le View (oggetti non ha significato).
Per salvare una Bitmap ad esempio di un Button:

Dim xView As B4XView = Button1
Dim Bitmap1 As B4XBitmap = xView.Snapshot
Dim Out As OutputStream
Out = File.OpenOutput(File.DirInternal, "MiaBitmap.png", False)
Bitmap1.WriteToStream(Out, 100, "PNG")
Out.Close

(Codice non provato ma dovrebbe funzionare)

Funziona perfettamente...
Domanda… anziché File.DirInternal, per scriverlo in download???
grazie

 

[LucaMs]

Domanda… anziché File.DirInternal, per scriverlo in download???

Nun me fa' domande arcane pure te

(tradotto dal romanesco all'italiano, significa: "Cosa intendi dire, esattamente?".

 

[Fulvio75]

Nun me fa' domande arcane pure te

(tradotto dal romanesco all'italiano, significa: "Cosa intendi dire, esattamente?".

Il file devo metterlo in Download ma mi dice permission denided

'Crea un immagine dell'oggetto passato in Download
Sub CreateObj_PNG(obj As B4XView,FileName As String)
    
    Dim xView As B4XView = obj
    Dim Bitmap1 As B4XBitmap = xView.Snapshot
    Dim Out As OutputStream
    Dim rp As RuntimePermissions

    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    
'    'se il file esiste lo cancello
'    If File.Exists(rp.GetSafeDirDefaultExternal(""),FileName & ".png") = True Then
'        File.Delete(rp.GetSafeDirDefaultExternal(""),FileName & ".png")
'    End If
    
    Out = File.OpenOutput(File.Combine(File.DirRootExternal,"Download"), FileName & ".png", False)
    
    'Out = File.OpenOutput(rp.GetSafeDirDefaultExternal(""), FileName & ".png", False)
    Bitmap1.WriteToStream(Out, 100, "PNG")
    Out.Close
    
End Sub

 

[LucaMs]

E io che ne so come tu lo metti in download?

 

[Fulvio75]

E io che ne so come tu lo metti in download?

Te la fù vedè mi….

'Crea un immagine dell'oggetto passato in Download
Sub CreateObj_PNG(obj As B4XView,FileName As String)
    
    Dim xView As B4XView = obj
    Dim Bitmap1 As B4XBitmap = xView.Snapshot
    Dim Out As OutputStream
    Dim rp As RuntimePermissions

    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)

    'se il file esiste lo cancello
    If File.Exists(File.Combine(File.DirRootExternal,"Download"),FileName & ".png") = True Then
        File.Delete(File.Combine(File.DirRootExternal,"Download"),FileName & ".png")
    End If
    
    Out = File.OpenOutput(File.Combine(File.DirRootExternal,"Download"), FileName & ".png", False)
    
    Bitmap1.WriteToStream(Out, 100, "PNG")
    Out.Close
    
End Sub

Và

 

[Star-Dust]

Il file devo metterlo in Download ma mi dice permission denided

'Crea un immagine dell'oggetto passato in Download
Sub CreateObj_PNG(obj As B4XView,FileName As String)
   
    Dim xView As B4XView = obj
    Dim Bitmap1 As B4XBitmap = xView.Snapshot
    Dim Out As OutputStream
    Dim rp As RuntimePermissions

    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
   
'    'se il file esiste lo cancello
'    If File.Exists(rp.GetSafeDirDefaultExternal(""),FileName & ".png") = True Then
'        File.Delete(rp.GetSafeDirDefaultExternal(""),FileName & ".png")
'    End If
   
    Out = File.OpenOutput(File.Combine(File.DirRootExternal,"Download"), FileName & ".png", False)
   
    'Out = File.OpenOutput(rp.GetSafeDirDefaultExternal(""), FileName & ".png", False)
    Bitmap1.WriteToStream(Out, 100, "PNG")
    Out.Close
   
End Sub

Credo che non sia corretta la richiesta dei permessi. Ci vuole il Wait For con per l'evento Activity_PermissionResult (Permission As String, Result As Boolean).
Perchè esce dal programma avviando l'intent di richiesta e poi rientra solelvando l'evento PermissioneResult

 

[Star-Dust]

Te la fù vedè mi….

'Crea un immagine dell'oggetto passato in Download
Sub CreateObj_PNG(obj As B4XView,FileName As String)
   
    Dim xView As B4XView = obj
    Dim Bitmap1 As B4XBitmap = xView.Snapshot
    Dim Out As OutputStream
    Dim rp As RuntimePermissions

    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)

    'se il file esiste lo cancello
    If File.Exists(File.Combine(File.DirRootExternal,"Download"),FileName & ".png") = True Then
        File.Delete(File.Combine(File.DirRootExternal,"Download"),FileName & ".png")
    End If
   
    Out = File.OpenOutput(File.Combine(File.DirRootExternal,"Download"), FileName & ".png", False)
   
    Bitmap1.WriteToStream(Out, 100, "PNG")
    Out.Close
   
End Sub

Và

Funziona solo se hai già dato il permesso e quindi anche se non aspetta fa nulla. Ma su una nuova installazione non và più

 

[Star-Dust]

Nun me fa' domande arcane pure te

arcane se danno i croccantini non si fanno le domande

 

[Fulvio75]

Funziona solo se hai già dato il permesso e quindi anche se non aspetta fa nulla. Ma su una nuova installazione non và più

Hai ragione la prima volta mi butta fuori dall'app… poi funziona quindi cosa devo fare?