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;

Was mir direkt auffällt:

markieren

Delphi-Quellcode:

  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;

Warum nicht:

markieren

Delphi-Quellcode:

Count := 0;
    while FileExists(Tea.ViewFileName(FFileName, Count)) do
    begin
      MF.LoadFromFile(Tea.ViewFileName(FFileName, count));
      Pdf.AddPage;
      Pdf.VCLCanvas.Draw(0, 0, MF);
     inc(count)
    end;

Aber um auf Dein eigentlicher Problem zu kommen, hast Du mal im Debugger nachgeschaut was in
PEMRExtTextOut(R)^ drinsteht?

oder wenn es machbar ist hänge doch bitte so ein Metafile mal hier an

Hab erst mal gern ein Count, ist ja auch sowas von wurschd..

Man kann emfs wohl nicht hochladen? Jedenfalls sagt "er" mir -> ungültige Datei.

Zitat von Bjoerk:

Man kann emfs wohl nicht hochladen? Jedenfalls sagt "er" mir -> ungültige Datei.

Es steht ja da, was geht ... "Erlaubte Dateierweiterungen"

Also ab in 'ne ZIP und hoch damit.

Ja, das geht natürlich.

Hallo

Du benutzt bei der MetafIle Erzeugung die
function SetWorldTransform mit (0, -1, 1, 0, 252, 3313) die fliegt Dir um die Ohren
Das setzt intern die Transformation auf 0 --> Param 1 und 4 dürfen eigentlich nie 0 sein da durch diese die Skalierung berechnet wird.

Mit dem aktuellen Stand von Synpdf hast Du verloren, die Worldtransformationen der GDI werden nur im Bereich skalierung und translation unterstützt.
Und das auch nicht wirklich richtig.......

Lustigerweise sitze ich seit 2 Tagen genau vor diesem Problem