F�rum Safari n�o abre PDF Intraweb #583052

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

Curtir t�pico

+ 0

Responder