Envoi d'image vers navigateur Web
Bonjour,
Je viens pour vous demander un petit coup de main:roll:
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:
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
