Solved: BDS 2006 and CR 12.0

Former Member · ‎08-16-2008

We're using Delphi 2006 (Win32) and CR 12.0 (Windows XP).

We downloaded the VCL11 [VCL from BusinessObjects.com (crystalvcl11.zip)|http://ftp1.businessobjects.com/outgoing/products/vcl/crystalvcl11.zip]

and edited the VCL following the instructions in [Updating the VCL.pdf|https://forums.sdn.sap.com/servlet/JiveServlet/download/313-961595-5786667-580/Updating%20the%20CR%20XI%20VCL.pdf].

Doing this we didn' understand the following instructions (TCrpe.GetReportStyle and TCrpe.SetReportStyle):

4. UCrpe32.pas

This is the main unit file of the Crystal Reports VCL.

i. Update the version number check that occurs as the report engine and report document is being loaded. This is located in the TCrpe.LoadEngine, TCrpe.GetReportStyle and TCrpe.SetReportStyle.

ii. Update the About contents by updating the TCRPE_VERSION constant.

What version number in

procedure TCrpe.SetReportStyle(const Value: TCrReportStyle);
var
  wStyle : Word;
  xInt   : integer;
begin
  FReportStyle := Value;
  if IsStrEmpty(FReportName) then Exit;
  if not OpenPrintJob then Exit;

  wStyle := FCrpeEngine.PEGetReportStyle(FPrintJob);
  if wStyle > 10 then
  begin
    case GetErrorMsg(FPrintJob,errNoOption,errEngine,'',
        'SetReportStyle <PEGetReportStyle>') of
      errIgnore : Exit;
      errAbort  : Abort;
      errRaise  : raise ECrpeError.Create(FLastErrorNumber, FLastErrorString);
    end;
  end;

  xInt := wStyle;
  if Ord(FReportStyle) <> xInt then
  begin
    wStyle := Ord(FReportStyle);
    {Send in changes}
    if not FCrpeEngine.PESetReportStyle (FPrintJob, wStyle) then
    begin
      case GetErrorMsg(FPrintJob,errNoOption,errEngine,'',
          'SetReportStyle <PESetReportStyle>') of
        errIgnore : Exit;
        errAbort  : Abort;
        errRaise  : raise ECrpeError.Create(FLastErrorNumber, FLastErrorString);
      end;
    end;
  end;
end;

?

All other updates to the VCL where made.

We installed TCrpe and created a new Delphi project using this component.

Running the application, the follwing error appears:

ECrpeError mit der Meldung 'Error: 100 Error loading library: CRPE*".DLL'

The error occurs in:

function TCrpeEngine.PELoadCrpeDll(const CrpeLocation: string) : Bool;

Eventually missing pvlocale-1-0.dll (CRPE32.DLL was found)?

We also tried to use the viewer (package in crystalvcl11.zip).

Using this component leads to the error:

[Pascal Fehler] CrystalActiveXReportViewerLib12_TLB.pas(2906): E2160 Typ in einem OLE-Automatisierungsaufruf nicht erlaubt

occurred in the line

InterfaceVariant.ObjectPosition := pVal;

:

function TCRVSelectionItem.Set_ObjectPosition(pVal: tagRECT): HResult;
  { Warnung: Die EigenschaftObjectPosition hat einen Setter und eine Getter, deren
    Typen unterscheidlich sind. Delphi kann keine solche Eigenschaft generieren
    und verwendet deshalb eine Variante . }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ObjectPosition := pVal;
  Result := S_OK;
end;

How can get Delphi 2006 (Win32) and CR 12 (CRPE and viewer) working together ?

Thanks for your help.

Rolf

former_member200290 · ‎08-29-2008

So I have tried doing this on my side and in a simple scenerio I got it to work.

In tcrpe.loadEngine I changed if FVersion.FCrpe.FMajor <> 11 to be < 11

FVersion.FCrpe.FMajor < 11

And in GetCommonFilesPath I had to make sure that the regkey.OpenKey('..'); changed from looking at suite 11 to suite 12.

Then I started to get the same errors as you where it couldn't find the dll's. So basically for every dll it couldn't find I copied it from our directories and pasted them into system32, well actually because I was trying to hurry I copied all the crystal dlls from \program files\business objects\business objects enterprise 12.0\win32_x86 to the the c:\windows\system32.

At this point the crpe was able to run reports. However I was testing with Delphi 7 as I do not have BDS 2006 to test with so my results may be different then yours.

I know that this is not the most elegant however the VCL is depricated but available to be used "at your own risk" and the RDC and active x viewer is no longer available.

Trevor

Former Member · ‎11-18-2008

Hi,

Just to update the list of required .dll's, as of CR2008 SP1 I also needed to add:

uf12manager.dll

Regards,

Peter.

former_member200290 · ‎10-07-2008

Do I understand right? For Delphi native Win32 developers hence it would be better to remain at Crystal Reports XI in order to get feature rich interfaces between Delphi and CR? 
If this is true, would it be possible to get XI for free having ordered 2008?

Yes you understand correctly; however I would suggest XI R2. I have previously stated Microsoft stopped stopped supporting COM and WIN32 based development tools (OK technically still possible with unmanaged C++) and and we are following their lead for their Operating Systems.

As for getting a free version of XI R2 for buying CR 2008 I personally would say that is not a problem, unfortunately I am not in sales so I have to direct you to their number:

http://www.businessobjects.com/company/contact_us/

1 866 681 3435 option #2

...it is said that version 2008  substitutes all different "flavors" of XI (so even "developer") i guessed that 2008 can do anything for developers that XI could - and even somewhat more...for Win32 development this seems not to be true - and I guess nowadays many (maybe most) developers are still working in native win32 Very sad to here that BI doesn't care of us anymore.

Again as Microsoft themselves have dropped COM and WIN32 development tools we are following their lead. The reality of the development landscape is that Microsoft Visual Studio and Java developers are by far the majority of the developers out there. If Microsoft chooses to abandon traditional Win32 dev for .NET framework the logical thing to do is follow suite. At one point we had SDKs for Win32 API, COM, Active X, VCL, .NET and our offerings for Windows developers simutaneously. It became impracticle to support, maintain and quite frankly our customers found it confusing to decide what to use.

Trevor

Former Member · ‎09-12-2008

As far as I can say, the VCL is working in Delphi 6, too (loading and showing reports).

Does anybody know, why in UCrpe32.hlp (see VCL zip file) we can read

"This component is for use with ...snip... version 7 of Borland Delphi."?

Former Member · ‎09-05-2008

"First Concerning the Active-X viewer"

I use craxdrt.dll and crviewer.dll. You mean these file are not of version 12?

If yes this means, new features of version 12 would not be printed out?

BTW, craxdrt.dll ist marked as version 12 (hint in Delphi):

// Typbib: C:\Program Files\Business Objects\BusinessObjects Enterprise 12.0\win32_x86\craxddrt.dll (1)
// LIBID: {36E03FEC-8108-468D-A5EA-CAAD0886289A}
// Hilfe-String: Crystal Reports ActiveX Designer Design and Runtime Library 12.0

"The CRPE VCL cannot be passed to the Active X in any way"

Thanks for this information.

"Now typically unless you use two different database connection ..."

We only will use a connection to one database in most of all cases.

These will be Interbase and later MS SQL Server.

"However this created some issues where a developer would set an SQL query..."

IMO, this is done wrong:

Either set the datasource OR modify the WHERE clause in the SQL statement OR execute the query with new parameters.

So I don't see the neccessarity to hide this property only because it was used in a wrong way.

I worked with CR 8.5 for about 3 years and had never problems with setting the datasource.

"We recommend that you use the Selection Formula ..."

OK, I'll try this out.

Unfortunately data shown in a form has to be reloaded in reports.

Would be nice to use SetDataSource in future versions again.

"As for the errors when calling SetDataSource method ..."

Probably the 1. choice (Craxdrt.dll and crviewer.dll with version 11.5).

Choice 2 rather not. The preview is not very satisfying.

Choice 3 not yet. This will be the case probably in one year or more.

But I can't decide it at the moment (have to discuss it), I'll inform you next week.

Anyway, SetDataSource or somthing like OpenSQL in runtime really should be possible.

Thanks a lot for your helpful informations.

Regards, Rolf

Former Member · ‎09-05-2008

"OK you are not using the TCrpe component but using the Crystal Reports .NET SDK."

Nope, ...upsss, yep. I tried nearly everthing now.

I learned yesterday that the VCL has an integrated preview.

In other words, I got the VCL to work (but only with an old preview).

"The viewer you are using is not an Active-X control but a .NET SDK component,

the Active-X viewer is dead and does not ship with CR 12."

Eh? We use CR Developper 12, and I can find the file

"C:Program FilesBusiness ObjectsCommon4.0crystalreportviewers12ActiveXControlsCRViewer.dll".

Importing this file in BDS 2006 as type library the resulting component

TCrystalActiveXReportViewer is working well in a first step of tests

(means, it shows an explicitly loaded report correctly, but yet I can not manipulate the dataset data).

"As for the error you are getting I cannot tell ...."

This was my error, I probably tried to access to a non existing dataset object by loading a wrong report.

Unfortunately the error message didn't help very much.

Anyway I got this to work.

"... as I have been unable to get our .NET ..."

I'm not using .NET at the moment, but in BDS 2006 the type library import works for Win32.

So I cannot imagine any problems using Delphi .NET at the moment.

Later perhaps I have some time to try it out.

To share my result of several test and to show the worst problems a short summary

(using BDS 2006 and CR Developper 12):

1. Using the VCL of version 11

Works after updating and copying DLLs to system32. Unfortunately an old preview.

I didn't get it to work with the new preview TCrystalActiveXReportViewer by something like

CrystalActiveXReportViewer1.ReportSource := Crpe1.????

Probably I'm missing something here.

2. Using the type library import in BDS 2006

Works fine in a first step:

var aRepApp:IApplication; aDoc:IReport; 
  aRepApp:=CoApplication.Create;
  aDoc:=aRepApp.OpenReport('C:TEMPReport1.rpt', EmptyParam);
  CrystalActiveXReportViewer1.ReportSource :=  aDoc;
  CrystalActiveXReportViewer1.ViewReport;

The problem at the moment is to feed the loaded report with new data or to execute the SQL with new parameters.

In CR 8 I made this by (works also fine in Visual Studio)

var DSet OleVariant;
  DSet := OleVariant(AdoQuery1.RecordSet);
  aDoc.SetDataSource(DSet);

But doing this in Delphi with

aDoc.Database.Tables.Item[0].SetDataSource(DSet, EmptyParam);

leads to the error "Die Eigenschaft ist zurzeit schreibgeschützt und kann nicht geändert werden"

(something like "The property is read only at the moment and cannot be modified").

Eh? Read only? At the moment? What am I missing now?

The error even appears if I only try to read on aDoc.Database.Tables.Item[0] or

to execute aTab:=aDoc.Database.Tables.Get_Item(0).

Is it possible, that Database.Tables.Item[0] is declared as readonly?

If yes, could it be possible to change this to published?

If not, how can I refresh data in a loaded report?

I found aDoc.SQLQueryString, but how can I reload data like

aDoc.Param[0] := Param0;
aDoc.Param[1] := Param1;
aDoc.SQLOpen;

What I don't understand here is that I can find aDoc.SQLQueryString

while I'm missing aDoc.Database.Tables[0].SQLQueryString.

Can I add several SQL queries in a main report or in subreports?

If yes, what function does aDoc.SQLQueryString have?

If no, what function does aDoc.Database.Tables have?

3. Using a VB DLL written in Visual Sudio and called from Delphi

This works without problems (I suppose this also works in Delphi 6, but didn't try it yet).

In Delphi:

aRpt:= CoClassCrystalReport.Create;
aRpt.OpenReport('C:TempReport1.rpt');
ADOQuery1.Close;
ADOQuery1.Open;
DSet:= OleVariant(ADOQuery1.Recordset);
aRpt.SetDataset(DSet);
aRpt.ShowReport;

In VB

Function OpenReport(ByVal FileName As String) As Boolean
  aRpt = New CrystalDecisions.CrystalReports.Engine.ReportDocument
  aRpt.Load(FileName)
Function ShowReport() As Boolean
  aFrm = New Form1
  aFrm.CrystalReportViewer1.ReportSource = aRpt
  aFrm.ShowDialog()
Function SetDataset(ByRef DSet As Object) As Boolean
  aRpt.SetDataSource(DSet)

I know, it's not good solution, but at the moment the working one.

Unfortunately this will lead to lot of work if further functionalities should be implemented.

That's why I'm investing time to search for other solutions.

BTW, where can I get a object model description for learning how

- to access to report SQL statements?

- to feed reports with new data?

- to feed reports with new data without executing queries (using aDoc.SetDataSource)?

Thanks and regards, Rolf

Former Member · ‎09-04-2008

By copying all DLLs to Windows\System32 I can create the TCrpe component without errors.

Thanks to Peter for evluating the DLLs needed.

But when I try to call TCrpe.Execute (or others like TCrpe.Export) I get the error:

Error: 997 Failed to Retrieve Error Message from Print Engine

Any ideas?

I also installed the ActiveX viewer component package (importing the component in Delphi).

But how can I show the loaded report (TCrpe) in the ActiveX component

as it can be done with 4 lines of code in Visual Studio:

Dim aRpt As CrystalDecisions.CrystalReports.Engine.ReportDocument
aRpt = New CrystalDecisions.CrystalReports.Engine.ReportDocument
aRpt.Load("C:\Test\Report1.rpt")
Me.CrystalReportViewer1.ReportSource = aRpt

Regards, Rolf

Former Member · ‎09-04-2008

I have found copying the following files from the C:\Program Files\Business Objects\BusinessObjects Enterprise 12.0\win32_x86 folder into the application folder (where crpe32.dll is also located for our application) solves the problems in our application:

cslibu-3-0.dll

cxlibw-4-0.dll

ebus-3-3-2-6.dll

etc-1-0-12-5.dll

fssl-1-2-1-3.dll

libOCAhelperw-4-0.dll

pvlocale-1-0.dll

ufmanager.dll

Xalan-C_1_10.dll

XalanMessages_1_10.dll

xerces-c_2_7.dll

Former Member · ‎09-01-2008

Hello Trevor, thanks for your answer.

In TCrpe.LoadEngine I wrote "FVersion.FCrpe.FMajor <> 12" (in accordance to the original VCL version).

I also changed "GetCommonFilesPath" as you did (and others "Suite 11.0" -> "Suite 12.0").

In "TCrpe.LoadEngine" the original file was found (so I didn't have to copy those files elsewhere).

But the function "FCrpeEngine.PELoadCrpeDll(sCrpe)" delivered FALSE, leading to the DLL-Error 100 (in "TCrpe.LoadEngine").

Perhaps other DLLs were missing, I'll try this out, probably next week

(in Delphi 6 there is an other error message like "locale???.dll" not found).

So I still wonder what is ment in the instruction pdf file "Updating the VCL":

"Update the version number check that occurs as the report engine and report document is being loaded.

This is located in the TCrpe.LoadEngine, TCrpe.GetReportStyle and TCrpe.SetReportStyle."

Should "if wStyle > 10 then" (version 11.0) be changed to "if wStyle > 11 then" (version12).

Anyway, I tried it out, but this didn't help.

Thus, at the moment, I try to develop an VB-DLL in Visual Studio and call this DLL within Delphi 2006.

In a first step, I had success. But there will be a lot of further work to do.

BTW, do your CRPE32.DLL have a size of 9035KB and the date of 19.10.2007 03:47, too?

Regards, Rolf

BDS 2006 and CR 12.0

Accepted Solutions (1)

Accepted Solutions (1)

Answers (8)

Answers (8)

Re: How to add SAP Datasphere as a datastore in Cl...

How to add SAP Datasphere as a datastore in Cloud ...

Re: CAP odata-v2-adapter: batch request is not sup...

Re: CAP odata-v2-adapter: batch request is not sup...

Re: Cloud Integration: Switch iflow Type