ByteScout PDF Renderer SDK – Delphi – Convert PDF To JPEG

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

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

How to convert PDF to JPEG in Delphi using ByteScout PDF Renderer SDK

The tutorial shows how to convert PDF to JPEG in Delphi

ByteScout tutorials are designed to explain the code for both Delphi beginners and advanced programmers. Want to convert PDF to JPEG in your Delphi app? ByteScout PDF Renderer SDK is designed for it. ByteScout PDF Renderer SDK is the SDK for rendering of PDF into thumbnails and images in high quality. Provides various functions like batch processing, PNG, TIFF output. Can be used from web and desktop applications.

The SDK samples like this one below explain how to quickly make your application do convert PDF to JPEG in Delphi with the help of ByteScout PDF Renderer SDK. Just copy and paste the code into your Delphi application’s code and follow the instruction. Enjoy writing a code with ready-to-use sample Delphi codes.

ByteScout PDF Renderer SDK free trial version is available on our website. Delphi and other programming languages are supported.

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.