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:
Ho poi "decommentato" (passatemi il neologismo) nel modulo CameraExClass la seguente 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
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