
Win32::OLE::CrystalRuntime::Application - Perl Interface to the CrystalRuntime.Application OLE Object

The ASP Version
Dim oApp, oRpt
Set oApp = Server.CreateObject("CrystalRuntime.Application")
Set oRpt = oApp.OpenReport(vFilenameReport, 1)
oRpt.DisplayProgressDialog = False
oRpt.MorePrintEngineErrorMessages = False
oRpt.EnableParameterPrompting = False
oRpt.DiscardSavedData
oRpt.ExportOptions.DiskFileName = vFilenameExport
oRpt.ExportOptions.FormatType = 31 '31=>PDF
oRpt.ExportOptions.DestinationType = 1 '1=>filesystem
oRpt.ExportOptions.PDFExportAllPages = True
oRpt.Export(False)
Set oRpt = Nothing
Set oApp = Nothing
The perl Version
use Win32::OLE::CrystalRuntime::Application; my $application=Win32::OLE::CrystalRuntime::Application->new; my $report=$application->report(filename=>$filename); $report->setParameters(key1=>$value1, key2=>$value2); $report->export(format=>"pdf", filename=>"export.pdf");

This package allows automation of generating Crystal Reports with Perl. This package connects to the Crystal Runtime Application OLE object. You MUST have a license for the Crystal Reports server-side component "Report Designer Control (RDC)" in order for this to work.
Perl API
|
+--------------------+
Perl API +---------------------+ |
| +----------------------+ | |
+---------------------------+ +----------------------+ | | |
| | | | | | |
| Perl Application Object | | Perl Report Object | | | |
| | | | | | |
| "ole" method | | "ole" method | | | |
| +==============+ +-+ +==============+ | | | |
| | | | | | | | | | |
| | Win32::OLE | | | | Win32::OLE | | | | |
| | Application |============| Report | | | | |
| | Object | | | | Object | | | |-+
| | | | | | | | |-+
| +==============+ | | +==============+ |-+
+---------------------------+ +----------------------+

use Win32::OLE::CrystalRuntime::Application;
my $application=Win32::OLE::CrystalRuntime::Application->new(debug=>4);
my $report=$application->report(filename=>$filename);
$report->setConnectionProperties("Server" => "TNSNAME", #if needed
"User ID" => "MyAccount",
"Password" => "MyPassword",
"Schema" => "MySchema");
$report->setParameters($key1=>$value1, $key2=>$value2); #if needed
$report->export(format=>"pdf", filename=>"export.pdf");

my $application=Win32::OLE::CrystalRuntime::Application->new(
ProgramID=>"CrystalRuntime.Application", #default
);
my $application=Win32::OLE::CrystalRuntime::Application->new(
ProgramID=>"CrystalRuntime.Application.11", #require version 11
);

Set and returns the Program ID which defaults to "CrystalRuntime.Application".
my $string=$application->ProgramID;
You may want to specify the version if you have multiple objects in your environment.
$application->ProgramID("CrystalRuntime.Application.11"); #Require version 11
Set or Returns the OLE Application object. This object is a Win32::OLE object that is created with a Program ID of "CrystalRuntime.Application"
Constructs a report object which is a Win32::OLE::CrystalRuntime::Application::Report.
my $report=$application->report(filename=>$filename);

Returns $application->ole->GetVersion


Please try Business Objects.

Michael R. Davis CPAN ID: MRDVT STOP, LLC domain=>stopllc,tld=>com,account=>mdavis http://www.stopllc.com/

This program is free software licensed under the...
The BSD License
The full text of the license can be found in the LICENSE file included with this module.

Crystal Reports XI Technical Reference Guide - http://support.businessobjects.com/documentation/product_guides/boexi/en/crxi_Techref_en.pdf