Hi, i make client (B4A) and Server (B4J)
now into my client i have this
(i use CameraExClass)
into server (B4J)
but not work! :-(
now into my client i have this
(i use CameraExClass)
B4X:
Public Sub Send(Image() As Byte) 'send data as byte
If client.IsInitialized = False OR client.Connected = False Then
Connect
Else
raf.WriteInt(Image.Length, 0)
astreams.Write(buffer)
manna("CAM" & "SPLT") 'send my string header for splitting
astreams.Write(Image)'write image frame into streaming
End If
End Sub
into server (B4J)
B4X:
Case "CAM"
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
Dim Bitmap1 As Image
Bitmap1.Initialize2(InputStream1)
imgv1.SetImage(Bitmap1)
but not work! :-(