PDF displaying

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

   Hi all.Could somebody tell me why Quick PDF does not display the following PDF (just one horizontal line): https://drive.google.com/open?id=0B6Y6LNzVr4n9empXa0k2UENpRUU
All PDF readers display that PDF ok, but Quick PDF doesn't.

I use the following code:
var
  AJpg: TJpegImage;
  AMemStream: Tmemorystream;
  APDF: TQuickPDF;
begin
  AJpg  := TJpegImage.create;
  AMemStream := Tmemorystream.Create;

  APDF  := TQuickPDF.Create;
  try
    APDF.UnlockKey('...');
    APDF.SetGDIPlusOptions(9, 1); //EnhanceThinLines
    APDF.LoadFromFile('Line1-FOP.pdf','');
    APDF.RenderPageToStream(100,1,1,AMemStream);

    AMemStream.Seek(0,0);
    Ajpg.LoadFromStream (AMemStream);

    image1.Top :=0;
    image1.Left:=0;
    image1.Height := Ajpg.Height ;
    image1.Width := Ajpg.Width;
    image1.Picture.Assign(Ajpg);
  finally
    APDF.Free;
    Ajpg.Free;
    AMemStream.Free;
  end;
end;

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
coborhc Members Profile Find Members Posts Beginner Joined: 04 Oct 16 Location: Russia Status: Offline Points: 2	Post Options Post Reply Quote coborhc Report Post Thanks(0) Quote Reply Topic: PDF displaying Posted: 04 Oct 16 at 9:51PM
	Hi all. Could somebody tell me why Quick PDF does not display the following PDF (just one horizontal line): https://drive.google.com/open?id=0B6Y6LNzVr4n9empXa0k2UENpRUU All PDF readers display that PDF ok, but Quick PDF doesn't. I use the following code: var AJpg: TJpegImage; AMemStream: Tmemorystream; APDF: TQuickPDF; begin AJpg := TJpegImage.create; AMemStream := Tmemorystream.Create; APDF := TQuickPDF.Create; try APDF.UnlockKey('...'); APDF.SetGDIPlusOptions(9, 1); //EnhanceThinLines APDF.LoadFromFile('Line1-FOP.pdf',''); APDF.RenderPageToStream(100,1,1,AMemStream); AMemStream.Seek(0,0); Ajpg.LoadFromStream (AMemStream); image1.Top :=0; image1.Left:=0; image1.Height := Ajpg.Height ; image1.Width := Ajpg.Width; image1.Picture.Assign(Ajpg); finally APDF.Free; Ajpg.Free; AMemStream.Free; end; end;