Invalid Pointer Operation
Добрый день!
Fast Report 6
Delphi Tokyo 10.2
Fast Report компонент находится на фрейме. Фрейм подгружается динамически в процессе работы программы.
Ошибка Invalid Pointer Operation вываливается в случае повторной отправки на печать на строке
Код
Fast Report 6
Delphi Tokyo 10.2
Fast Report компонент находится на фрейме. Фрейм подгружается динамически в процессе работы программы.
Ошибка Invalid Pointer Operation вываливается в случае повторной отправки на печать на строке
frxRep.FileName:=ExtractFilePath(paramstr(0))+'Rof.fr3';
Код
procedure TframViewDefects.btnPrintClick(Sender: TObject);
var
c,r:Integer;
m:TfrxMemoView;
function TryToFindfrxMemo(const AName:string):Boolean;
begin
m:=(frxRep.FindObject(AName) as TfrxMemoView);
Result:=m<>nil;
end;
begin
try
if not FileExists(ExtractFilePath(paramstr(0))+'Rof.fr3') then
begin
PostToLog('No FastReport file Rof.fr3. No printing available.');
Exit;
end;
frxRep.FileName:=ExtractFilePath(paramstr(0))+'Rof.fr3';
frxRep.LoadFromFile(frxRep.FileName);
if TryToFindfrxMemo('mDateValue') then
m.Memo.Text:=FormatDateTime('dd.mm.yyyy',dtpDate.Date);
if TryToFindfrxMemo('mTimeValue') then
m.Memo.Text:=FormatDateTime('hh:nn:ss',dtpTime.Time);
frxRep.PrepareReport;
frxRep.PrintOptions.Printer:='Default';
frxRep.PrintOptions.ShowDialog:=False;
frxRep.Print;
finally
FreeAndNil(m);
end;
end;
Комментарии
Если пробовать открыть иной файл через Open Dialog, то ошибка появляется.