ByteScout Premium Suite – Delphi – Convert PDF To JPEG with PDF Renderer SDK

Home
/
Articles
/
ByteScout Premium Suite – Delphi – Convert PDF To JPEG with PDF Renderer SDK

printable version:
ByteScout-Premium-Suite-Delphi-Convert-PDF-To-JPEG-with-PDF-Renderer-SDK.pdf

How to convert PDF to JPEG with PDF renderer SDK in Delphi and ByteScout Premium Suite

If you want to learn more then this tutorial will show how to convert PDF to JPEG with PDF renderer SDK in Delphi

On this page you will learn from code samples for programming in Delphi.Writing of the code to convert PDF to JPEG with PDF renderer SDK in Delphi can be executed by programmers of any level using ByteScout Premium Suite. ByteScout Premium Suite can convert PDF to JPEG with PDF renderer SDK. It can be applied from Delphi. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

Want to quickly learn? This fast application programming interfaces of ByteScout Premium Suite for Delphi plus the guidelines and the code below will help you quickly learn how to convert PDF to JPEG with PDF renderer SDK. Follow the instructions from scratch to work and copy the Delphi code. Further improvement of the code will make it more robust.

If you want to try other source code samples then the free trial version of ByteScout Premium Suite is available for download from our website. Just try other source code samples for Delphi.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

PdfToJpeg.dpr

      program PdfToJpeg;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  ComObj,
  ActiveX;

var
  renderer: Variant;
  renderingResolution: Integer;
  outputImageFormat: Integer;
  pageIndex: Integer;

begin

  try

    CoInitialize(nil);

    // Create and initialize Bytescout.PDFRenderer.RasterRenderer object
    renderer := CreateOleObject('Bytescout.PDFRenderer.RasterRenderer');
    renderer.RegistrationName := 'demo';
    renderer.RegistrationKey := 'demo';

    // Load sample PDF document
    renderer.LoadDocumentFromFile('..\..\multipage.pdf');

    // Render PDF document at 96 DPI - default PC display resolution
    // To get higher quality output, set 200, 300 or more
    renderingResolution := 96;

    // Image format: 0 - BMP; 1 - JPEG; 2 - PNG; 3 - TIFF; 4 - GIF
    outputImageFormat := 1;

    // Iterate through pages
    for pageIndex := 0 to renderer.GetPageCount - 1 do
    begin
      // Render document page to JPEG image file
      renderer.Save('page' + IntToStr(pageIndex) + '.jpg', outputImageFormat, pageIndex, renderingResolution);
    end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.