ERROR DE TOleAuto con CRYSTAL REPORT 11

[joseluisysturiz]

Saludos, estoy intentando usar CRYSTAL REPORT 11 con FWH y xHARBOUR, me he guiado por los temas del foro y por el sample mscomm32.prg, pero al compilar me lanza el error que describo y no se conecta, nose si hay que linkear alguna LIB, cualquier ayuda sera agradecida, saludos...

LINEAS DEL .PRG
oCRApp := tOleAuto():New("CrystalRunTime.Application")
oCrp := oCRApp:OpenReport("c:\dpxfac\exe\report1.rpt")
oCRReportBlanc := oCRApp:OpenReport("blanc.rpt")


EL ERROR

Application
===========
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9325)
FiveWin Version: FWHX 12.08
Windows version: 5.1, Build 2600 Service Pack 3

Time from start: 0 hours 1 mins 14 secs
Error occurred at: 16/03/2013, 13:23:53
Error description: Error TOleAuto/65535 : TOLEAUTO:NEW
Args:
[ 1] = C CrystalRunTime.Application

Stack Calls
===========
Called from: => THROW( 0 )
Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW( 0 )
Called from: pruebas.prg => PRUEBA( 7 )
Called from: sumasdatos.PRG => (b)MENUPPAL( 101 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 461 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1037 )
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND( 247 )
Called from: => TMDIFRAME:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 990 )
Called from: sumasdatos.PRG => MAIN( 70 )


Variables in use
================
Procedure Type Value
==========================
THROW
Param 1: O Class: ERROR
Local 1: U
Local 2: U
TOLEAUTO:NEW
Param 1: C "CrystalRunTime.Application"
Local 1: U
Local 2: U
Local 3: O Class: TOLEAUTO
Local 4: O Class: ERROR
PRUEBA
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
(b)MENUPPAL
Param 1: O Class: TMENUITEM
TMENU:COMMAND
Param 1: N 20012
Local 1: O Class: TMENU
Local 2: O Class: TMENUITEM
TWINDOW:COMMAND
Param 1: N 20012
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: N 0
Local 3: N 20012
Local 4: N 0
TMDIFRAME:COMMAND
Param 1: N 20012
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: L .F.
TMDIFRAME:HANDLEEVENT
Param 1: N 273
Param 2: N 20012
Param 3: N 0
_FWH
Param 1: N 0
Param 2: N 273
Param 3: N 20012
Param 4: N 0
Param 5: N 1
Local 1: O Class: TMDIFRAME
WINRUN
Param 1: N 2752794
TMDIFRAME:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: B {|| ... }
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Local 1: O Class: TMDIFRAME
Local 2: U
Local 3: U
MAIN
Local 1: A Len: 10

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use
================

Classes in use:
===============
1 ERROR
2 HASHENTRY
3 HBCLASS
4 HBOBJECT
5 TVARPPAL
6 TWINDOW
7 TCONTROL
8 TGET
9 TBRUSH
10 TCURSOR
11 TICON
12 TMDIFRAME
13 TMENU
14 TMENUITEM
15 TMDICLIENT
16 TFONT
17 TMSGBAR
18 TRECT
19 TMSGITEM
20 TTIMER
21 TDOLPHINSRV
22 TDOLPHINQRY
23 TOLEAUTO
24 TREG32

Memory Analysis
===============
225 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes


[elvira]

Hola,

Mira a ver el nombre del Control Active X, igual es otro.

Asimismo, si nos pones un ejemplo lo podemos probar con Harbour, pues en xHarbour los ActiveX dan problemas.

[nnicanor]

Debes registrar el control ocx para poder utilizarlo.


Slds

[jnavas]

Saludos
Tengo la Misma incidencia, como registro el ActiveX?

Stack Calls
===========
Called from: => THROW( 0 )
Called from: xhb\xhbole.prg => TOLEAUTO:NEW( 0 )
Called from: xhb\xhbole.prg => CREATEOBJECT( 0 )
Called from: dpcrpe.prg => MAIN( 114 )

[jnavas]

Saludos a todos
Mayores datos sobre la incidencia.

Application
===========
Path and name: C:\DPSGEV51\BIN\DPCRPE.EXE (32 bits)
Size: 2,961,408 bytes
Compiler version: Harbour 3.2.0dev (r1603082110)
FiveWin Version: FWH 15.03
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 4 secs
Error occurred at: 05/02/17, 18:01:36
Error description: Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW
Args:
[ 1] = C CrystalRuntime.Application
[ 2] = U
[ 3] = U

Stack Calls
===========
Called from: => THROW( 0 )
Called from: xhb\xhbole.prg => TOLEAUTO:NEW( 0 )
Called from: xhb\xhbole.prg => CREATEOBJECT( 0 )
Called from: dpcrpe.prg => MAIN( 114 )


Programa Fuente
cRpt_Type:=1
cRpt_Format:=31
cRpt_Rpt :="c:\dpsgev51\"+cRpt_Rpt
cRpt_Out :="c:\dpsgev51\pdf\mipdf.pdf"

IF !FILE(cRpt_Rpt)
MsgAlert("Archivo "+cRpt_Rpt+" no Existe para Salida OLEAUTO")
CANCEL
ENDIF


? cRpt_App, cRpt_Rpt,cRpt_Type,cRpt_Format,"ANTES DE OLEAUTO"

oApplication := CreateObject(cRpt_App) // "CrystalRuntime.Application")
oReport := oApplication:OpenReport( cRpt_Rpt)
oReport:ExportOptions:DestinationType(cRpt_Type) // 1 ) //to disk
oReport:ExportOptions:FormatType( cRpt_Format) // 31 //to pdf
oReport:ExportOptions:DiskFileName( cRpt_Out ) // "c:\report.pdf" )
oReport:Export( .t. ) // Antes .f.