Page 1 of 1
Crystal Reports 2011
Posted: Fri Aug 24, 2012 3:08 pm
by Taavi
Hello,
is somebody using Crystal 2011 with xHarbour? They seems to have API for .NET ja Java only.
But I also found crpe23.dll in installation folder,was able to load it in application and even got an meaningful error when trying to load report.
Anybody using CR 2011 with (x)Harbour?
Antonio, could it be possible to use CR .NET or Java API?
Taavi.
Re: Crystal Reports 2011
Posted: Mon Aug 27, 2012 8:56 am
by Antonio Linares
Taavi,
Yes, we could use the .NET, you can review FiveNet for an example of use:
http://code.google.com/p/fivenet/I have seen how to use Java from C in Harbour, not sure if it will also work the same way on Windows. You could try that too:
Code: Select all | Expand
#pragma BEGINDUMP
#include <jni.h>
HB_FUNC( YOUR_FUNCTION )
{
JNIEnv * env = create_vm();
jclass class = JavaFindClass( env, "myclass" );
jobject obj = JavaGetClass( env, class );
...
}
#pragma ENDDUMP
Re: Crystal Reports 2011
Posted: Wed Apr 17, 2013 12:35 pm
by Marc Vanzegbroeck
Taavi,
Did you succeeded to connect Crystal 2011 with xHarbour?
Re: Crystal Reports 2011
Posted: Fri Apr 19, 2013 6:40 am
by Marc Vanzegbroeck
Hi,
Does anyone else use Crystal-Reports 2011 with xHarbour?
Re: Crystal Reports 2011
Posted: Fri Apr 19, 2013 8:48 am
by fgondi
Yo uso Crystal report 11 con ADS
Code: Select all | Expand
oCRApp := CreateObject("CrystalRuntime.Application.11")
oCRReport := oCRApp:OpenReport(cRpt)
oCRDatabase := oCRReport:Database
oCRTables := oCRDatabase:Tables
oCRTable:= oCRDatabase:Tables(1)
oCRTable:ConnectionProperties:DeleteAll()
oCRDatabase:LogOnServer ('crdb_Ads', "BASE DE DATOS ADD",, cUsuario, cPassword )
For i:= 1 to oCRTables:Count()
oCRTable:= oCRDatabase:Tables(i)
oCRTable:SetLogOnInfo( "BASE DE DATOS ADD", , cUsuario, cPassword )
next
oCRReport:EnableParameterPrompting("False")
oCRReport:DiscardSavedData()
//Ejemplo de Parametros si hacen falta
oCRParameterField := oCRReport:ParameterFields
if oCRParameterField:Count() > 0
oCRParameterField:GetItemByName('pFchIni'):AddCurrentValue( dFchIni )
...
endif
//Visor ActiveX
DEFINE Window oVentHija MDICHILD Title cTitle
oActiveX := TActiveX():New( oVentHija, "CrystalReports11.ActivexReportViewer.1" )
oVentHija:oClient := oActiveX
oVentHija:cTitle( cTitle )
oActivex:SetProp( "ReportSource", oCRReport )
oActiveX:SetProp( "EnableStopButton", 1 )
oActiveX:SetProp( "EnableAnimationCtrl", 0 )
oActiveX:SetProp( "EnableCloseButton", 1 )
oActiveX:SetProp( "EnableExportButton", 1 )
oActiveX:SetProp( "EnablePopupMenu", 0 )
oActiveX:SetProp( "EnableRefreshButton", 0 )
oActiveX:bOnEvent = { | event, aParams | EventInfo( event, aParams, oCRReport, oActivex ) }
ACTIVATE WINDOW oVentHija;
ON INIT ( oActiveX:Do( "Viewreport" ) );
Valid ( oCRDatabase:LogOffServer ('crdb_Ads', "BASE DE DATOS ADD",, cUsuario, cPassWord ), oCRDatabase := NIL, oActiveX := NIL, oCRReport := NIL )
function EventInfo( event, aParams, oCRReport, oActivex )
local cMsg := cValToChar( event ) //+ CRLF
return cMsg
Re: Crystal Reports 2011
Posted: Fri Apr 19, 2013 9:13 am
by Marc Vanzegbroeck
Thank you Fernando for the example.
I will try it.