Pasar imagen de una página a un crystal report como parametro o como sea pero pasarla

[stuart_david3]

Buen día a todos!...

Necesito mucho de su ayuda, quisiera poder pasar una imagen que tengo en una página aspx a un crystal report, esta imagen no la tengo en ninguna base de datos, hago referencia a ella por su url... Así es como tomo su ruta para pasarlo a mi crystal:

Código ASP:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.PreviousPage Is Nothing Then
Dim SourceImage1 As Image
            SourceImage1 = CType(PreviousPage.FindControl("ImageFunc1"), _
                Image)
If Not SourceImage1 Is Nothing Then
                Image1 = SourceImage1
            End If
        End If
Dim rep As ReportDocument = New ReportDocument
        rep.Load(Server.MapPath("ReporteText.rpt"))
Dim Firma As ParameterDiscreteValue = New ParameterDiscreteValue
        Firma.Value = Image1.ImageUrl
rep.ParameterFields(35).CurrentValues.Add(Firma)
        Me.CRVReemplazos.ReportSource = rep
        Me.CRVReemplazos.DataBind()
    End Sub
 

[stuart_david3]

Eh visto que lo hacen con data set, pero el problema es que la imagen no la estoy tomando de ninguna base de datos, ¿hay alguna manera de pasarla como parámetro de una imágen de otra página? Lo he intentado mediante su url, tengo una página donde tengo una imágen:

Código ASP:

<asp:Image ID="Image1" runat="server" ImageUrl="~/ver.jpg" />
 

En otra página la recibo en el evento load de la página de esta manera (junto con otro parametro de textbox, pero solo para ver que si los pase):

Código vb:

Imports CrystalDecisions.Web
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Partial Class Imagen
    Inherits System.Web.UI.Page
    Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()
 
        Dim bytes() As Byte
 
        ' get unicode string as bytes
        bytes = Encoding.UTF8.GetBytes(strData)
 
        ' return byte data
        Return bytes
 
    End Function
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.PreviousPage Is Nothing Then
            Dim SourceTextBox As TextBox
            SourceTextBox = CType(PreviousPage.FindControl("TextBox1"),  _
                TextBox)
            Dim SourceImage As Image
            SourceImage = CType(PreviousPage.FindControl("Image1"),  _
                Image)
            If Not SourceTextBox Is Nothing Then
                TextBox1.Text = SourceTextBox.Text
            End If
            If Not SourceImage Is Nothing Then
                Image1 = SourceImage
            End If
 
        End If
        Dim rep As ReportDocument = New ReportDocument
        rep.Load(Server.MapPath("VerImagen.rpt"))
        Dim ParamAnio As ParameterDiscreteValue = New ParameterDiscreteValue
        ParamAnio.Value = TextBox1.Text
        Dim Imagen As ParameterDiscreteValue = New ParameterDiscreteValue
        Imagen.Value = Image1.ImageUrl
        Dim hola = StringAsUtf8Bytes(Imagen.Value.GetString)
        rep.ParameterFields(0).CurrentValues.Add(ParamAnio)
        rep.ParameterFields(1).CurrentValues.Add(hola.ToString)
        Me.CRVReemplazos.ReportSource = rep
        Me.CRVReemplazos.DataBind()
    End Sub
End Class
 

Y bueno si puedo mostrar la URL en el parámetro que puse en mi Crystal Report, pero a la hora de querer mostrar la imagen en base a esta URL, pues no me la muestra y me manda este error:

No se encuentra el miembro público 'GetString' en el tipo 'String'.

La verdad no se si sea la manera correcta, pero relacionando lo que he leído eh llegado a esto.

¿Es correcto que ponga un parámetro y en este muestre la imagen?, es decir, no hay parametros dde tipo Image ¿cierto?

Pues espero y me puedan ayudar por que nada más no me sale ... Gracias de antemano =)...

[stuart_david3]

Tal vez no me explique bien, Me gustaría pasar una imagen de una página a un crystal report no la tengo en ninguna base de datos, ya que lo que he leído siempre lo hacen con un dataset, esto lo hago por que las imágenes que tengo en la página que tiene la imagen las mando de acuerdo al nombre de una persona (ese nombre si lo tengo en la base de datos), es por eso que la imagen de mi página varía de acuerdo al nombre que extraigo de mi base de datos, esto es lo que he estado haciendo.

A manera de ejemplo, quiero pasar por lo pronto una imagen que tenga en mi pagina al crystal report.

Esta es la imagen que mando:

Código vb:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Image1.ImageUrl
        Response.Redirect("Imagen.aspx?maimagen=" + TextBox1.Text)
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Image1.ImageUrl = ("~/cfe2.jpg")
    End Sub
 

Aquí recibo la URL y lo intento mandar a un parámetro, tengo otro parámetro pero con ese no hay problema solo recibe el contenido de un textbox:

Código vb:

Imports System.Drawing
Imports System.IO
Imports CrystalDecisions.Web
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Partial Class Imagen
    Inherits System.Web.UI.Page
    Public Function ImageToByte(ByVal pImagen As Image) As Byte()
        Dim mImage() As Byte
        Try
            If Not IsNothing(pImagen) Then
                Dim ms As New System.IO.MemoryStream
                pImagen.Save(ms, pImagen.RawFormat)
                mImage = ms.GetBuffer
                ms.Close()
                Return mImage
            End If
        Catch
        End Try
    End Function
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TextBox1.Text = Request.QueryString("maimagen")
        Dim Imagen2 As String = TextBox1.Text
        Dim pathImage As String = Server.MapPath(Imagen2)
        Dim Imagen3 = ImageToByte(Image.FromFile(pathImage))
        If Not Page.PreviousPage Is Nothing Then
            Dim SourceTextBox As TextBox
            SourceTextBox = CType(PreviousPage.FindControl("TextBox1"),  _
                TextBox)
            If Not SourceTextBox Is Nothing Then
                TextBox1.Text = SourceTextBox.Text
            End If
 
 
        End If
 
        Dim rep As ReportDocument = New ReportDocument
        rep.Load(Server.MapPath("VerImagen.rpt"))
        Dim ParamAnio As ParameterDiscreteValue = New ParameterDiscreteValue
        ParamAnio.Value = TextBox1.Text
        Dim Imagen As ParameterDiscreteValue = New ParameterDiscreteValue
        Imagen.Value = Imagen3
        rep.ParameterFields(0).CurrentValues.Add(ParamAnio)
        rep.ParameterFields(1).CurrentValues.Add(Imagen)
        Me.CRVReemplazos.ReportSource = rep
        Me.CRVReemplazos.DataBind()
    End Sub
End Class
 

Pero pues me arroja este error:

Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.

Detalles de la excepción: System.IO.FileNotFoundException: C:\Users\Deivid\Documents\Visual Studio 2010\WebSites\ImagenCrystal

Espero y me puedan ayuda, saludos!...