Автоматический ежедневный экспорт отчетов в файл.

Германн

Нужно реализовать "Автоматический ежедневный экспорт отчетов в файл." Без какого-либо диалога с пользователем.
Как это реализовать не понимаю. В хелпе для программистов нашел только функцию frxReport1.Export(frxHTMLExport1);
Но в ней есть только параметр "тип/имя" фильтра. А путь и имя файла как задать?
Версия FR - Базовая.

DimaBr

procedure TForm1.Button1Click(Sender: TObject);
begin
  frxXLSExport1.ShowDialog := false;
  frxXLSExport1.FileName := 'C:\1.xls';
  frxReport1.PrepareReport();
  frxReport1.Export(frxXLSExport1)
end;

Германн

DimaBr написал: »

procedure TForm1.Button1Click(Sender: TObject);
begin
  frxXLSExport1.ShowDialog := false;
  frxXLSExport1.FileName := 'C:\1.xls';
  frxReport1.PrepareReport();
  frxReport1.Export(frxXLSExport1)
end;

Спасибо, попробую.

Германн

Теперь ещё один маленький дополнительный вопрос.
А нельзя ли как-то, откуда-то "вытянуть" те иконки, которые используются в самих компонентах экспорта в дизайн-тайме?
Чтобы использовать для выбора "типа отчёта" в TComboBoxEx?
Понимаю, что эти иконки (в некотором роде) KnowHow, но я ведь не корысти ради, а только для наилучшего использования FR в программе.

gpi

frxRes.PreviewButtonImages

Германн

написал: »

Теперь ещё один маленький дополнительный вопрос.
А нельзя ли как-то, откуда-то "вытянуть" те иконки, которые используются в самих компонентах экспорта в дизайн-тайме?
Чтобы использовать для выбора "типа отчёта" в TComboBoxEx?
Понимаю, что эти иконки (в некотором роде) KnowHow, но я ведь не корысти ради, а только для наилучшего использования FR в программе.

Нашел эти иконки в dclfrxe11.bpl

Германн

DimaBr написал: »

procedure TForm1.Button1Click(Sender: TObject);
begin
  frxXLSExport1.ShowDialog := false;
  frxXLSExport1.FileName := 'C:\1.xls';
  frxReport1.PrepareReport();
  frxReport1.Export(frxXLSExport1)
end;

Спасибо, Дмитрий. Ваш код работает.
Но наблюдаются нежелательные артефакты его работы. Точнее работы "экспорта".
1. Основная форма на некоторое время "замораживается".
2. Возникают нежелательные окна с сообщениями о каких-то там стилях. (Пробовал экспорт в XLS).
Можете ли Вы что либо добавить, или мне лучше обратится к разработчикам FR?

gpi

2.

procedure TForm1.Button1Click(Sender: TObject);
begin
  frxXLSExport1.ShowDialog := false;
  frxXLSExport1.ShowProgress := false;
  frxXLSExport1.FileName := 'C:\1.xls';
  frxReport1.PrepareReport();
  frxReport1.Export(frxXLSExport1)
end;