Bom dia
Estou desenvolvendo uma API de relatórios com Horse + Fortes Report CE em Lazarus, a ideia e trabalhar com o arquivo somente em memória.
function TReportBase.GetReport: TStream;
begin
RLReport.PrintDialog := False;
RLReport.ShowProgress := False;
RLPDFFilter.ShowProgress := False;
RLReport.Prepare;
Result := TMemoryStream.Create;
RLReport.SaveToStream(Result);
Result.Seek(0, soFromBeginning);
end;
procedure DoReportPerson(Req: THorseRequest; Res: THorseResponse; Next: TNextProc);
var
LReport: TReportPerson;
begin
LReport := TReportPerson.Create(nil);
try
Res.SendFile(LReport.GetReport, 'report.pdf', 'application/pdf');
finally
LReport.Free;
end;
end;
O código acima não da erro, mas não retorna o PDF no navegador (conforme print em anexo).
Quando utilizo o RLReport.SaveToFile gera o arquivo normalmente.
photo_5156672275884386800_w.jfif