Unigui Fastreport PDF Viewer

[elixir84]

Merhaba,
Unigui de mobil kısmında Fastreportdan PDF oluşturup bunu gösterme,indirme ve excell formatına cevirme yapmak istiyorum. Bununla ilgili aşağıdaki kodu buldum pdf oluşturuyor ama göstermiyor. @pro_imaj arkadaşımız bununla ilgili bir sorun yaşamış ve sorunu kendi bulmuş. (Unigui formunda gördüm). Bu konuda yardımcı olurmusunuz.

function TMainmForm.yazdir(s:String):boolean;
var AUrl:string;
begin
    frxReport1.PrintOptions.ShowDialog := False;
    frxReport1.ShowProgress:=false;
    frxReport1.EngineOptions.SilentMode:=True;
    frxReport1.EngineOptions.EnableThreadSafe := True;
    frxReport1.EngineOptions.DestroyForms := False;
    frxReport1.EngineOptions.UseGlobalDataSetList:=False;
    frxPDFExport1.Background:=True;
    frxPDFExport1.ShowProgress:=False;
    frxPDFExport1.ShowDialog:=False;
    frxPDFExport1.DefaultPath := '';
    frxReport1.PreviewOptions.AllowEdit:=False;
    frxReport1.LoadFromFile(s);
    frxReport1.PrepareReport();
    frxPDFExport1.FileName := UniServerModule.NewCacheFileUrl(False, 'pdf', '', '', AUrl);
    frxReport1.Export( frxPDFExport1);
    Yazdirmafrm.UnimURLFrame1.URL := AUrl;
    yazdirmafrm.show;
end;

[klavye]

olusturmus oldugunuz pdf dosyasini acrobat reader veya baska bir programla açıp kontrol edebilirmisiniz çıktıda sorun var mi diye.
rapor dosyanızın icerisinde richedit vb bilesenler varsa unigui de cikti alamiyorsunuz. bos bir cikti gelebiliyor.

[pro_imaj]

Merhaba;

Özel mesajda da belirttiğim gibi; Genel paylaşımlar özel paylaşımlara göre anlık ve gelecek ihtiyaçları da karşılaması bakımından çok daha değerlidir.

Sorunuzu forumda sorduğunuz için teşekkürler.


Aşağıdaki kod işinizi görecektir;

*files klasörünün içindeki PDF klasörü içinde ilgili şablon dosyasını çağırır.

SablonYolu, DosyaAdi: string;

 SablonYolu := UniServerModule.FilesFolderPath + 'PDF\RaporDosyasi.fr3';
 DosyaAdi := 'PDfAd.pdf';

  UniMainModule.frxReport.PrintOptions.ShowDialog := False;
  UniMainModule.frxReport.ShowProgress := False;
  UniMainModule.frxReport.EngineOptions.SilentMode := True;
  UniMainModule.frxReport.EngineOptions.EnableThreadSafe := True;
  UniMainModule.frxReport.EngineOptions.DestroyForms := False;
  UniMainModule.frxPDFExport.Background := True;
  UniMainModule.frxPDFExport.ShowProgress := False;
  UniMainModule.frxPDFExport.ShowDialog := False;
  UniMainModule.frxPDFExport.FileName := UniServerModule.LocalCachePath
    + DosyaAdi;
  UniMainModule.frxPDFExport.DefaultPath := '';
  UniMainModule.frxReport.PreviewOptions.AllowEdit := False;
  UniMainModule.frxReport.LoadFromFile(SablonYolu);
  UniMainModule.frxReport.PrepareReport();
  UniMainModule.frxReport.Export(UniMainModule.frxPDFExport);
  UniPDFFrame1.PdfURL := UniServerModule.LocalCacheURL + DosyaAdi;

İyi çalışmalar.

[ibrahim.aydin@perga.com.tr]

(04-08-2018, Saat: 14:21)pro_imaj Adlı Kullanıcıdan Alıntı: Merhaba;

Özel mesajda da belirttiğim gibi; Genel paylaşımlar özel paylaşımlara göre anlık ve gelecek ihtiyaçları da karşılaması bakımından çok daha değerlidir.

Sorunuzu forumda sorduğunuz için teşekkürler.


Aşağıdaki kod işinizi görecektir;

*files klasörünün içindeki PDF klasörü içinde ilgili şablon dosyasını çağırır.

SablonYolu, DosyaAdi: string;

 SablonYolu := UniServerModule.FilesFolderPath + 'PDF\RaporDosyasi.fr3';
 DosyaAdi := 'PDfAd.pdf';

  UniMainModule.frxReport.PrintOptions.ShowDialog := False;
  UniMainModule.frxReport.ShowProgress := False;
  UniMainModule.frxReport.EngineOptions.SilentMode := True;
  UniMainModule.frxReport.EngineOptions.EnableThreadSafe := True;
  UniMainModule.frxReport.EngineOptions.DestroyForms := False;
  UniMainModule.frxPDFExport.Background := True;
  UniMainModule.frxPDFExport.ShowProgress := False;
  UniMainModule.frxPDFExport.ShowDialog := False;
  UniMainModule.frxPDFExport.FileName := UniServerModule.LocalCachePath
    + DosyaAdi;
  UniMainModule.frxPDFExport.DefaultPath := '';
  UniMainModule.frxReport.PreviewOptions.AllowEdit := False;
  UniMainModule.frxReport.LoadFromFile(SablonYolu);
  UniMainModule.frxReport.PrepareReport();
  UniMainModule.frxReport.Export(UniMainModule.frxPDFExport);
  UniPDFFrame1.PdfURL := UniServerModule.LocalCacheURL + DosyaAdi;

İyi çalışmalar.

merhabalar Kodunuza ek bir kaç Bilgi vermek işterim.

DosyaAdi := 'PDfAd.pdf';

raporu aldıktan sonra tekrar baska raporu almak istedigimizde sql cümlesi Degişşe bile Pdf Gösterdiginde Öncekini Göstermektedir. Bunun içinde Dosya işimlerini sabitlemeden kullanmanızı tavsiye ederim iyi çalışmalar.