Ver Mensaje Individual
  #2 (permalink)  
Antiguo 30/06/2010, 06:00
Avatar de Atorort
Atorort
 
Fecha de Ingreso: abril-2010
Ubicación: Valencia
Mensajes: 127
Antigüedad: 14 años, 10 meses
Puntos: 0
Respuesta: Imagen en Crystal Reports

De momento he planteado lo siguiente:

Cargo en el dataset y en él un datatable. La variable img, contiene la ruta recogida de la BBDD, copio la img a una carpeta temporal con un nombre fijo. Después convierto la ruta en mapa de bits y luego lo paso a binario..el problema está para rescatar la imagen...En cristal reports tengo un campo blob para coger esto, pero no hay forma de mostrar la imagen...:
Código ASP:
Ver original
  1. img = dtable.Rows(0).Item(5)
  2.                 FileCopy(img, RutaDestino)
  3.  
  4.                 Dim imagen As New Bitmap(New Bitmap(img), 300, 200)
  5.  
  6.                 Dim ms As New IO.MemoryStream()
  7.                 imagen.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
  8.                 Dim binario As Byte() = ms.ToArray
  9.  
  10. dtnumeros = dset.Tables.Add("ImprNumeros")
  11.  
  12.                 dtnumeros.Columns.Add("id")
  13.                 dtnumeros.Columns.Add("nombre")
  14.                 dtnumeros.Columns.Add("año")
  15.                 dtnumeros.Columns.Add("numero")
  16.                 dtnumeros.Columns.Add("imagen")
  17.  
  18.                 Dim Numero As Integer
  19.                 Numero = CInt(desde)
  20.  
  21.                 While Numero > desde - 1 And Numero < hasta + 1
  22.                     Dim FilaNumero As DataRow = dtnumeros.NewRow
  23.                     FilaNumero("idayuntamiento") = Cod
  24.                     FilaNumero("nombre") = nombre
  25.                     FilaNumero("año") = dtable.Rows(0).Item(2)
  26.                     FilaNumero("numero") = Numero
  27.                     FilaNumero("imagen") = binario
  28.  
  29.                     dtnumeros.Rows.Add(FilaNumero)
  30.                     Numero = Numero + 1
  31.                 End While

¿Alguna idea?
__________________
Adrian Tornero Ortiz
Técnico Superior en Desarrollo de Aplicaciones Informáticas
https://www.linkedin.com/in/adriantornero