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.
#pragma BEGINDUMP
#include <jni.h>
HB_FUNC( YOUR_FUNCTION )
{
JNIEnv * env = create_vm();
jclass class = JavaFindClass( env, "myclass" );
jobject obj = JavaGetClass( env, class );
...
}
#pragma ENDDUMPTaavi,
Did you succeeded to connect Crystal 2011 with xHarbour?
Hi,
Does anyone else use Crystal-Reports 2011 with xHarbour?
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 cMsgThank you Fernando for the example.
I will try it.