Crystal Report - AÑADIR IMAGEN EN TIEMPO DE EJECUCION ¡¡ URGENTE!!

Hola a todos/as:
En fin mi problema es el de muchos, pero como puedo mandar una imagen al CR8 en tiempo de ejecución para imprimir la foto o logo del cliente en un informe
tengo un campo en la tabla que se llama logo1, donde almaceno la direccion del jpg
los datos del clientes salen todos bien, pero quiero que salga su logo en la correspondencia.
He leido por ahí lo de insertar imagen (OBJETO OLE), pero como renombro su path para lo que quiero y como lo identifico

Os agradecirá un ejemplo o algún sitio donde buscar que no encuentro nada, y si en este foro no lo hay dudo que lo haya por ahí
Gracias.

Yo tengo crystal XI pero te explico como hago yo.

Inserto en el informe un objeto ole que por defecto tenga una imagen en blanco.
Después en las propiedades de este objecto voy a "Ubicación del archivo" y le pongo directamente el campo donde se encuentra la ruta del objeto a insertar en ejecución.

Espero haberme explicado.

Un saludo

GRACIAS BELEN, seguiré tus pasos y te diré si me sale, gracias de nuevo por tu ayuda, por cierto me podría bajar el crystal XI ?, de donde ?

No se si esta por ahi pirata...

Yo lo tengo original porque lo utilizo en el trabajo.

Suerte

Hola:

Yo quiero hacer lo mismo que ustedes, pero no encuentro la manera de que la foto cambie con el objeto Ole, y no se si exista otra forma de hacerlo.

Espero su respuesta
Gracias

Hola Belén, he dejado un mensaje también para la duda que tenía el compañero al que contestaste.
El problema es que de esta manera únicamente puedes asignarle la ruta cuando estás en diseño en crystal, pero una vez has ejecutardo desde Visual o desde cualquier otro lenguaje la previsualización, no puedes cambiarla.
Esto es lo que yo pretendía hacer, es decir, esa misma propiedad que has nombrado tú, la de Ubicación del archivo, poder cambiarla en tiempo de ejecución.

¿Eso sabríais cómo hacerlo?
Creo que estamos todos con el mismo problema.

Muchas gracias. Un saludo.

Saludos a todos

Yo tambien tengo ese problema, necesito cambiar la imagen en tiempo de ejecución, tengo el nombre del archivo y la ubicación guardada, pero no he encontrado donde cambiarla en tiempo de ejecución

Si Saben de alguna opción se los agradeceria mucho

Saludos

Yo he tenido el mismo problema y lo solucioné gracias a este link.

http://www.dotnetcr.com/index.aspx?ID=3&art=62&tag=Mostrar-Imagenes-en-Crystal-Reports-al-estilo-de-Galeria

Que os valla bien!.

Para vb6 y crystal report 9

General_Declaraciones
Dim WithEvents Section3 As CRAXDRT.Section



Sub NEW_imprimir(ByVal strRutaReporte As String, ByVal STRIDSITE_ As String, ByVal STRDOCTYPE_ As String, ByVal STRNBRDOC_ As String)

Dim frmReportePreviewManual As New frmReportePreviewManual
Dim aplicacion As New CRAXDRT.Application
Dim reporte As CRAXDRT.Report
Dim strTituloReporte As String
'Dim WithEvents SeccioN As CRAXDRT.Section


Screen.MousePointer = 11


strRutaReporte = "C:\Documents and Settings\Programador1\Escritorio\Reporte\"
Set reporte = aplicacion.OpenReport(strRutaReporte & "Rpt_Impresion_FEPE.rpt")
strTituloReporte = "Reporte de Documento Electronico"

reporte.DiscardSavedData
DoEvents
reporte.Database.Tables(1).SetLogOnInfo GetConnectionString


reporte.DiscardSavedData

Call LimpiarReporte(reporte)

reporte.ParameterFields.GetItemByName("@SITEID").AddCurrentValue (STRIDSITE_)
reporte.ParameterFields.GetItemByName("@DOCTYPEID").AddCurrentValue (STRDOCTYPE_)
reporte.ParameterFields.GetItemByName("@NBRDOCUMENT").AddCurrentValue (STRNBRDOC_)


Set Section3 = Nothing
Set Section3 = reporte.Sections(5) 'seccion de reporte - pie de reporte




frmReportePreviewManual.CRViewer91.ReportSource = reporte
frmReportePreviewManual.Caption = strTituloReporte
frmReportePreviewManual.CRViewer91.ViewReport
frmReportePreviewManual.CRViewer91.DisplayGroupTree = False

frmReportePreviewManual.WindowState = 2
Screen.MousePointer = 0
frmReportePreviewManual.Show vbModal


Screen.MousePointer = 0
End Sub


Private Sub section3_Format(ByVal pFormattingInfo As Object)
Dim bmp As StdPicture

With Section3.ReportObjects
'Check picture file exist or not using
'FileSystemObject.FileExists
'If Dir$(App.Path & "\images\" & .Item("Field9").Value) = Empty Then
If Dir$("C:\Documents and Settings\Programador1\Escritorio\Reporte\Coffe2.jpg") = Empty Then
Exit Sub
End If

Set bmp = LoadPicture("C:\Documents and Settings\Programador1\Escritorio\Reporte\Coffe.jpg")
Set .Item("HASH").FormattedPicture = bmp


End With
Set bmp = Nothing
End Sub