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?
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
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;