Problemas en 8.06 con Activex

[fgondi]

Acabo de descargar la versión 8.06 de FWH así como la versión de xharbour que viene con él.

En mis aplicaciones uso el activex de CrystalReport.

Code: Select all  Expand view  RUN

oActiveX := TActiveX():New( oVentHija, "CrystalReports11.ActivexReportViewer.1" ) 
oVentHija:oClient := oActiveX
oActivex:SetProp( "ReportSource",  oCRReport )


Al compilar/linkar con la nueva versión me genera un "error en la aplicación" sin grabar ningún error en la línea:

Code: Select all  Expand view  RUN

oActivex:SetProp( "ReportSource",  oCRReport )

También uso Lead Raster View

Code: Select all  Expand view  RUN

oRasterView := TActiveX():New( oWnd, "LEADRasterView.LEADRasterView.140" )   
oRasterView:GetProp( "Raster" )


Y también me genera el mismo problema en la línea:

Code: Select all  Expand view  RUN

oRasterView:GetProp( "Raster" )

[fgondi]

Antonio,

Como puedo resolver este problema

Code: Select all  Expand view  RUN


#include "FiveWin.ch"

function Main()
local cRpt, oCRApp, oCRReport, oActiveX, oVentHija

cRpt := 'Albaran de venta SHOWDTO sin logos.rpt'
oCRApp := CreateObject("CrystalRuntime.Application.11")
oCRReport := oCRApp:OpenReport(cRpt)

DEFINE Window oVentHija Title 'Albarán de venta'
oActiveX := TActiveX():New( oVentHija, "CrystalReports11.ActivexReportViewer.1" )
oVentHija:oClient := oActiveX
oActivex:SetProp( "ReportSource",  oCRReport )
ACTIVATE WINDOW oVentHija ON INIT ( oActiveX:Do( "Viewreport" ), oActivex:Do( "Zoom", 2)  )
return nil


Este código tan simple funciona perfectamente con Fwh 8.05 y no funciona con Fwh 8.06.
La línea

Code: Select all  Expand view  RUN

oActivex:SetProp( "ReportSource",  oCRReport )

genera un error y termina el ejecutable



Por favor, Antonio, ayudame.
Si lo necesitas te envío por mail un instalador con las dll's necesarias para que funciones Crystal Report.

[fgondi]

Por favor Antonio, Aunque sea dime que no es un problema de Fwh, pero dime algo.

El error se genera cuando hago una llamada a SetProp y como segundo parametro paso un objeto.

Fwh 8.06 tiene una serie de amplias ventajas en la clase xBrowse y me gustaría poder usarlas, así como mejoras futuras.

Sólo se me ocurre poder incluir en mis aplicaciones las funciones ActX (ActXSetProperty, ActXGetProperty, etc) de la versión 8.05. Pero es algo que no puedo hacer porque no tengo el fuente de esas funciones.

Entendio que no quieras dar el código fuente de esas funciones, por lo que te pido que me envies un .lib con esas funciones en la versión 8.05.

[Antonio Linares]

Fernando,

Discúlpame que no te haya respondido antes, pero he tenido varios dias bastante atareados.

De donde puedo descargar la versión demo de Crystal para hacer pruebas aqui ? gracias,

[Antonio Linares]

Fernando,

Por favor prueba a hacer este cambio:

En vez de:
METHOD SetProp( cPropName, uParam1 ) INLINE ;
ActXSetProperty( ActXPdisp( ::hActiveX ), cPropName, uParam1 )

usa:
METHOD SetProp( cPropName, uParam1 ) INLINE ;
OleSetProperty( ActXPdisp( ::hActiveX ), cPropName, uParam1 )

[fgondi]

Antonio,

Gracias por tu respuesta.

usa:
METHOD SetProp( cPropName, uParam1 ) INLINE ;
OleSetProperty( ActXPdisp( ::hActiveX ), cPropName, uParam1 )

Es una de las primeras pruebas que realize y sigue fallando.

Te he enviado un mail con Crystal XI y un ejemplo para que lo puedas probar.

[fgondi]

Antonio,

¿Has recibido mi correo?

¿Has podido comprobar algo?

[Antonio Linares]

Fernando,

No hemos recibido tu email. Por favor vuelve a enviarlo como fichero ZIP, gracias.

Tal vez el filtro anti spam lo haya eliminado

[Antonio Linares]

Fernando,

Aún no hemos recibido tu email

[fgondi]

Antonio,

Te he vuelto a enviar el mail.

El motivo de que no hayas recibido es que el instalador de las dll's necesarias para Crystal XI pesa 60 Mb.

En el nuevo correo te envío un rar con el prg para probarlo y un enlace a www.megaupload.com para poder descargar el instalador de las dll's de Crystal XI.

[Antonio Linares]

Fernando,

Descargado e instalando...

[fgondi]

Antonio,

Ok.

[Antonio Linares]

Fernando,

Te acabo de enviar por email unos ficheros para hacer unas pruebas, gracias

[Antonio Linares]

Fernando,

Problema solucionado

Te hemos enviado un email con los nuevos ficheros a usar. Gracias,

[fgondi]

Antonio,

Funciona perfectamente

Muchas gracias.

Sólo un apunte a quien le pueda interesar:

Antes la instrucción CreateObject() aceptaba como parámetro un objeto

Code: Select all  Expand view  RUN

oRaster := oRasterView:GetProp( "Raster" )
CreateObject( oRaster )

Ahora no lo permite, pero se puede solucionar de esta forma

Code: Select all  Expand view  RUN

oRaster := oRasterView:GetProp( "Raster" )
CreateObject( oRaster:hObj )