bonjours , j'essai déseperemment de créer un serveur web personnalisé mon probléme est le suivant je reçois la requête, je determine et je lis le fichier en forme binaire quand je l'envoi au client (internet explorer il ne m'affiche qu'une série de nombres entiers) aider moi s'il vous plait
la partie de lecture et de l'envoi est la suivante:
Function
lecture_fichier_envoi(ByVal adr As String) As Byte() Dim i As Integer = 0, c As String = "", x(100) As Char, s As String = "" Dim envoi As StreamWriter = Nothing Dim buff As Buffer envoi =
New StreamWriter(client.GetStream()) Dim br As BinaryReader Dim fs As FileStream Dim ascii As New ASCIIEncoding Try fs = File.Open(adr, FileMode.Open)
br =
New BinaryReader(fs) Dim by(fs.Length) As Byte While fs.Position < fs.Length by(i) = br.ReadByte()
i = i + 1 envoi.WriteLine(by(i))
End While Console.Out.WriteLine("envoi terminé") Catch ex As Exception Console.Out.WriteLine("message d'erreur :" & ex.Message)
Finally If Not IsNothing(br) Then br.Close() envoi.Close()
End Try End Function
aider moi s'il vous plait et merci d'avance pour vos réponses