Hello World Delphi

Hello World Delphi sample is a simple Windows console application that prints one page with the "Hello World from Delphi!" text to the novaPDF Printer.

It demonstrates the basic use of the INovaPDFOptions interface. The printing job is made with calls to the global Printer object defined by Delphi. Text is printed using Canvas.TextOut method.

It generates a "Hello World.pdf" file in the working folder.

Notice

If you print an existing document using "ShellExecute()" function or you want to handle printing events, you should check the VCL Converter sample instead.

Source code

program HelloWorld;

{$APPTYPE CONSOLE}

uses

  ActiveX,

  Printers,

  novaOptions,

  novapiLIB_TLB;

const

  //name of novaPDF Printer

  PRINTER_NAME    = '<%SDK_SAMPLE_PRINTER%>';

  //text to be written in the PDF file

  PDF_TEXT        = 'Hello world from Delphi!';

  //PDF file name

  PDF_FILE_NAME   = 'HelloWorld_Delphi.pdf';

  //Print profile name

  PROFILE_NAME      = 'HelloWorld Delphi Profile';

  PROFILE_IS_PUBLIC = 0;

var

  hr : HRESULT;

  pNova : INovaPdfOptions;

  strDefaultProfile : WideString;

  bPublicProfile: INTEGER;

  //decomment next code if you use workaround for printer index (see below)

  //Device, Driver, Port: array[0..80] of Char;

  //DevMode: THandle;

BEGIN

  //initialize COM

  hr := ActiveX.CoInitialize(NIL);

  IF (FAILED (hr)) then BEGIN

    System.Writeln('Failed to initialize COM');

    EXIT;

  END;

  //create one NovaPdfOptions instance

  pNova := NIL;

  hr := ActiveX.CoCreateInstance(

              CLASS_NovaPdfOptions, //CLSID_CNovaPdfSource,

              NIL,

              CLSCTX_INPROC_SERVER,

              IID_INovaPdfOptions,

              pNova);

  IF (FAILED(hr))    then BEGIN

    System.Writeln('Failed to create novaPDF COM object');

    EXIT;

  END;

  //initialize NovaPdfOptions and pass printer name

  //if you have an application license for novaPDF SDK,

  //pass both the registration name and the license key to the Initialize2() function

  //hr := pNova.Initialize2( PRINTER_NAME, '<registration name>', '<license key>');

  hr := pNova.Initialize2( PRINTER_NAME, '', '', '' );

  IF (SUCCEEDED(hr)) then BEGIN

    pNova.SetDefaultPrinter();

    // now the default printer is novaPDF printer but the Printer object is not updated

    // here is a workaround to update the Printer object with the default printer

    // you only need this code if you check later on the Printer.PrinterIndex to find out the default printer

    //Printer.GetPrinter(Device, Driver, Port, DevMode);

    //Printer.SetPrinter(PRINTER_NAME, Driver, Port, 0);

    // set optional PDF settings

    // create a temporary profile for the current print job,

    // in order to not modify the default profile settings

    pNova.AddProfile2(PROFILE_NAME, PROFILE_IS_PUBLIC);

    // set PDF document Title

    pNova.SetOptionString2(NOVAPDF_INFO_TITLE,

                           'Hello World Delphi Sample', PROFILE_NAME, PROFILE_IS_PUBLIC);

    // set resulting file name

    pNova.SetOptionString2(NOVAPDF_SAVE_FOLDER, '', PROFILE_NAME, PROFILE_IS_PUBLIC);

    pNova.SetOptionString2(NOVAPDF_SAVE_FILE,

                           PDF_FILE_NAME, PROFILE_NAME, PROFILE_IS_PUBLIC);

    //do not show prompt dialog

    pNova.SetOptionLong2(NOVAPDF_SAVE_PROMPT, 0, PROFILE_NAME, PROFILE_IS_PUBLIC);

    //if file exists, override

    pNova.SetOptionLong2(NOVAPDF_SAVE_CONFLICT_STRATEGY,

                         FILE_CONFLICT_STRATEGY_OVERWRITE,

                         PROFILE_NAME, PROFILE_IS_PUBLIC);

    //open document in PDF viewer

    pNova.SetOptionLong2(NOVAPDF_ACTION_OPEN_DOCUMENT, 1, PROFILE_NAME, PROFILE_IS_PUBLIC);

    // set active profile

    strDefaultProfile := '';

    pNova.GetActiveProfile2(strDefaultProfile, bPublicProfile);

    pNova.SetActiveProfile2(PROFILE_NAME, PROFILE_IS_PUBLIC);

    //start print job

    Printer.BeginDoc();

    Printer.Canvas.Font.Size := 24;

    Printer.Canvas.TextOut( 100,

                            80,

                            PDF_TEXT);

    Printer.endDoc();

    System.Writeln('Print job finished');

    //restore default profile

    pNova.SetActiveProfile2(strDefaultProfile, bPublicProfile);

    pNova.DeleteProfile2(PROFILE_NAME, PROFILE_IS_PUBLIC);

    //restore default printer

    pNova.RestoreDefaultPrinter();

  END ELSE BEGIN

    System.Writeln('Failed to initialize novaPDF Printer');

  END;

  ActiveX.CoUninitialize();

END.