Let's assume, you have a Blob Filed called "Report" and the table Name is "Reports":
On the frxDesigner object, go to the Event "OnSaveReport" and put this code...
function TForm1.frxDesigner1SaveReport(Report: TfrxReport;
SaveAs: Boolean): Boolean;
var template : TStream;
begin
template := TMemoryStream.Create;
template.Position := 0;
frxReport1.SaveToStream(template);
Reports.Edit;
try
Reports.DisableControls;
(Reports.FieldByName('Report') as TBlobField).LoadFromStream(template);
Reports.Post;
finally
Reports.EnableControls;
end;
end;
now, let's assume you have a button to print your report.... on the event "Onclick" put this code:
procedure TForm1.btnPrintClick(Sender: TObject);
var template : TStream;
begin
template := Reports.CreateBlobStream(Reports.FieldByName('Report'), bmRead);
template.Position := 0;
try
frxReport1.LoadFromStream(template);
frxReport1.ShowReport;
finally
template.Free;
end;
end;
On the frxDesigner object, go to the Event "OnSaveReport" and put this code...
function TForm1.frxDesigner1SaveReport(Report: TfrxReport;
SaveAs: Boolean): Boolean;
var template : TStream;
begin
template := TMemoryStream.Create;
template.Position := 0;
frxReport1.SaveToStream(template);
Reports.Edit;
try
Reports.DisableControls;
(Reports.FieldByName('Report') as TBlobField).LoadFromStream(template);
Reports.Post;
finally
Reports.EnableControls;
end;
end;
now, let's assume you have a button to print your report.... on the event "Onclick" put this code:
procedure TForm1.btnPrintClick(Sender: TObject);
var template : TStream;
begin
template := Reports.CreateBlobStream(Reports.FieldByName('Report'), bmRead);
template.Position := 0;
try
frxReport1.LoadFromStream(template);
frxReport1.ShowReport;
finally
template.Free;
end;
end;