Safari não abre PDF Intraweb

Delphi

29/06/2017

Boa noite pessoal,

Estou desenvolvendo uma aplicação de relatórios intraweb. Acesso a aplicação normal pelos navegadores, porém estou com problemas no navegador Safari. Ele não abre o pdf gerado pela minha aplicação. Testei através de um IPad e Iphone. Testei nos mesmos equipamentos com o Chrome e abriu normalmente os arquivos PDFs.

Segue abaixo o Código que estou utilizando para a abertura dos arquivos.

Desde já agradeço a atenção.

var
  iwhost, iwport, iwfile: string;
  reportname, reportfile, DataNome: string;
  LFile: string;
  LURL: string;
  LOptions: string;
  LWindowName: string;

begin
  try
    DataNome := FormatDateTime('ddmmyyhhmmss', Now());
    reportname := DataNome+webapplication.AppID+'.pdf';
    iwfile := webapplication.ApplicationPath + 'wwwroot\\files\\' + reportname;
    // apaga o pdf já gerado e mostra o novo
    if FileExists(iwfile) then
      DeleteFile(iwfile);
    RelatorioFast.PrepareReport(true);
    frxPDFExport1.FileName := iwfile;
    frxPDFExport1.ShowDialog := false;
    frxPDFExport1.ShowProgress := false;
    RelatorioFast.Export(Self.frxPDFExport1);
//    RelatorioFast.PreviewPages.SaveToFile(reportname);
    LWindowName := 'Report';
    LOptions := 'scrollbars=yes,width=800,height=800';
    LURL := webapplication.AppURLBase + 'files/' + '/' +
      reportname;
    AddToInitProc('NewWindow("' + LURL + '", "' + LWindowName + '","' +
      LOptions + '");');
    WebApplication.ShowNotification('Relatório gerado com Sucesso!', ntSuccess);
  except
    webapplication.ShowNotification('falha ao exibir relatório', ntError);
  end;
Diego Jacauna

Diego Jacauna

Curtidas 0
POSTAR