Ошибка "class C1 Not Found"

alex_ss1

Добрый день!

Сделал простой viewer отчетов fp3 (точнее нашел на Вашем форуме).

uses
Forms,
SysUtils,
Dialogs,
frxClass,
frxRes,
Unit1 in 'Unit1.pas' {DataModule1: TDataModule};

{$R *.res}

begin
Application.Initialize;
Application.Title := 'Просмотр документов .fp3';
Application.CreateForm(TDataModule1, DataModule1);
Application.Run;
With DataModule1 do begin Try
<команда загрузки русского языка frlang.xml (сейчас под рукой кода нет)>
frxReport1.Clear;
frxReport1.PreviewOptions.Buttons := frxReport1.PreviewOptions.Buttons - [pbEdit]; <

---

добавил
frxReport1.PreviewPages.LoadFromFile(ExtractFileName(ParamStr(1)), True);
frxReport1.ReportOptions.Name:=
ExtractFilePath(ParamStr(1))+ExtractFileName(ParamStr(1));
frxReport1.ShowPreparedReport;
except
Try
if OpenDialog1.Execute then begin
frxReport1.Clear;
frxReport1.PreviewPages.LoadFromFile(OpenDialog1.FileName, True);
frxReport1.ReportOptions.Name:=OpenDialog1.FileName;
frxReport1.ShowPreparedReport;
end;
Except
MessageDlg('Ошибка!',mtError,[mbOk],0);
end;
end;
end;
end.


Но открывает не все отчеты. На некоторых вылетает ошибка: Class c1 not found и закрыть программу можно только через диспетчер.

С чем это может быть связано?

alex_ss1

Тему можно удалять.
ошибка была из-за того, что не разместил класс checker на форму.