Rave Report PDF and Intraweb

in the Project Manager, select the ServerController, and in

the Object Inspector, toggleIwServerController.AllowSubFolder to True declare a global tCriticalSection variable, initialize it and free it in the Initialization and Finalization section of the Unit: unit u_irp_safe_page; interface // -- ...ooo... implementation uses SyncObjs; {$R *.dfm} var // -- critical section to serialize the .PDF generation g_c_rave_critical_section: TCriticalSection= Nil; // -- ...ooo... initialization TIWForm1.SetAsMainForm; g_c_rave_critical_section:= TCriticalSection.Create; finalization g_c_rave_critical_section.Free; end

drop a tIwButton and create the OnClick event which will generate and display the .PDF report procedure TIWForm1.GenerateAndDisplayClick(Sender: TObject); var l_pdf_file_name: string; l_session_id_segment: String; procedure generate_pdf; var l_c_rave_dataset_connection: TRvDataSetConnection; begin ClientDataSet1.Close; ClientDataSet1.IndexFieldNames:= g_sort_column; ClientDataSet1.Open; RVProject1.ProjectFile:= WebApplication.ApplicationPath+ '..\\_data\\r_employee.rav'; with RvSystem1 do begin DoNativeOutput:= false; RenderObject:= RvRenderPDF1;

OutputFileName:= IWServerController.FilesDir

+ l_session_id_segment+ '\\'+ l_pdf_file_name; end; // with RvSystem1

// -- create the user specific path

ForceDirectories(ExtractFileDir(RvSystem1.OutputFileName)); // -- enter into the critical section g_c_rave_critical_section.Enter;

// -- create a new RvDataSetConnectoin

l_c_rave_dataset_connection:= TRvDataSetConnection.Create(self); try

l_c_rave_dataset_connection.Name:= 'my_rave_dataset_connection';

l_c_rave_dataset_connection.DataSet:= ClientDataset1; l_c_rave_dataset_connection.Name:= 'dataset_connection_'+ l_session_id_segment;

l_c_rave_dataset_connection.DataSet:= ClientDataset1;

RvProject1.ExecuteReport('Report1'); finally

l_c_rave_dataset_connection.Free; g_c_rave_critical_section.leave;

RvSystem1.OutputFileName:= ''; end; // try/finally end; // generate_pdf procedure display_pdf;

var l_pdf_url: String;

l_popup_page_name: string; l_popup_page_options: string; l_popup_parameter: String; begin

l_pdf_url:= WebApplication.AppURLBase+ '/files/'

+ l_session_id_segment+ '/'+ l_pdf_file_name; IwLabel2.Caption:= l_pdf_url;

l_popup_page_name:= 'the_report';

l_popup_page_options:= 'scrollbars=yes,width=500,height=300';

l_popup_parameter:= 'NewWindow(\ + l_pdf_url + '\\+ l_popup_page_name + '\+ l_popup_page_options + '\; AddToInitProc(l_popup_parameter); end; // display_pdf begin // GenerateAndDisplayClick l_session_id_segment:= WebApplication.AppID; l_pdf_file_name:= 'safe_report_' + g_sort_column+ '_'+ l_session_id_segment+ '.pdf'; generate_pdf; display_pdf; end; // GenerateAndDisplayClick

in the Project Manager, create the OnCloseSession event, and erase all PDF's of this session: procedure TIWServerController.IWServerControllerBaseCloseSession( ASession: TIWApplication); const k_path_delimiter= '\\'; var l_output_file_dir: string; l_search_record: TSearchRec; begin l_output_file_dir:= GServerController.FilesDir+ ASession.AppID; // -- CleanUp session's files directory if FindFirst(l_output_file_dir+ k_path_delimiter+ '*.*', faAnyFile, l_search_record)= 0 then begin repeat DeleteFile( l_output_file_dir+ k_path_delimiter+ l_search_record.Name); until FindNext(l_search_record)<> 0; FindClose(l_search_record); end; RemoveDir(l_output_file_dir); end; // IWServerControllerBaseCloseSession compile, run, type F9, click \

the PDF is displayed in a separate page, and, if you look at the FILES/ subfolder, you will see the session folder with the .PDF in it close the Intraweb Server the session folder is removed

We also tried to generate several kinds of reports, by changing some parameters of the tDataSet: the order, filtering rows etc (but NOT the column structure, which is hard coded in the .RAV)

drop a tIwListbox, with the list of some columns, and create the event which will

sort the ClientDataSet1: var g_sort_column: String= ''; procedure TIWForm1.IWListbox1Click(Sender: TObject); begin with IwListBox1 do case ItemIndex of 0 : g_sort_column:= 'EmpNo'; 1 : g_sort_column:= 'LastName'; 2 : g_sort_column:= 'PhoneExt'; else g_sort_column:= ''; end; // case ClientDataSet1.IndexFieldNames:= g_sort_column; end; // IWListbox1Click

run, select a PhoneExt sort, click \

the PDF is displayed sorted in PhoneExt order

you may repeat the operation with an other sort order

Please note that:

IwServerController.AllowSubFolder only exists for Intraweb versions after 5.1 ? the code within the critical section should be kept as short as possible

? there are many possible options for the pop-up page. We could use code like:

?

const k_options= 'toolbar=no,status=no,menubar=yes,scrollbars=yes'