Создаю компоненты в Run-time и экспортирую отчет в Pdf

lab0art

Привет дорогие спецы, уже голову себе сломал и гугл отгуглил.
Вот код

var
  MyQ:TMyQuery;
  MyCon:TMyConnection;
  MySource:TMyDataSource;
  RepPDF: TfrxReport;
  PDF: TfrxPDFExport;
  DataSetFrx:TfrxDBDataset;

begin
    MyQ:=TMyQuery.Create(nil);
    MyCon:=TMyConnection.Create(nil);
    MyCon.Connected:=False;
    MyCon.LoginPrompt:=False;
    MyCon.Database:=ConDB;
    MyCon.Username:=ConUser;
    MyCon.Server:=ConServer;
    MyCon.Port:=ConPort;
    MyCon.Password:=ConPass;
    MyQ.Connection:=MyCon;
    MyQ.SQL.Text:='SELECT * FROM table;';

    MyQ.Open;

    RepPDF := TfrxReport.Create(nil);
    RepPDF.EngineOptions.SilentMode := True;
    RepPDF.EngineOptions.UseFileCache := False;
    RepPDF.PrintOptions.ShowDialog := False;
    RepPDF.ShowProgress := False;
    RepPDF.EngineOptions.UseGlobalDataSetList:=False;

    DataSetFrx:=TfrxDBDataset.Create(nil);
    DataSetFrx.Name:='DataSetFrx1';
    DataSetFrx.UserName := 'DataSetFrx1';
    DataSetFrx.DataSet:=MyQ;

    RepPDF.DataSets.Add(DataSetFrx);
    RepPDF.EnabledDataSets.Add(DataSetFrx);

    PDF := TfrxPDFExport.Create(nil);
    PDF.ShowDialog := False;
    PDF.ShowProgress := False;

    if (RepPDF.LoadFromFile(GetCurrentDir+'\Rep.fr3')) then
    begin
      if RepPDF.PrepareReport then
      begin
        NameFile:='report_' + FormatDateTime('YYYYYMMDDHHMMSS', Now) + '.pdf';
        PDF.FileName := GetTempDir + NameFile;
        RepPDF.Export(PDF);
      end;
    end;
end;

так вот на строке RepPDF.PrepareReport он в False и никакой ошибки не генерит! В чем может быть проблема?

lab0art

lab0art написал: »

Привет дорогие спецы, уже голову себе сломал и гугл отгуглил.
Вот код

var
  MyQ:TMyQuery;
  MyCon:TMyConnection;
  MySource:TMyDataSource;
  RepPDF: TfrxReport;
  PDF: TfrxPDFExport;
  DataSetFrx:TfrxDBDataset;

begin
    MyQ:=TMyQuery.Create(nil);
    MyCon:=TMyConnection.Create(nil);
    MyCon.Connected:=False;
    MyCon.LoginPrompt:=False;
    MyCon.Database:=ConDB;
    MyCon.Username:=ConUser;
    MyCon.Server:=ConServer;
    MyCon.Port:=ConPort;
    MyCon.Password:=ConPass;
    MyQ.Connection:=MyCon;
    MyQ.SQL.Text:='SELECT * FROM table;';

    MyQ.Open;

    RepPDF := TfrxReport.Create(nil);
    RepPDF.EngineOptions.SilentMode := True;
    RepPDF.EngineOptions.UseFileCache := False;
    RepPDF.PrintOptions.ShowDialog := False;
    RepPDF.ShowProgress := False;
    RepPDF.EngineOptions.UseGlobalDataSetList:=False;

    DataSetFrx:=TfrxDBDataset.Create(nil);
    DataSetFrx.Name:='DataSetFrx1';
    DataSetFrx.UserName := 'DataSetFrx1';
    DataSetFrx.DataSet:=MyQ;

    RepPDF.DataSets.Add(DataSetFrx);
    RepPDF.EnabledDataSets.Add(DataSetFrx);

    PDF := TfrxPDFExport.Create(nil);
    PDF.ShowDialog := False;
    PDF.ShowProgress := False;

    if (RepPDF.LoadFromFile(GetCurrentDir+'\Rep.fr3')) then
    begin
      if RepPDF.PrepareReport then
      begin
        NameFile:='report_' + FormatDateTime('YYYYYMMDDHHMMSS', Now) + '.pdf';
        PDF.FileName := GetTempDir + NameFile;
        RepPDF.Export(PDF);
      end;
    end;
end;

так вот на строке RepPDF.PrepareReport он в False и никакой ошибки не генерит! В чем может быть проблема?

Разобрался.
В шаблоне, во всех полях обращение шло к имени frxDBDataset1, а не к DataSetFrx1.