Использование Freereport в консольном приложении
При использовании FreeReport в консольном приложении потребовалось использование компонента TfrDBDataSet(нужно вытянуть данные из DBF файла).Код:
frDBDataSet:= TfrDBDataSet.Create(nil);
frReport:=TMyfrReport.Create(nil);
frReport.ShowProgress:=False;
frReport.OnGetValue :=frReport.frReportGetValue;
frReport.LoadFromFile(Rep);
DBF:=THalcyonDataSet.Create(nil);
DBF.DatabaseName:=ExtractFilePath(InFile);
DBF.TableName:=ExtractFileName(InFile);
DBF.Active:=True;
frDBDataSet.DataSet:=DBF;
frReport.Dataset:=frDBDataSet;
frReport.DesignReport;
Но дело в том, что Дизайнер не видит источника данных frDBDataSet... Это как-то решаемо?
frDBDataSet:= TfrDBDataSet.Create(nil);
frReport:=TMyfrReport.Create(nil);
frReport.ShowProgress:=False;
frReport.OnGetValue :=frReport.frReportGetValue;
frReport.LoadFromFile(Rep);
DBF:=THalcyonDataSet.Create(nil);
DBF.DatabaseName:=ExtractFilePath(InFile);
DBF.TableName:=ExtractFileName(InFile);
DBF.Active:=True;
frDBDataSet.DataSet:=DBF;
frReport.Dataset:=frDBDataSet;
frReport.DesignReport;
Но дело в том, что Дизайнер не видит источника данных frDBDataSet... Это как-то решаемо?
Комментарии