SynPdf - ungültige Gleitkommaoperation

**Bjoerk**

Ich hab einen ViewerBilder der je Seite eine Metafile erstellt. Das können schon mal mehrere hundert Seiten sein. Zum pdf export werden diese aufs Pdf.VCLCanvas von SynPdf gezeichnet.

Bei machen Metafiles bekomme ich aber eine Exception. // *** Siehe dort
Kann dazu vielleicht jemand was sagen?

zusammenfalten · markieren

Delphi-Quellcode:

			/// EMF enumeration callback function, called from GDI

// - draw most content on PDF canvas (do not render 100% GDI content yet)

function EnumEMFFunc(DC: HDC; var Table: THandleTable; R: PEnhMetaRecord;

   NumObjects: DWord; E: TPdfEnum): LongBool; stdcall;

var i: integer;

    InitTransX: XForm;

    polytypes: PByteArray;

begin

  result := true;

  with E.DC[E.nDC] do

  case R^.iType of

    .. 

  EMR_EXTTEXTOUTA, EMR_EXTTEXTOUTW:

      E.TextOut(PEMRExtTextOut(R)^); // *** ungültige Gleitkommaoperation

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TViewerBuilder.BuildPdf;

var

  I, Count: integer;

  Pdf: TPdfDocumentGdi;

  MF: TMetaFile;

begin

  MF := TMetaFile.Create;

  Pdf := TPdfDocumentGdi.Create;

  try

    Pdf.Info.Author := 'Abel-Software';

    Pdf.Info.Creator := 'Abel-Software';

    Pdf.Info.CreationDate := Now;

    Pdf.DefaultPaperSize := psA4;

    Pdf.ScreenLogPixels := Round(FPlot.DotsPerInch);

    Count := 0;

    while FileExists(Tea.ViewFileName(FFileName, Count)) do Inc(Count);

    for I := 0 to Count - 1 do

    begin

      MF.LoadFromFile(Tea.ViewFileName(FFileName, I));

      Pdf.AddPage;

      Pdf.VCLCanvas.Draw(0, 0, MF);

    end;

    Pdf.SaveToFile(ChangeFileExt(FFileName, '.pdf'));

  finally

    Pdf.Free;

    MF.Free;

  end;

end;

SynPdf - ungültige Gleitkommaoperation

SynPdf - ungültige Gleitkommaoperation

Forumregeln