CreateObject
Publicado: Lun May 29, 2006 3:48 pm
Saludos. Estoy tratando de crear una instancia de Crystal Reports.
El codigo que tengo en VB (y que funciona OK) es
Dim oProj As CRAXDRT.Application
Dim oReport As CRAXDRT.Report
Dim varX As Variant
Dim varTabla As DatabaseTable
Set oProj = New CRAXDRT.Application
Set oReport = oProj.OpenReport("c:temptest.rpt")
For Each varTabla In oReport.Database.Tables
varTabla.SetLogOnInfo ("MyServer")
Next
oReport.SaveAs "c:tempkaka.rpt", cr80FileFormat
En Xailer estoy tratando simplemente de crear el objeto CRXDRT.Application y
lo hice asi :
LOCAL oProj
oProj := CreateObject( "CRAXDRT.Application" )
Pero me arroja el siguiente error :
***************************** Registro de errores
*****************************
Fecha: 05/29/06
Hora: 09:47:57
Memoria libre: 125848
Area actual: 1
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 0.99.7 Pre-release 7
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 1
----------------------- Información detallada del
error -----------------------
Subsistema: TOleAuto
Código de error: -1
Estado: .F.
Descripción: CO_E_CLASSSTRING
Operación: TOLEAUTO:NEW
Argumentos: [ 1] = Tipo: C Valor: CRAXDRT.Application
Fichero:
Código error SO: 0
Pila de llamadas:
TOLEAUTO:NEW (307)
CREATEOBJECT (67)
SETLOCATION (119)
TFORMMAIN:BTNPROCESARCLICK (102)
TBUTTON:ONCLICK (0)
TBUTTON:CLICK (102)
(b)XCONTROL:XCONTROL (141)
TBUTTON:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (251)
TFORMMAIN:WMCOMMAND (855)
RUNFORM (0)
TAPPLICATION:RUN (189)
MAIN (15)
Deje algo por fuera ?
Saludos y gracias
El codigo que tengo en VB (y que funciona OK) es
Dim oProj As CRAXDRT.Application
Dim oReport As CRAXDRT.Report
Dim varX As Variant
Dim varTabla As DatabaseTable
Set oProj = New CRAXDRT.Application
Set oReport = oProj.OpenReport("c:temptest.rpt")
For Each varTabla In oReport.Database.Tables
varTabla.SetLogOnInfo ("MyServer")
Next
oReport.SaveAs "c:tempkaka.rpt", cr80FileFormat
En Xailer estoy tratando simplemente de crear el objeto CRXDRT.Application y
lo hice asi :
LOCAL oProj
oProj := CreateObject( "CRAXDRT.Application" )
Pero me arroja el siguiente error :
***************************** Registro de errores
*****************************
Fecha: 05/29/06
Hora: 09:47:57
Memoria libre: 125848
Area actual: 1
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 0.99.7 Pre-release 7
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 1
----------------------- Información detallada del
error -----------------------
Subsistema: TOleAuto
Código de error: -1
Estado: .F.
Descripción: CO_E_CLASSSTRING
Operación: TOLEAUTO:NEW
Argumentos: [ 1] = Tipo: C Valor: CRAXDRT.Application
Fichero:
Código error SO: 0
Pila de llamadas:
TOLEAUTO:NEW (307)
CREATEOBJECT (67)
SETLOCATION (119)
TFORMMAIN:BTNPROCESARCLICK (102)
TBUTTON:ONCLICK (0)
TBUTTON:CLICK (102)
(b)XCONTROL:XCONTROL (141)
TBUTTON:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (251)
TFORMMAIN:WMCOMMAND (855)
RUNFORM (0)
TAPPLICATION:RUN (189)
MAIN (15)
Deje algo por fuera ?
Saludos y gracias