PDF-Preview with RenderPageToStream

Hi All!

This sample for the function RenderPageToStream you
can use as a starting point for a small pdf-viewer.
In this case you have to set a variable for "dpi" to
have zoom-functionality and for "page" (to have forward-
and previous-functions). This could it be in the first
step for you.

If you want to split a big pdf-document into single
pages you can use a similar variant of my sample with
the function RenderDocumentToFile.

For this sample you need a form-, image-, fileload-
and button-component - That's all.

The sample is written in Delphi/Pascal but i think it's
readable enough to use it in any other language.

Cheers, Ingo
 


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, jpeg, QuickPDF0712;

// . . .

var
  Form1: TForm1;
  fstring, s      : String;
  page, pagecount : Integer;
  QP              : TQuickPDF0712;
  Test_Stream     : Tmemorystream;
  jpg             : TJpegImage;

implementation

{$R *.DFM}

// . . .

procedure Pages(fap: String);
begin

   jpg         := TJpegImage.create;
   Test_Stream := Tmemorystream.Create;

   QP  := TQuickPDF0712.Create; 
   try
      QP.UnlockKey('YourKeyShouldBeHere');
      QP.LoadFromFile(the_selected_pdf_document);
      If ( QP.Encrypted > 0 ) Then
         QP.Unencrypt;
//    dpi=72 (you shouldn't use more than 300
//    page=1 (The selected page number)
//    options=1 (1=jpg ... read in the documentation)
      QP.RenderPageToStream(72,1,1,test_stream);
   finally
      QP.Free;
   end;
   test_stream.Seek(0,0);
   jpg.LoadFromStream (test_stream);
   image1.Picture.Assign(jpg);
   test_stream.Clear;
end;
 

Hi Howard,