Hi Experts...
Below is some of my code that I am using to check how to use CRPE32 API calls. I have inserted comments in the code which include my questions. -
I hope you can help me...
vars
crJob : Integer;
success : Boolean;
params : Integer;
idx : Integer;
begin
/* The language I am using is from a New Zealand Development Environment
called JADE
*/
call peOpenEngine;
crJob := call peOpenPrintJob('d:\peter2.rpt');
if crJob <> 0 then
success := call peOutputToWindow(crJob, 'Hope it Works',0,0,700,900,0,0);
if success then
write 'peOutputToWindow worked...';
params := call peGetNParameterFields(crJob);
write 'Number of Parameters = '& params.String;
/* the above statement returns a value of 5636100 !!!
My report has four parameters - Whats going on here - Can you help??*/
/* Once I find out how many parameters I have ...
What api calls to I need to find out there names and
data types (String, Integer etc)*/
call peStartPrintJob(crJob, true);
else
write 'peOutputToWindow FAILED...';
endif;
if call peClosePrintJob(crJob) then
write 'All closed up '& crJob.String;
else
write 'Not so closed up';
endif;
endif;
epilog
call peCloseEngine;
end;
Hope the code is understandable...
Blinder
Below is some of my code that I am using to check how to use CRPE32 API calls. I have inserted comments in the code which include my questions. -
I hope you can help me...
vars
crJob : Integer;
success : Boolean;
params : Integer;
idx : Integer;
begin
/* The language I am using is from a New Zealand Development Environment
called JADE
*/
call peOpenEngine;
crJob := call peOpenPrintJob('d:\peter2.rpt');
if crJob <> 0 then
success := call peOutputToWindow(crJob, 'Hope it Works',0,0,700,900,0,0);
if success then
write 'peOutputToWindow worked...';
params := call peGetNParameterFields(crJob);
write 'Number of Parameters = '& params.String;
/* the above statement returns a value of 5636100 !!!
My report has four parameters - Whats going on here - Can you help??*/
/* Once I find out how many parameters I have ...
What api calls to I need to find out there names and
data types (String, Integer etc)*/
call peStartPrintJob(crJob, true);
else
write 'peOutputToWindow FAILED...';
endif;
if call peClosePrintJob(crJob) then
write 'All closed up '& crJob.String;
else
write 'Not so closed up';
endif;
endif;
epilog
call peCloseEngine;
end;
Hope the code is understandable...
Blinder