Imagen Crystal Report
Publicado por maria_85v (9 intervenciones) el 20/03/2009 17:53:26
Muy buenas:
Tengo una parte de codigo, donde crea un pdf a traves de un crystal report. Bien, el pdf muestra informacion sobre un hotel que previamente, el usuario eligio,y que puede llevar una foto. lo que pasa es que me muestra la informacion menos la foto. a continuacion os pongo el codigo
cree un dataset con la tabla donde se aloja la informacion del hotel
La tabla la llame Alojamientos y los campos son
Nombre : de tipo string
Direccion: de tipo string
Localidad: de tipo string
Observaciones: de tipo string
FotoPrincipar: de tipo byte()
Diseñe el crystal report, y en el codigo para generar el pdf puse:
Dim ds As New DataSetGrupos 'este es el dataset
Dim fila As System.Data.DataRow
Dim mio As New RptPdfAlojamiento
a la variable fila le voy insertando los datos
Pero a la hora de meter la foto en el campo foto hago
fila.Item("FotoPrincipal") = imagen_byte(ruta) 'ruta es de tipo string que tiene la ruta de la imagen
y la funcion imagen_byte es la siguiente
Public Shared Function Imagen_Bytes(ByVal nombrearchivo As String) As Byte()
Dim fs As New FileStream(nombrearchivo, FileMode.Open)
Dim br As New BinaryReader(fs)
Dim imagen As Byte() = New Byte(CInt(fs.Length) - 1) {}
br.Read(imagen, 0, CInt(fs.Length))
br.Close()
fs.Close()
Return imagen
End Function
despues de todo esto asocio el datarow al dataset
y al crystal report le paso el dataset.
Si alguien me puede ayudar se lo agradeceria muchisimo
Muchas gracias de antemano
Tengo una parte de codigo, donde crea un pdf a traves de un crystal report. Bien, el pdf muestra informacion sobre un hotel que previamente, el usuario eligio,y que puede llevar una foto. lo que pasa es que me muestra la informacion menos la foto. a continuacion os pongo el codigo
cree un dataset con la tabla donde se aloja la informacion del hotel
La tabla la llame Alojamientos y los campos son
Nombre : de tipo string
Direccion: de tipo string
Localidad: de tipo string
Observaciones: de tipo string
FotoPrincipar: de tipo byte()
Diseñe el crystal report, y en el codigo para generar el pdf puse:
Dim ds As New DataSetGrupos 'este es el dataset
Dim fila As System.Data.DataRow
Dim mio As New RptPdfAlojamiento
a la variable fila le voy insertando los datos
Pero a la hora de meter la foto en el campo foto hago
fila.Item("FotoPrincipal") = imagen_byte(ruta) 'ruta es de tipo string que tiene la ruta de la imagen
y la funcion imagen_byte es la siguiente
Public Shared Function Imagen_Bytes(ByVal nombrearchivo As String) As Byte()
Dim fs As New FileStream(nombrearchivo, FileMode.Open)
Dim br As New BinaryReader(fs)
Dim imagen As Byte() = New Byte(CInt(fs.Length) - 1) {}
br.Read(imagen, 0, CInt(fs.Length))
br.Close()
fs.Close()
Return imagen
End Function
despues de todo esto asocio el datarow al dataset
y al crystal report le paso el dataset.
Si alguien me puede ayudar se lo agradeceria muchisimo
Muchas gracias de antemano
Valora esta pregunta


0