Export from FastReport 4 to PDF Stream

Con FastReport 4 esportare un report in PDF su stream è semplicissimo, bastano 5 minuti … peccato che non è spiegato nella documentazione, quindi per capire come funzionava l’arcano ci ho perso due ore…

di seguito una porzione di codice come esempio:

procedure TForm1.Button3Click(Sender: TObject);
var
st : TMemoryStream;
begin
st := TMemoryStream.Create;
Try
TBlobField(csReports.FieldByName(‘Report’)).SaveToStream(st);
st.Position := 0;
dmReport4.frxReport1.LoadFromStream(st);
st.Position := 0;
st.Clear;
frxPDFExport1.Stream := st;
dmReport4.frxReport1.PrepareReport(True);
dmReport4.frxReport1.Export(frxPDFExport1);

st.Position := 0;

if SD.Execute then
st.SaveToFile(sd.FileName);

ShellExecute(Handle,’open’,PChar(ExtractFileName(sd.FileName)),”,PChar(ExtractFilePath(sd.FileName)),SW_SHOW);
Finally
st.Free;
End;

end;