Italian Problema con camEx.PreviewImageToJpeg

zamb

Active Member
Licensed User
Carissimi, mi sembra di essere cretino ma sono due giorni che sto cercando di mettere una camera preview come sfondo su un pannello alla pressione di un pulsante.
Ho inserito questo codice:

B4X:
Sub camera1_Preview(Data() As Byte)

    log("sto salvando")     'messaggio che mi dice se lavora

    Dim jpeg() As Byte = camEx.PreviewImageToJpeg(Data, 70)

    Dim bmp As Bitmap
    Dim ins As InputStream
  
    ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
    bmp.Initialize2(ins)
    ins.Close

    base.SetBackgroundImage(bmp)  'il mio pannello

End sub

Ho poi "decommentato" (passatemi il neologismo) nel modulo CameraExClass la seguente Sub:

B4X:
Sub Camera_Preview (Data() As Byte)
    If SubExists(target, event & "_preview") Then
        CallSub2(target, event & "_preview", Data)
    End If
End Sub

in quanto era preceduta dal commento "Uncomment this sub if you need to handle the Preview event".

Risultato: non succede nulla!!! Non compare mai "sto salvando".
Non capisco come debbo chiamare questa funzione dal pulsante.

Cosa debbo mettere nell'evento click del pulsante?


Qualche anima pia mi può aiutare?

Grazie in anticipo
Zamb
 

Sagenut

Expert
Licensed User
Longtime User
Io non ho mai usato quella libreria/modulo.
Se puoi esportare e allegare il tuo progetto così possiamo provarlo e cercare di capire cosa non và.
Per esportare il progetto usa la quarta icona da sinistra nella barra in alto, quella che sembra un pacchetto regalo, e poi carica il file zip che ottieni nel tuo prossimo messaggio quì sul forum.
 
Top