Sub Cam_PictureTaken(Data() As Byte)
Save_Temp_Pic(Data)
Process_Temp_Pic
End Sub
Sub Save_Temp_Pic(Data() As Byte)
If File.Exists(AppPath,"tmp1.jpg") Then File.Delete(AppPath,"tmp1.jpg")
'--- Write picture
Dim objStream As OutputStream
objStream = File.OpenOutput(AppPath,"tmp1.jpg", False)
objStream.WriteBytes(Data, 0, Data.Length)
objStream.Close
End Sub
Sub Process_Temp_Pic
Dim input As InputStream
input = File.OpenInput(AppPath,"tmp1.jpg")
jpg.LoadJpegSizeOnly(input)
Msgbox(jpg.JpegWidth & "x" & jpg.JpegHeight,"tmp1 size")
input.Close
End Sub