Sending a Picture from Camera over TCP/IP

[Kbogle24]

I am looking at the following code trying to figure away to us it and send the image over to another app across tcp.

Sub Camera1_PictureTaken (Data() As Byte)
    Dim out As OutputStream
    out = File.OpenOutput(File.DirRootExternal, "1.jpg", False)
   out.WriteBytes(Data, 0, Data.Length)
    out.Close
    ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, "1.jpg"), True)
End Sub

I have a open socket and I have no problem sending simple text back and forth between apps.

Sub Server_NewConnection (Successful As Boolean, NewSocket As Socket)
    
   If Successful Then
      Socket1 = NewSocket
      tw.Initialize(Socket1.OutputStream) 
      tw.Writeline ("OK,Connected!,")
      tw.Flush 
      AStreams.Initialize (Socket1.InputStream, Socket1.OutputStream, "AStreams")
    Else
        ToastMessageShow(LastException.Message, True)
    End If
   
    Server.Listen
End Sub

would i just use

tw.write (data)
tw.flush

 

[Erel]

You should use AStreams.Write to send the data.

 

[Kbogle24]

Ok I have a app sending a picture over to another app on another tablet. Seems my send Code is working fine but when i get the image on the other device it just saves a black image.

My Code for sending the image using Astreams.

Sub Camera1_PictureTaken (Data() As Byte)
        AStreams.Write2 (Data,0,Data.Length)
End Sub

The code for receiving the image and saving it to a file.

Sub AStreams_NewData (Buffer() As Byte)
 Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal, "1.jpg", False)
out.WriteBytes(Buffer, 0, Buffer.Length)
out.Close

End Sub

Any Ideas?:sign0104:

 

[Kbogle24]

Ok fixed my own problem. I should have used

AStreams.InitializePrefix(Socket1.InputStream, False, Socket1.OutputStream, "AStreams")

I was using

AStreams.Initialize (Socket1.InputStream, Socket1.OutputStream, "AStreams")

Sending and receiving the image works great now. Thanks for you help!