Dim MsgtoSend2 As String
MsgtoSend2 = "M&&"
If Map1FTP = True Then
Dim totalSizeForSending1 As Long = File.Size(File.DirRootExternal & "/SSS/", "image.jpg")
Dim In1 As InputStream = File.OpenInput(File.DirRootExternal & "/SSS/", "image.jpg")
countingStream1.Initialize(In1)
If AStream1.IsInitialized = True Then
AStream1.Write(MsgtoSend2.GetBytes("UTF8"))
AStream1.WriteStream(countingStream1, totalSizeForSending1)
Map1FTP = False
End If
Return
End If
Receiver
[CODE lang="b4x" title="Receiver"]
Sub AStream_NewStream (Dir As String, FileName As String)
End Sub