Sub Camera1_Preview (Data() As Byte)
Dim dataJpg() As Byte, iSt As InputStream
Try
dataJpg = camEx.PreviewImageToJpeg(Data, 80)
iSt.InitializeFromBytesArray(dataJpg, 0, dataJpg.Length)
Catch
Dim a As String = "PreviewImageToJpeg.error=" & LastException.Message
ToastMessageShow("Camera is not supported: " & a, True)
Log(a)
camEx.Release
Stop_Camera
Return
End Try
Dim img As Bitmap
img.Initialize2(iSt)
PreviewImg = img
NanoTime1 = NanoTime2
NanoTime2 = nt.NanoTime
Try
camEx.StartPreview
Catch
Log(LastException)
End Try
End Sub
Sub timInterval_Tick
If PreviewImg.IsInitialized Then
pnlRes.SetBackgroundImage(PreviewImg)
End If
Dim TimeBetweenPreviews As Double = NanoTime2 - NanoTime1
TimeBetweenPreviews = TimeBetweenPreviews / 1000000
Log(TimeBetweenPreviews)
Dim FPS1 As Float = 1/TimeBetweenPreviews*1000
Dim FPS2 As Float = 1/timInterval.Interval*1000
lblResult.Text = "FPS1=" & NumberFormat(FPS1, 1, 1) & ", FPS2=" & NumberFormat(FPS2, 1, 1)
End Sub