从PHP到Crystal Report的传递日期参数

Question

我在将日期参数传递给Windows上的PHP5的Crystal Reports 11组件时遇到很大麻烦。它应该是很容易的，当然，但各注释掉的项目似乎并不工作：

<?php 
$my_report = "C:\\xampp\htdocs\wincare\laporan\adm_JumlahPasienPoli.rpt"; // rpt source file 
$my_pdf = "C:\\xampp\htdocs\wincare\laporan\adm_JumlahPasienPoli.pdf"; // RPT export to pdf file 
//-Create new COM object-depends on your Crystal Report version 
$ObjectFactory= new COM("CrystalReports115.ObjectFactory.1") or die ("Error on load"); // call COM port 
$crapp = $ObjectFactory-> CreateObject("CrystalDesignRunTime.Application.11"); // create an instance for Crystal 
$creport = $crapp->OpenReport($my_report,1); // call rpt report 

// to refresh data before 

//- Set database logon info - must have 
$creport->Database->Tables(1)->SetLogOnInfo("localhost", "db_wincare", "sa", "sa"); 

//- field prompt or else report will hang - to get through 
$creport->EnableParameterPrompting = 0; 



// this is the error 

$zz = $creport->ParameterFields(1)->SetCurrentValue("2011-01-01 00:00:00");  

//export to PDF process 
$creport->ExportOptions->DiskFileName=$my_pdf; //export to pdf 
$creport->ExportOptions->PDFExportAllPages=true; 
$creport->ExportOptions->DestinationType=1; // export to file 
$creport->ExportOptions->FormatType=31; // PDF type 
$creport->Export(false); 

//------ Release the variables ------ 
$creport = null; 
$crapp = null; 
$ObjectFactory = null; 

//------ Embed the report in the webpage ------ 
print "<embed src=\"adm_JumlahPasienPoli.pdf\" width=\"100%\" height=\"100%\">" 



?> 

和messege：

Fatal error: Uncaught exception 'com_exception' with message 'Source:
Description: ' in C:\xampp\htdocs\wincare\laporan\pakai.php:36 Stack trace: #0 C:\xampp\htdocs\wincare\laporan\pakai.php(36): variant->SetCurrentValue('2011-01-01 00:0...') #1 {main} thrown in C:\xampp\htdocs\wincare\laporan\pakai.php on line 36

Answer 1

我记得在这个问题上花了很长一段时间一些五年前，并最终找到一个hacky但工作的答案：

// This block is strictly guesswork 
$application = new COM("CrystalRuntime.Application.9"); // Change to your version 
$report = $application->OpenReport($my_report,1);  // From OP's code 
$rptParams = $report.ParameterFields 
$rptParam = $rptParams->Item(2);      // From my SitePoint post; 
                 // obviously you need to use 
                 // the right index 

// Check that $rptParam->ValueType evaluates to 10 - if it does not 
// then modify the type in Crystal Reports itself. Again, see my 
// original solution 

// This bit should be fine 
$oScript = new COM("MSScriptControl.ScriptControl"); 
$oScript->Language = "VBScript"; 
$oScript->AllowUI = false; 
$oScript->AddObject('rptParam', $rptParam, true); 
$oScript->AddCode('Function SetDateParameter(strDate) 
rptParam.AddCurrentValue(CDate(strDate)) 
End Function'); 
$oScript->Run("SetDateParameter", "25 April 2006"); 

这工作得很好，但它不是很优雅！我想，在Windows Server 2003上使用CR9。从here复制 - 在StackExchange :)诞生之前。