Sub AStreams_NewData(Buffer() As Byte)
bb.Append(Buffer)
Dim startfile As Int = bb.IndexOf(Array As Byte(0xff,0xd8)) 'begin of jpeg file in current buffer
Dim endfile As Int = bb.IndexOf(Array As Byte(0xff,0xd9)) 'end of jpeg file in current buffer
If startfile = 0 And endfile = -1 Then 'this is some way to assemble jpg file from incoming byte packages
filebilder.Clear
filebilder.Append(bb.SubArray2(0, bb.Length))
Else If startfile = -1 And endfile = -1 And filebilder.Length > 0 Then
filebilder.Append(bb.SubArray(0))
else if endfile > 0 And startfile > 0 Then
filebilder.Append(bb.SubArray2(0,endfile+2))
startbb = filebilder.IndexOf(Array As Byte(0xff,0xd8)) 'begin of jpeg file in destination bytebuilder
endbb = filebilder.IndexOf(Array As Byte(0xff,0xd9)) 'end of jpeg file in destination bytebuilder
Store_Photofile
Display_Photo
lblView.Text = NumberFormat(((DateTime.Now - czaslast)/1000), 1, 3)
filebilder.Clear
filebilder.Append(bb.SubArray2(startfile, bb.Length))
Else If startfile = -1 And endfile >= 0 And filebilder.Length > 0 Then
filebilder.Append(bb.SubArray2(0, endfile + 2))
Dim startbb As Int = filebilder.IndexOf(Array As Byte(0xff,0xd8)) '
Dim endbb As Int = filebilder.IndexOf(Array As Byte(0xff,0xd9))
Log("Startbb " & startbb & " Endbb " & endbb & " Rozmiar " & filebilder.Length)
Store_Photofile
Display_Photo
lblView.Text = i & " " & NumberFormat(((DateTime.Now - czaslast)/1000),1,3)
filebilder.clear
End If
bb.Clear
End Sub
Sub Display_Photo
If startbb = 0 And endbb > 0 Then
in.InitializeFromBytesArray(filebilder.SubArray( 0), 0, filebilder.Length)
bmp.Initialize2(in)
czaslast = DateTime.Now
ImageView1.Bitmap = bmp
'AStreams.Write("D3_Pho".GetBytes("UTF8"))
stoper = DateTime.Now
Do While DateTime.Now - stoper < 3
Loop
'bmp = LoadBitmap(MyFolder,"Picture_" & i & ".jpg")
End If
End Sub
Sub Store_Photofile
Dim out As OutputStream = File.OpenOutput(MyFolder, "Picture_" & i & ".jpg", False)
out.WriteBytes(filebilder.SubArray(0), 0, filebilder.Length)
out.Close
End Sub