Как установить параметры экспорта из отчета?

Комментарии

• -=Den=-

  December 2009 отредактировано 11:57

  seGromozeka написал: »

  Следующая задача:
  есть отчет, при выборе пользователем варианта отправки по электронной почте в отчет автоматически добавляется некоторые данные
  типа печати и подписей (чтобы не распечатывать и потом не сканировать), после этого отчет экспортируется в GIF и складывается в определенный
  каталог для последующей обработки и отправки.
  
  Вопросы:
  
  1. Можно ли устанавливать параметры экспорта из скрипта отчета?
  2. Можно ли из отчета инициировать определенный экспорт
  
  Кроме переписывания параметров через функции пользователя ничего в голову не лезет, как еще решить эту проблему?

  1-2. Теоретически возможно, если добавить в скрипт классы и объекты фильтров экспорта, созданные в приложении.
• seGromozeka

  December 2009 отредактировано 11:57

  написал: »

  1-2. Теоретически возможно, если добавить в скрипт классы и объекты фильтров экспорта, созданные в приложении.

  
  А можно немного подробнее?
  А кусочек кода был бы вообще супер...
• -=Den=-

  December 2009 отредактировано 11:57

  seGromozeka написал: »

  А можно немного подробнее?
  А кусочек кода был бы вообще супер...

  frxReport1.Script.AddClass(TfrxCustomExportFilter, 'TComponent');
  frxReport1.Script.AddClass(TfrxCustomImageExport, 'TfrxCustomExportFilter');
  frxReport1.Script.AddClass(TfrxBMPExport, 'TfrxCustomImageExport');
  frxReport1.Script.AddClass(TfrxRTFExport, 'TfrxCustomExportFilter');
  ...
  
  frxReport1.Script.AddObject('frxRTFExport1',frxRTFExport1);
  frxReport1.Script.AddObject('frxBMPExport1',frxBMPExport1);
  ...
  

  
  В скрипте:

  frxRTFExport1.FileName := 'myFilename.rtf';
  

  итд.
• seGromozeka

  December 2009 отредактировано 11:57

  написал: »

  frxReport1.Script.AddClass(TfrxCustomExportFilter, 'TComponent');
  frxReport1.Script.AddClass(TfrxCustomImageExport, 'TfrxCustomExportFilter');
  frxReport1.Script.AddClass(TfrxBMPExport, 'TfrxCustomImageExport');
  frxReport1.Script.AddClass(TfrxRTFExport, 'TfrxCustomExportFilter');
  ...
  
  frxReport1.Script.AddObject('frxRTFExport1',frxRTFExport1);
  frxReport1.Script.AddObject('frxBMPExport1',frxBMPExport1);
  ...
  

  
  В скрипте:

  frxRTFExport1.FileName := 'myFilename.rtf';
  

  итд.

  
  Спасибо - огромное, самому бы квалификации не хватило. Проблему решил.
• seGromozeka

  December 2009 отредактировано 11:57

  Попутный вопрос:
  - параметры экспорта в отчете установили
  - в событии OnStopReport у Report в скрипте отчета вызвали собственную процедуру ExportGif,
  которая эмулирует вызов frxReport.Export(frxGIFExport) (по другому не смог)
  - экспорт проходит отлично
  
  НО!!! превью после такого "ломается", видна только серая подложка, даже контура страницы нет, т.е. не видно
  что именно мы экспортировали. Как избавится от ошибки ?
• gpi

  December 2009 отредактировано December 2009

  Попробуйте

  frxReport.Preview.Lock;
  frxReport.Export(frxGIFExport);
  frxReport.Preview.UnLock;
  

  TfrxCustomPreview, вероятно, тоже придётся добавить в скрипт