имеется отчет в Crystal Report, CRPE32.DLL и CRPE32.Pas. подскажите как вывести отчет в delphi или хотя бы просто его вызвать. спасибо
пробовала реализовать http://www.citforum.ru/programming/digest/qa_8.shtml
| Код |
procedure TForm1.Button1Click(Sender: TObject);
VAR RepNam:PChar;
begin
if OpenDialog1.Execute then
begin
If PEOpenEngine then
begin RepNam := StrAlloc(80);
StrPCopy(RepNam, OpenDialog1.Filename);
JN := PEOpenPrintJob(RepNam);
if JN = 0 then
ShowMessage('Ошибка открытия отчета');
StrDispose(RepNam);
end
else
ShowMessage('Ошибка открытия отчета');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PEClosePrintJob(JN);
PECloseEngine;
Close;
end;
|
| Код |
procedure TForm1.Button3Click(Sender: TObject);
begin
PEOutputToWindow(jn,'Пример использования Crystal Reports Print
Engine',30,30,600,400,0,0) ;
if PEStartPrintJob(JN, True) = False then
ShowMessage('Ошибка вывода отчета');
end;
end.
|
не получается всегда выдается "ошибка вывода отчета" |