Сохранение результатов отчета

Domkrat

Доброго вечера,

Возможно ли сохранить результаты, текстового отчета в файл, из скрипта!!! , не используя меню.

_Maxx_

1. Из скрипта это ты имеешь в виду FastScript?
2. Не используя меню экспорта?

Domkrat

_Maxx_ написал:

1. Из скрипта это ты имеешь в виду FastScript?
2. Не используя меню экспорта?

Именно это и имел в виду, смысл сформировать сопроводительный текстовый файл, пока вижу один выход: формировать ручками стринг и сохранять его,

а хотелось бы автоматически сформировать ему имя и слить на диск по результатам, которые выводятся на экран Preview.

Или еще вариант, как получить ссылку на экземпляр текущего класса TfrxReport из скрипта?

_Maxx_

Чтобы это сделать надо понять какие объекты у тебя есть. Как узнать какие объекты есть, я так и не понял. Знаю что есть Engine и есть те объекты, которые ты создал на страницах и формах. А вот страницы передварительного просмотра, сам отчет и т.д. - не знаю как найти. В доке вроде не написано. Господа, разработчики, помогите! Как узнать какие объекты есть в системе, кроме Engine?

Или как вариант (теоритически) можно сделать следующее: завести переменную объекта, у которого можно вызвать соответсвующий метод. Поиск в руководстве пользователя, разработчика по слову Export результатов не дал. А вот в руководстве программиста есть соответсвующий метод у объекта типа TfrxReport. Так и называется Export

написал:

procedure Export(Filter: TfrxCustomExportFilter)
Экспортирует отчет, используя данный фильтр экспорта.

В общем надежда есть, но только как получить объект отчета в FastScript (и соответсвенно фильтры?)

Как вариант решения этого вижу, создание внешней функции, которая будет возвращать соответсвующую переменную (то есть программно из приложения добавляешь функцию GetReport: TfrxReport). Затем ее вызываешь. Но такую функцию мне создать не удалось, поскольку CallMethod всегда возвращает Variant.

написал:

TfsCallMethodEvent = function(Instance: TObject; ClassType: TClass;
    const MethodName: String; var Params: Variant): Variant of object;

Хотя по крайней мере на этапе проверки такой скрипт проходит:

var
 aaa: TfrxReport;
 a: integer;
begin
  aaa.Export11();
  a = 4;
end.

В общем учитывая ошибку в последжней строки, синтаксический аналзи проходит на Export11(). Похоже, не решить задачу таким образом. Попробовал, использовать Report.Export, Report - Видно, а метод нет!

Может разработчики подскажут!

_Maxx_

В общем я туплю конкретно после второго дня плотной работы с FR. Так вот, можно написать метод в программе и из FastScript его вызывать! Я такое делал уже. Поэтому и экпорт можно делать как угодно. Вот оно решение твоей проблемы.

P.S. Как писать такие методы почитай в доке.

Domkrat

Спасибо за мысли, реализовал так:

В делфи:


AddMethod('procedure ExportToTxt(AReport:TFrxReport; AFileName : String; isOEMCodepage : Boolean)', SetScriptValue);

procedure ExportToTxt(ReportObj : TfrxReport; AFileName : String; isOEMCodepage : Boolean);
var
ExportFilter : TfrxDotMatrixExport;
begin
ExportFilter := TfrxDotMatrixExport.Create(nil);
with ExportFilter do
try
OEMConvert := isOEMCodepage;
FileName := AFileName;
ExportFilter.SaveToFile := True;
ShowDialog := False;
ReportObj.Preview.Lock;
ReportObj.Export(ExportFilter);
ReportObj.Preview.Unlock;
finally
FreeAndNil(ExportFilter);
end;
end;

function TFunctions.SetScriptValue(Instance: TObject; ClassType: TClass;
const MethodName: string; var Params : Variant) : Variant;
begin
if MethodName = 'EXPORTTOTXT' then
begin
assert(VarIsArray(Params));
assert((VarArrayDimCount(Params) = 1));
assert((VarArrayLowBound(Params, 1) = 0));
assert((VarArrayHighBound(Params, 1) = 2));
ExportToTxt(TfrxReport(integer(Params[0])), Params[1], Params[2]);
end;
end;

В отчете:

procedure OnStopReport(Sender: TfrxComponent);
begin
if ACreateFiles then
begin
s := 'C:\tmp\aaa.txt';

ExportToTxt(TfrxReport(Report), s, true);
end;
end;