RenderPageToFile -> EMF

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I have a PDF that was built with Adobe Acrobat (i think version 7.x).
I downloaded the trial version of Quick PDF version 7.17 and I am using the DCUs for Delphi 7.

I wrote a simple routine to load a pdf and then try to render as an EMF.
1. The text on the emf looks horrible.
2. There is an image at the top of the pdf that is not coming out right either, it has streaks running through it.

I have tried various DPIs and also rendered as bmp, jpg, png and tiff.
All of those formats the text looks great but the image is still messed up.

I really need to be able to export as EMF.
Here is my sample code but I dont know how to attach the original pdf or the output emf.
Any help will be greatly appriciated.

procedure TForm1.Button1Click(Sender: TObject);
var
  PDF: TQuickPDF0717;
begin
  PDF := TQuickPDF0717.Create;
  try
    PDF.UnlockKey(PDF_Unlock_Key);
    PDF.LoadFromFile('C:\Temp\Test.pdf') ;
    PDF.RenderPageToFile(300, 0, 3, 'C:\Temp\Test.emf') ;
  finally
    PDF.Free;
  end;
end;

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
waynefulcher Members Profile Find Members Posts Senior Member Joined: 23 Jun 08 Location: United States Status: Offline Points: 99	Post Options Post Reply Quote waynefulcher Report Post Thanks(0) Quote Reply Topic: RenderPageToFile -> EMF Posted: 01 Mar 10 at 10:46PM
	I have a PDF that was built with Adobe Acrobat (i think version 7.x). I downloaded the trial version of Quick PDF version 7.17 and I am using the DCUs for Delphi 7. I wrote a simple routine to load a pdf and then try to render as an EMF. 1. The text on the emf looks horrible. 2. There is an image at the top of the pdf that is not coming out right either, it has streaks running through it. I have tried various DPIs and also rendered as bmp, jpg, png and tiff. All of those formats the text looks great but the image is still messed up. I really need to be able to export as EMF. Here is my sample code but I dont know how to attach the original pdf or the output emf. Any help will be greatly appriciated. procedure TForm1.Button1Click(Sender: TObject); var PDF: TQuickPDF0717; begin PDF := TQuickPDF0717.Create; try PDF.UnlockKey(PDF_Unlock_Key); PDF.LoadFromFile('C:\Temp\Test.pdf') ; PDF.RenderPageToFile(300, 0, 3, 'C:\Temp\Test.emf') ; finally PDF.Free; end; end;

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3524	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 02 Mar 10 at 6:15AM
	Hi Wayne! If you tried already various syntax alternatives with no success then this case looks like a bug or a not well developed functionality - Post it on the official support page. Cheers, Ingo Edited by Ingo - 02 Mar 10 at 6:16AM

Didi Members Profile Find Members Posts Beginner Joined: 23 Mar 10 Status: Offline Points: 9	Post Options Post Reply Quote Didi Report Post Thanks(0) Quote Reply Posted: 26 Mar 10 at 1:43PM
	I have another question about the RenderPageToFile command: If I use QuickPDF in a little testprogram everything is fine. If I include the code into our application, I have to set the DPI values about ten times higher to get the same result, and after several calls, the program crashes. Of what depends the bitmap's number of pixels ? (additional to DPI setting)