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?
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.