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) |
Partager