procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
fn : string;
begin
//frxReport1.LoadFromFile('c:\Proyectos\rep\reporte.fr3');
fn := 'c:\Proyectos\reporte.fr3';
frxReport1.Clear;
fs := TFileStream.Create(fn, fmOpenReadWrite);
try
fs.Position := 0;
frxReport1.FileName := fn; {<-- The trick using "filename path" }
frxReport1.LoadFromStream(fs);
finally
fs.Free;
end;
frxReport1.PrepareReport;
frxReport1.ShowPreparedReport;
end;
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter