Erro ao gerar PDF via Stream com Fortes Report

[Huelbert Rodrigo]

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

[Talita Edwiges Santos]

Bom dia Huelbert, você conseguiu resolver? Estou com o mesmo problema aqui.