Как склеить отчеты?

Комментарии

• Michael планета Земля

  August 2005 отредактировано 05:51

  Composite Report?
• Nick N.

  August 2005 отредактировано 05:51

  Michael написал:

  Composite Report?

  Протупил...
  
  Судя по описанию, это то что мне нужно. Щас буду пробовать. Спасибо
• Nick N.

  September 2005 отредактировано 05:51

  Кстати, а Coposite Report склеивает готовые отчеты, сохраненные в *.frp?
  
  Если сделать так, то не работает:
  
  Report := frCompositeReport1;
  frReport1.LoadPreparedReport('c:\1.frp');
  frReport2.LoadPreparedReport('c:\2.frp');
  frCompositeReport1.DoublePass := True;
  frCompositeReport1.Reports.Clear;
  frCompositeReport1.Reports.Add(frReport1);
  frCompositeReport1.Reports.Add(frReport2);
  
  В чем проблема? Спасибо
• Michael планета Земля

  September 2005 отредактировано 05:51

  Нет. Готовые склеивать надо примерно так:
  
  begin
  while Src.Objects.Count > 0 do
  begin
  Dst.Objects.Add(Src.Objects[0]);
  Src.Objects.Delete(0);
  end;
  end;
  
  type
  TfrEMFPagesHack = class(TObject)
  private
  StreamMode: (smFRF, smFRP);
  FPages: TList;
  Parent: TfrReport;
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  R2.LoadPreparedReport('aaa.frp');
  R1.EMFPages.AddFrom(R2);
  R2.LoadPreparedReport('file1.frp');
  R1.EMFPages.MergePages(R2.EMFPages,0,0);
  R1.ShowPreparedReport;
  end;
  
• Nick N.

  September 2005 отредактировано September 2005

  Процедуры MargePages нет у объекта EMFPages
  
  Зато прошло вот так:
  
  frReport1.EMFPages.AddFrom(frReport2);
  
  Спасибо за помощь!