向Fastreport公开对象

Question

我主要使用FastReport (评估版)打印发票和报价。我试图在数据源和应用程序逻辑之间保持分离，所以我想知道是否有一种简单的方法可以直接向FastReport公开Delphi对象。目前，我正在使用自定义数据源，但这是大量手工操作。

基本上，我想使用我已经安装的TInvoice对象并使用FastReport打印它。

是否有人实现了一个共同的祖先类或接口来将Delphi对象作为数据源公开给FastReport (或其他报告工具)？

编辑：，我正在使用Delphi。

Answer 1

使用Delphi 2010或更高版本，您可以使用以下代码：

http://code.google.com/p/robstechcorner/source/browse/branches/rttiwork/ObjDS.pas

它可以以下列方式使用：

//typically created and declared someplace else
cds : TClientDataSet; 
Invoice : TInvoice;

var
  Mapper : TDataSetMapping;
begin
  Mapper := TDataSetMapping.Create(cds);
  Mapper.Value := Invoice;
  // CDS is now populated with the values stored in Invoice
end; 

Answer 2

如果你在找有报酬的，我有东西给你。支持简单类型，内存流类作为备注字段，和子对象.在德尔菲7和xe工作。低于自然的东西。也可以使用绑定进行编辑。

{$M+}
TSubInfo = class
publish
  property AMem: TMemoryStream read ... write ....
  property ADat: TDateTime read ... write ....
end;

TInvoice = class
publish
  property AInt: Integer read ... write ...
  property AStr: string read ... write ...
  property ASubInfo: TSubInfo read ... write ...
end;
{$M-}

var
  DataSet: TObjectDataSet; // is decendent from TDataSet
  Invoice: TInvoice;
begin
  Invoice := TInvoice.Create...
  DataSet := TObjectDataSet.Create...;
  DataSet.BindObject := Invoice;
  DataSet.Active := True;
  .....

以apz28的身份联系我