Einzelnen Beitrag anzeigen

franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#1

Fastreport PDF Erstellen stürtzt ab

  Alt 3. Aug 2018, 11:42
Ich habe ein Notebook (Windows Profil) habe letztens das Notebook durch einen neuen ersetzt

Wenn ich Drucken oder eine Vorschau mache geht alle, wenn ich aber eine PDF erzeugen mit frxPDFExport will bekomme ich eine Zugriffsverletzung.

Hier der Code an dem ich glaube das das Problem liegt.

Ich kann leider kein madexcept nutzen da das Projekt noch mit Delphi 2006 und Fastreport 6 erstellt ist.

Delphi-Quellcode:
If Header.Typ='TfrxPictureViewthen
               Begin
                  v2:=TfrxPictureView.Create(B1);
                  S1.Seek(0,0);
                  v2.LoadFromStream(S1);
                  v2.Name:='Firmenkopf_'+IntToStr(i);
            If Header.Name='Picture_Backgroundthen
            Begin
              v2.Name:='Picture_Background';
              with v2 do
              begin
                Left:= -(report.Pages[1] as TfrxReportPage).LeftMargin * fr01cm;
                Top:= -(report.Pages[1] as TfrxReportPage).TopMargin * fr01cm;
                Width:= (report.Pages[1] as TfrxReportPage).PaperWidth * fr01cm;
                Height:= (report.Pages[1] as TfrxReportPage).PaperHeight * fr01cm;
              end;
            End;
               End;
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
  Mit Zitat antworten Zitat