French Problème d'envoi texte ou image

kalicem said:

Salut à tous et merci par avance pour l'aide que vous pourriez m'apporter.
J'essai d'envoyer du texte ou une image de mon client B4a à mon serveur vb.net.
J'arrive à envoyer le texte, mais pas l'image pouvez-vous m'aider?

Le code pour envoyer le texte du client vers le serveur est :

B4X:

Public Sub envoyer(msg As String)
    Dim tw As TextWriter
    tw.Initialize(Socket1.OutputStream)
    tw.WriteLine(msg)
    tw.Flush
End Sub

Le code pour recevoir les texte côté serveur est :

B4X:

Sub read(ByVal ar As IAsyncResult)
Dim sr As New StreamReader(cli.GetStream)
            Dim msg As String = sr.ReadLine()
            RaiseEvent MessageReçu(msg, Me)
            cli.GetStream.BeginRead(New Byte() {0}, 0, 0, AddressOf read, Nothing)
End Sub

Pour recevoir le texte côté client

B4X:

Sub AStreams_NewData (buffer() As Byte)
    Dim msg As String
    msg = BytesToString(buffer, 0, buffer.Length, "UTF8")
    Dim Message() As String =  Regex.Split("\|",msg)
     Select Case Message(0)
...
     End Select
End Sub

Pour envoyer du serveur au client :

B4X:

Sub Envoie(ByVal message As String)
        Dim sw As New StreamWriter(cli.GetStream)
        sw.WriteLine(message)
        sw.Flush()
    End Sub

Les images à envoyer sont ce de la caméra

B4X:

Sub Camera1_Preview (PreviewPic() As Byte)
    If DateTime.Now > lastPreviewSaved + IntervalMs Then
        Dim jpeg As String = Con.StringFromBytes( camEx.PreviewImageToJpeg(PreviewPic, 70), "UTF8")
        lastPreviewSaved = DateTime.Now
        CallSubDelayed2(ClientServeur, "Envoyer", jpeg)
    End If
End Sub

C'est la que je bloque

Click to expand...

kalicem said:

Merci pour ta réponse, y'a t'il un moyen d'envoyer et recevoir en fonction du type de donnée, par exemple si j'envoi du texte, le serveur reconnait que c'est en string et si c'est l'image, le serveur reconnait que c'est encodé ?

Click to expand...