delphi 多线程fastreport简单实例

type

Tmythread = class(TThread)

protected

　　frxrprttmp: TfrxReport;

　　procedure Execute; override;

　　procedure testPrintThread();

public

　　constructor Create(frxrprt: TfrxReport);

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

constructor Tmythread.Create(frxrprt: TfrxReport);

begin

　　frxrprttmp := frxrprt;

　　inherited Create(False); //false表示线程对象的execute()方法在执行create()方法后立刻自动执行，否则需要在某个地方通过resume后激活该线程

　　FreeOnTerminate := False; {这可以让线程执行完毕后随即释放}

end;

procedure Tmythread.Execute();

begin

　　Self.Synchronize(testPrintThread);

end;

procedure Tmythread.testPrintThread();

begin

　　frxrprttmp.Preview := nil;

　　frxrprttmp.PrepareReport;

　　frxrprttmp.PrintOptions.ShowDialog := false;

　　frxrprttmp.Print;

end;

procedure TForm2.cxbtn_designClick(Sender: TObject);

begin

　　frxrprt1.DesignReport();

end;

procedure TForm2.cxbtn_openfr3Click(Sender: TObject);

begin

　　if OpenDialog1.Execute then

　　begin

　　　　cxTextEdit_1.Text := OpenDialog1.FileName;

　　end;

end;

procedure TForm2.cxbtn_previewClick(Sender: TObject);

begin

　　frxrprt1.PrepareReport;

　　frxrprt1.ShowReport;

end;

procedure TForm2.cxbtn_printClick(Sender: TObject);

var

　　i: Integer;

　　mythread: Tmythread;

begin

　　for i := 0 to 10 do

　　begin

　　　　mythread := Tmythread.Create(frxrprt1);

　　end;

end;