Sub Cam1_Preview (Prev() As Byte)
Dim l As Long = DateTime.Now
If ((l - lastPrev) >= PrevIntMs) Then
Dim jpeg() As Byte = camEx.PreviewImageToJpeg(Prev, 70)
Log("Cam1_Preview ms: " & (l - lastPrev) & " Size : " & Prev.Length & " " & jpeg.Length)
Dim ins As InputStream
Dim bmp As Bitmap
Dim imgtest As ImageView
ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
bmp.Initialize2(ins)
imgtest.Initialize("")
imgtest.Gravity = Gravity.FILL
Activity.AddView(imgtest, 10dip, 10dip, 100dip, 100dip)
imgtest.Bitmap = bmp
imgtest.BringToFront
lastPrev = l + 10000000 ' run once every 10 million msec
End If
End Sub