Comment faire pour afficher une image a partir de bits ?
Clem
-
21 mai 2001 à 20:27
ramibaccour Messages postés 3 Date d'inscription mardi 17 mars 2009 Statut Membre Dernière intervention 29 avril 2010 - 12 avril 2010 à 10:46
ramibaccour Messages postés 3 Date d'inscription mardi 17 mars 2009 Statut Membre Dernière intervention 29 avril 2010 - 12 avril 2010 à 10:46
A voir également:
- Comment faire pour afficher une image a partir de bits ?
- Afficher un tableau php en html - Conseils pratiques -PHP
- Calculer bic à partir de l'iban ✓ - Forum VB.NET
- Convolution image - Conseils pratiques -Java
- Afficher les colonnes d'une table sql ✓ - Forum SQL
- Fpdf image ✓ - Forum PHP
2 réponses
faits les tirer (oh le lourd !)
bricole, improvise, démerde-toi avec des instruction du genre pset etc.
bricole, improvise, démerde-toi avec des instruction du genre pset etc.
ramibaccour
Messages postés
3
Date d'inscription
mardi 17 mars 2009
Statut
Membre
Dernière intervention
29 avril 2010
12 avril 2010 à 10:46
12 avril 2010 à 10:46
'Premièrement etablir une connection à la BD Pour récupérer les données
'binaires:
Dim connectString As String
Dim Com As New SqlConnection
Dim cmd As New SqlCommand
Dim dataR As SqlDataReader
connectString = "chaine de connection"
Com = New SqlConnection(connectString)
cmd.Connection = Com
Com.Open()
'Exécution d'une requête SELECT pour la récupération des bits
cmd.CommandType = CommandType.Text
cmd.CommandText = "requête SELECT "
dataR = cmd.ExecuteReader()
dataR.Read()
'Déclaration d'une variable de type byte qui vas contenir l'image
'binaire
Dim ImageByte(50000) As Byte
'Affecter l'image récupérer dans ImageByte
dataR.GetBytes(0, 0, ImageByte, 0, 50000)
'Affichage de l'image
Response.BinaryWrite(ImageByte)
'binaires:
Dim connectString As String
Dim Com As New SqlConnection
Dim cmd As New SqlCommand
Dim dataR As SqlDataReader
connectString = "chaine de connection"
Com = New SqlConnection(connectString)
cmd.Connection = Com
Com.Open()
'Exécution d'une requête SELECT pour la récupération des bits
cmd.CommandType = CommandType.Text
cmd.CommandText = "requête SELECT "
dataR = cmd.ExecuteReader()
dataR.Read()
'Déclaration d'une variable de type byte qui vas contenir l'image
'binaire
Dim ImageByte(50000) As Byte
'Affecter l'image récupérer dans ImageByte
dataR.GetBytes(0, 0, ImageByte, 0, 50000)
'Affichage de l'image
Response.BinaryWrite(ImageByte)
