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

Комментарии

• lab0art

  December 2014 отредактировано 09:33

  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.