unit WebFastReport;

interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,
 Dialogs, StdCtrls,NativeXml,ReportData, Grids, DBGrids, DB,SysComm,PerlRegEx,
 frxClass, frxDesgn, frxBarcode,frxDBSet,DBClient,ReportDataLoader;
type
 TWebFastReport = class
 private
 Owner:TComponent;

 URL:WideString;
 AppName:WideString;
 ReportName:WideString;

 DataSetName:string;
 ReportData:TReportData;
 ReportDataLoader:TReportDataLoader;
 DataStream:TStream;
 DesignStream:TStream;
 DataSet:RDataSet;
 Variable:RVariable;
 FrxReport:TfrxReport;
 FrxDBDataSet:TFrxDBDataSet;
 MasterData:TFrxMasterData;
 ClientDataSet:TClientDataSet;

 procedure init();
 function OnSaveReport(Report: TfrxReport;SaveAs: Boolean): Boolean;
 procedure OnGetValue(const VarName: String;var Value: Variant);
 public
 constructor create(Aowner:TComponent;AappName:WideString;AreportName:WideString;AUrl:WideString);
 destructor destroy(); override;
 procedure print();
 
 end;
implementation

{ TWebFastReport }

constructor TWebFastReport.create(Aowner:TComponent;AappName:WideString; AreportName: WideString;AUrl: WideString);
begin
 Self.Owner:=Aowner;
 Self.AppName:=AappName;
 Self.ReportName:=AreportName;
 self.URL:=AUrl;
end;

procedure TWebFastReport.print;
begin
 Self.init();
 Self.FrxReport.DesignReport;
end;

destructor TWebFastReport.destroy;
begin
 
end;

procedure TWebFastReport.init;
var
 i,j:Integer;
 flag:Boolean;
begin
 flag:=False;
 Self.ReportData:= TReportData.Create(Self.Owner);
 try
 Self.ReportDataLoader:=TReportDataLoader.create(Self.Owner,Self.AppName,Self.ReportName,Self.URL);
 except
 ShowMessage('000000');
 end;
 Self.DataStream:=Self.ReportDataLoader.GetDataStream;
 Self.DesignStream:=Self.ReportDataLoader.GetDesignStream;
 if Assigned(Self.DataStream) then
 begin
 Self.ReportData.load(Self.DataStream);
 end;
 if Assigned(Self.FrxReport) then
 begin
 FreeAndNil(self.FrxReport);
 end;
 Self.FrxReport:=TfrxReport.Create(self.Owner);
 Self.FrxReport.OnGetValue := Self.OnGetValue;
 Self.FrxReport.LoadFromStream(Self.DesignStream);
 //报表变量加载
 for i := 0 to Self.ReportData.getVariableCount -1 do
 begin
 if i=0 then Self.FrxReport.Variables.Add.Name:= ' def';
 Self.Variable:=Self.ReportData.getRVariable(i);
 Self.FrxReport.Variables.AddVariable('def',Self.Variable.key,Self.Variable.value);
 end;

 //报表数据集加载
 for i:=0 to Self.ReportData.getDataSetCount-1 do
 begin
 Self.DataSet:=Self.ReportData.getRDataSet(i);
 Self.DataSetName:=Self.DataSet.name;
 Self.ClientDataSet:=Self.DataSet.dataset;

 for j := 0 to self.Owner.ComponentCount-1 do
 begin
 if (Self.Owner.Components[j] is TFrxDBDataset) and (TFrxDBDataset(Self.Owner.Components[j]).Name = Self.DataSetName) then
 begin
 flag:=True;
 FrxDBDataSet := TFrxDBDataset(Self.Owner.Components[j]);
 end;
 end;

 if not flag then
 begin
 Self.FrxDBDataSet:=TFrxDBDataset.Create(self.Owner);
 Self.FrxDBDataSet.Name:=Self.DataSetName;
 Self.FrxDBDataSet.UserName:=Self.DataSetName;
 end;
 flag:=False;
 self.FrxDBDataSet.DataSet:=Self.ClientDataSet;
 Self.FrxReport.DataSets.Add(Self.FrxDBDataSet);
 
 Self.MasterData:= TFrxMasterData(Self.FrxReport.FindObject('MasterData_'+Self.DataSetName));
 if Assigned(Self.MasterData) then
 begin
 Self.MasterData.DataSet:=Self.FrxDBDataSet;
 end;
 end;
 Self.DataStream.Free;
 Self.DesignStream.Free;
 self.ReportDataLoader.Free;
 Self.ReportData.destroy;
end;

procedure TWebFastReport.OnGetValue(const VarName: String; var Value: Variant);
var
 i:Integer;
 vv:RVariable;
begin
 for i := 0 to Self.ReportData.getVariableCount-1 do
 begin
 vv:=Self.ReportData.getRVariable(i);
 if VarName = vv.key then Value:= vv.value;
 end;
end;

function TWebFastReport.OnSaveReport(Report: TfrxReport;SaveAs: Boolean): Boolean;
var
 i:Integer;
 MasterDataName:string;
 Component:TfrxComponent;
 Path:WideString;
begin
 Component:=nil;
 if true then
 begin
 //清除变量
 for i := 0 to Report.Variables.Count-1 do
 begin
 Report.Variables.DeleteVariable(Report.Variables.items[0].Name); //使用items[0],因为删除时,变量个数在变化
 end;
 //清除数据集
 for i:=0 to Report.DataSets.Count-1 do
 begin
 MasterDataName:='MasterData_'+Report.DataSets.Items[i].DataSetName;
 Component:=Report.FindObject(masterDataName);
 if Assigned(Component) and (Component is TfrxMasterData) then
 begin
 TfrxMasterData(Component).DataSet:=nil;
 end;
 end;
 Report.DataSets.Clear;
 Path:=GetEnvironmentVariable('USERPROFILE')+'\WebFastReport\'+self.AppName;
 if not DirectoryExists(Path) then
 ForceDirectories(Path);
 Report.SaveToFile(Path+'\'+self.ReportName+'.fr3');
 end;
 result:=true;
end;

end.