Bonjour,

Je viens pour vous demander un petit coup de main

Je suis en train de develloper un serveur TCP qui doit pouvoir accepter comme client une simple page html activée par n'importe quel navigateur.
Tout fonctionnait tres bien jusqu'a ce que j'integre des images dans les pages html.
J'envoie bien le fichier .html, puis le fichier .jpg lorsque le navigateur le demande, mais l'image me conserve pas son format, et se retrouve en une suite de caracteres illisibles que le navigateur ne percoit evidement pas comme une image...

Voici la fonction d'envoi d'objet

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
    Sub AffichePage(ByVal NomDePage)
        Dim Fichier_a_envoyer As System.IO.FileStream
'Selection de la page demandée 
       If (NomDePage = "Accu.htm") Then
            Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Accu.htm")
        ElseIf (NomDePage = "Avan.htm") Then
            Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Avan.htm")
        ElseIf (NomDePage = "Droi.htm") Then
            Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Droi.htm")
        ElseIf (NomDePage = "Recu.htm") Then
            Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Recu.htm")
        ElseIf (NomDePage = "Gauc.htm") Then
            Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Gauc.htm")
        Else
            Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Accu.htm")
 
'Selection de l'image demandée
        ElseIf (NomDePage = "banniere") Then
            Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Banniere.jpg")
        End If
 
'Envoi
        Dim FileReader As New System.IO.StreamReader(Fichier_a_envoyer)
        Reponse = FileReader.ReadToEnd
        FileReader.Close()
        Fichier_a_envoyer.Close()
        Dim Buff1 As [Byte]() = System.Text.ASCIIEncoding.ASCII.GetBytes(Reponse)
        Donnees_reseau.Write(Buff1, 0, Buff1.Length)
Si quelqu'un voit ou se situe le probleme,
Merci d'avance