VPF::Помогите вывести отчет Crystal Report в delphi

Anzhela

Дата 6.12.2009, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 2.11.2009
Где: Москва

Репутация: нет
Всего: нет

имеется отчет в 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.

не получается всегда выдается "ошибка вывода отчета"

Это сообщение отредактировал(а) Anzhela - 6.12.2009, 22:25

Anzhela

Дата 6.12.2009, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 2.11.2009
Где: Москва

Репутация: нет
Всего: нет

даже так не получается в чем же ошибка??? помогите...

Код


var
 JN : Word;
begin
 if not OpenDialog1.Execute then
   Exit;

 if not PEOpenEngine then
   raise Exception.Create('Ошибка инициализации Crystal Report');

 JN := PEOpenPrintJob(PChar(OpenDialog1.Filename));
 if JN = 0 then
   raise Exception.Create('Ошибка открытия отчета');

JN на выходе выдает 0. Почему?

Это сообщение отредактировал(а) Anzhela - 6.12.2009, 22:26

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »