Sub Camera1_Preview (Data() As Byte)
Dim forDate As String
DateTime.DateFormat ="HH.mm.ss.SS_dd-MM-yy"
forDate=DateTime.Date(DateTime.now)
Dim Tcr As String
DateTime.DateFormat ="HH:mm:ss dd-MM-yyyy"
Tcr = DateTime.Date(DateTime.now)
Dim tempstr As StringBuilder
tempstr.Initialize
tempstr.Append(forDate).Append("_").Append(Hostname).Append("_")
InProg=True
If DateTime.now > lastPreviewSaved + IntervalMs Then
Dim jpeg() As Byte = PreviewImageToJpeg(Data, 90)
Dim InputStream As InputStream
InputStream.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
btmp.InitializeMutable(640,480)
Canvas1.Initialize2(btmp)
Dim Bitmap1 As Bitmap
Bitmap1.Initialize2(InputStream)
InputStream.Close
Dim Rect1 As Rect
Rect1.Initialize(0,0,btmp.Width ,btmp.Height)
Canvas1.DrawRect(Rect1, Colors.Gray,True, 1dip)
Canvas1.DrawBitmap(Bitmap1,Null,Rect1)
Canvas1.DrawLine(btmp.Width -270,btmp.Height -20, btmp.Width -2, btmp.Height -20, Colors.Black , 16dip)
Canvas1.DrawText(Hostname & " - " & Tcr,btmp.Width -270,btmp.Height -15,Typeface.DEFAULT,15,Colors.White,"LEFT")
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal, "/Images/" & tempstr & ".jpg", False)
Canvas1.Bitmap.WriteToStream(out,45,"JPEG")
out.Close
lastPreviewSaved = DateTime.now
End If
InProg=False
End Sub