Прерывания события печати отчёта (утечка памяти)

EmpireSer · March 2011

Задача: при печати отчёта проверить, разрешена ли печать на данном (выбранном) принтере.
Проблема: как таковой её нет, но есть утечка памяти.
Пример:

type
  TfmPrint = class(TForm)
    frxReport: TfrxReport;
    procedure frxReportPrintReport(Sender: TObject); // процедура для обработки события OnPrintReport
    ...
  end;

implementation

procedure TfmPrint.frxReportPrintReport(Sender: TObject);
var
  IsAccess: Boolean;
begin
  ... // как то проверяем принтер на разрешения.
  if not IsAccess then
  begin
    ... // выводим сообщение пользователю о том, что ему печать на этом принтере запрещена
    Abort;
  end;
  ... // когда всё ОК, то продолжаем дальше.
end;

Если при выполнении процедуры хоть раз вызвался Abort (принтер не прошёл проверку), то, после закрытия приложения, FastMM4 обнаруживает утечки памяти (см. файл к сообщению).

-=Den=- · March 2011

Что за Abort ?
Вы печатаете методами отчета. следовательно и прерывать печать нужно методами того же отчета.
Вам нужно событие OnProgressStart:

procedure TfmPrint.OnProgressStart(Sender: TfrxReport;
    ProgressType: TfrxProgressType; Progress: Integer);
begin

if  ProgressType = ptPrinting then
begin
//start printing
  if not IsAccess then
  begin
    ... // выводим сообщение пользователю о том, что ему печать на этом принтере запрещена
    frxReport.Terminated := True;
  end;

end;

end;

EmpireSer · March 2011

Я делал как привык в событиях обычных компонентов. Про этот способ я не знал.

P.S. Спасибо за разъяснения.

Прерывания события печати отчёта (утечка памяти)

Комментарии

Оставить комментарий