Sub tcpsrv_NewConnection (Successful As Boolean, NewSocket As Socket)
If Successful Then
ToastMessageShow("Connected", False)
lbRek1.Text = "receiving file..."
socket1 = NewSocket
AStreams.InitializePrefix(socket1.InputStream, False, socket1.OutputStream, "AStreams")
Else
ToastMessageShow(LastException.Message, True)
End If
serverTcp.Listen
End Sub
Sub AStreams_Terminated
lbRek1.Text = "File received succesfully!"
End Sub
Sub AStreams_NewData (Buffer() As Byte)
WriteFile( File.DirRootExternal&"/mkbootloader/", "ala.avi", Buffer )
End Sub
Sub WriteFile(Dir As String, FileName As String, data() As Byte)
Dim out As OutputStream
out = File.OpenOutput(Dir, FileName, True)
out.WriteBytes(data, 0, data.Length )
out.Close
End Sub