imágenes dinámicas y Crystal

Esa pregunta es para gente de la nasa.

Flaco esa pregunta la e visto y tengo ese mismo problemas
pero no hay libro que hable sobre eso.
Ni la gente de Crystal sabe.Y no te tomes el tiempo en
verificar si en reporting services puedes porque tampoco
se puede.




Miao.
Comprate un libro.

Alguien sabe como implementar imágenes dinámicas en un

informe de Crystal a

través de una ruta.
gracias


.

Private Sub PrepareReport()
Dim path As String
Dim fs As System.IO.FileStream
Dim br As System.IO.BinaryReader

Dim ds As DataSet
Dim row As DataRow

'Preparamos el DataSet
'IMPORTANTE: db.Tables es una función que me devuelve un DataSet
ds = db.Tables("[Logos]", "Logos")
'MÁS IMPORTANTE: aquí está el meollo, creo una nueva columna
ds.Tables(0).Columns.Add("Logo",
System.Type.GetType("System.Byte[]"))

'El resto creo que se entiende, en una columna guardo si el artículo
tiene logo o no, en tal caso el logo lo guardo
'en la ruta especificada más el Id del artículo
For Each row In ds.Tables(0).Rows
If (CType(row.Item(5), Boolean) = True) Then
path = System.IO.Path.GetDirectoryName(Main.PathDB)
path = path & "\artículos\" & row.Item(6) & ".JPG"

If (Not System.IO.File.Exists(path)) Then
path = System.IO.Path.GetDirectoryName(Main.PathDB)
path = path & "\artículos\NoFile.BMP"
End If

fs = New System.IO.FileStream(path, IO.FileMode.Open)
br = New System.IO.BinaryReader(fs)

row(7) = br.ReadBytes(br.BaseStream.Length)

br.Close()
br = Nothing

fs.Close()
fs = Nothing
End If
Next

_report.Load(Main.PathApp & "reportes\crLogos.rpt")
_report.PrintOptions.PrinterName = Main.printerD

_report.SetDataSource(Nothing)
_report.SetDataSource(ds)

End Sub