unit Print2Flash5_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// PASTLWTR : 1.2
// File generated on 3/21/2018 6:28:17 AM from Type Library described below.

// ************************************************************************  //
// Type Lib: H:\Program Files (x86)\Print2Flash5\p2f.tlb (1)
// LIBID: {F032CC6E-C508-40E1-8AD0-344FEA0197FB}
// LCID: 0
// Helpfile: 
// HelpString: Print2Flash 5.0 Library
// DepndLst: 
//   (1) v2.0 stdole, (H:\Windows\SysWOW64\stdole2.tlb)
// Errors:
//   Hint: Symbol 'Assign' renamed to 'Assign_'
//   Hint: Symbol 'Assign' renamed to 'Assign_'
//   Error creating palette bitmap of (TServer) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TProfile) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TBatchProcessingOptions) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TPrintingPreferences) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TServer2) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TProfile2) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TBatchProcessingOptions2) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TPrintingPreferences2) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TP2FApp) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TSkinCollection) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TExcelOptions) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TPowerPointOptions) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TSkin) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TSkinCollection2) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TExcelOptions2) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TPowerPointOptions2) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (TSkin2) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
//   Error creating palette bitmap of (THTML5Options) : Server H:\PROGRA~2\PRINT2~4\p2fbatch.dll contains no icons
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function 
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You   
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
  

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  Print2Flash5MajorVersion = 5;
  Print2Flash5MinorVersion = 0;

  LIBID_Print2Flash5: TGUID = '{F032CC6E-C508-40E1-8AD0-344FEA0197FB}';

  IID_IProfile: TGUID = '{85586141-D013-44D6-B771-090A201463C6}';
  IID_IBatchProcessingOptions: TGUID = '{B5D31A0C-B37A-45B0-B855-52E9A8319839}';
  IID_IPrintingPreferences: TGUID = '{C6556430-49E6-4E5E-913D-5B0A2A973B95}';
  IID_IServer: TGUID = '{B6FF280B-7540-45B4-B527-44945D9D2234}';
  CLASS_Server: TGUID = '{62B34AF6-7949-43C1-9825-31CEB3AAE85B}';
  CLASS_Profile: TGUID = '{3C89303E-AED4-4CF2-BEA3-D24A55EB461B}';
  CLASS_BatchProcessingOptions: TGUID = '{6A14D94E-35AA-4D66-BBEF-A26BEE498B9B}';
  CLASS_PrintingPreferences: TGUID = '{C82766EF-73F6-4A38-92C1-C0E2ECCDC1CB}';
  CLASS_Server2: TGUID = '{466FAC17-24D2-4B37-A2C4-E2CFA0D3E1EB}';
  CLASS_Profile2: TGUID = '{3AF2BD76-043E-442B-A34D-5DD8239C8A1B}';
  CLASS_BatchProcessingOptions2: TGUID = '{185DCF25-B5F5-412D-883A-41B62BDBC03B}';
  CLASS_PrintingPreferences2: TGUID = '{B913F8C1-473A-4963-BE48-B6FE1181085B}';
  IID_IP2FApp: TGUID = '{CC994315-F509-407E-BF86-ACB391428640}';
  CLASS_P2FApp: TGUID = '{BC7C2AD0-10AC-4D9A-9DDC-573D34987AAB}';
  IID_ISkinCollection: TGUID = '{44B39C5D-9B7A-4715-8052-ED653D36F1BA}';
  IID_IExcelOptions: TGUID = '{76F313A0-D328-44CE-B680-31896F2CC56E}';
  IID_IPowerPointOptions: TGUID = '{7A3E353C-B57D-42CF-BE25-400444E85A6B}';
  CLASS_SkinCollection: TGUID = '{27376BF0-84EF-4A7E-B1E8-ED03D99527FB}';
  CLASS_ExcelOptions: TGUID = '{B320BFC0-2D5C-457F-AF02-47F7E0B7F4BB}';
  CLASS_PowerPointOptions: TGUID = '{A1D2FAD1-A450-44A1-B9A8-21E7C77EC29B}';
  IID_ISkin: TGUID = '{7C0BBF6C-4E9F-438F-A4FE-92BB705EE1A1}';
  CLASS_Skin: TGUID = '{BFA7C6D9-B701-466E-8F79-AAA61981C67B}';
  CLASS_SkinCollection2: TGUID = '{59FB2BAA-F8A4-486F-B206-C04C52467F6B}';
  CLASS_ExcelOptions2: TGUID = '{8BBA0E11-7670-4866-81E6-6A173C49D54B}';
  CLASS_PowerPointOptions2: TGUID = '{C3AD97D1-FF33-4C51-B3D4-256DF543980B}';
  CLASS_Skin2: TGUID = '{8E45F671-B29D-460A-928A-522D5164704B}';
  IID_IHTML5Options: TGUID = '{00BDBB8E-1669-432C-AB0E-75F323118129}';
  CLASS_HTML5Options: TGUID = '{581A7B7C-BC4C-427C-826F-D2D44F14FB4B}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum ThreeStateFlag
type
  ThreeStateFlag = TOleEnum;
const
  TSF_NO = $00000000;
  TSF_YES = $00000001;
  TSF_AUTO = $00000002;

// Constants for enum INTERFACE_OPTION
type
  INTERFACE_OPTION = TOleEnum;
const
  INTLOGO = $00000001;
  INTDRAG = $00000002;
  INTSELTEXT = $00000004;
  INTZOOMSLIDER = $00000008;
  INTZOOMBOX = $00000010;
  INTFITWIDTH = $00000020;
  INTFITPAGE = $00000040;
  INTPREVPAGE = $00000080;
  INTGOTOPAGE = $00000100;
  INTNEXTPAGE = $00000200;
  INTSEARCHBOX = $00000400;
  INTSEARCHBUT = $00000800;
  INTROTATE = $00001000;
  INTPRINT = $00002000;
  INTNEWWIND = $00004000;
  INTHELP = $00008000;
  INTBACKBUTTON = $00030000;
  INTBACKBUTTONAUTO = $00010000;
  INTFORWARDBUTTON = $000C0000;
  INTFORWARDBUTTONAUTO = $00040000;
  INTFULLSCREEN = $00300000;
  INTFULLSCREENAUTO = $00100000;
  INTPRINTAUTO = $00402000;

// Constants for enum PROTECTION_OPTION
type
  PROTECTION_OPTION = TOleEnum;
const
  PROTDISPRINT = $00000001;
  PROTDISTEXTCOPY = $00000002;
  PROTENAPI = $00000004;
  PROTDISTEXTCOPYAPI = $00000008;

// Constants for enum PAPER_ORIENTATION
type
  PAPER_ORIENTATION = TOleEnum;
const
  ORIENT_PORTRAIT = $00000001;
  ORIENT_LANDSCAPE = $00000002;

// Constants for enum P2F_PROGRESS
type
  P2F_PROGRESS = TOleEnum;
const
  P2F_PROGRESS_START_PAGE = $00000000;
  P2F_PROGRESS_SEND_PAGE = $00000001;
  P2F_PROGRESS_COMPRESSING = $00000002;
  P2F_PROGRESS_RENDERING = $00000003;

// Constants for enum APPLICATIONTYPE
type
  APPLICATIONTYPE = TOleEnum;
const
  MSEXCEL = $00000001;
  MSWORD = $00000002;
  MSPOWERPOINT = $00000004;
  ACROBAT_PRO = $00000008;
  AUTOCAD = $00000010;
  MSOUTLOOK = $00000020;
  MSPROJECT = $00000040;
  ALL = $7FFFFFFF;
  ADOBEINDESIGN = $00000080;
  OPENOFFICEWRITER = $00000100;
  OPENOFFICECALC = $00000200;
  OPENOFFICEIMPRESS = $00000400;
  OPENOFFICEDRAW = $00000800;
  OPENOFFICEMATH = $00001000;
  MSWORDVIEWER = $00002000;
  MSEXCELVIEWER = $00004000;
  MSPOWERPOINTVIEWER = $00008000;

// Constants for enum OUTPUT_FORMAT
type
  OUTPUT_FORMAT = TOleEnum;
const
  SINGLEFILE = $00000001;
  SEPARATEFILEPERPAGENOTEMPLATE = $00000002;
  EXTVIEWER = $00000004;

// Constants for enum IMAGE_FORMAT
type
  IMAGE_FORMAT = TOleEnum;
const
  IMAGE_FORMAT_JPEG = $00000001;
  IMAGE_FORMAT_PNG = $00000002;

// Constants for enum IMGBEHAVIOR
type
  IMGBEHAVIOR = TOleEnum;
const
  IMGBEHAVIOR_STRETCH = $00000001;
  IMGBEHAVIOR_TILE = $00000002;

// Constants for enum TOOLBAR_IMAGE
type
  TOOLBAR_IMAGE = TOleEnum;
const
  IMGLOGO = $00000001;
  IMGDRAG = $00000002;
  IMGSELTEXT = $00000003;
  IMGZOOMRULER = $00000004;
  IMGZOOMFOCUSNADLE = $00000005;
  IMGZOOMNADLE = $00000006;
  IMGFITWIDTH = $00000007;
  IMGFITPAGE = $00000008;
  IMGPREVPAGE = $00000009;
  IMGNEXTPAGE = $0000000A;
  IMGSEARCHBUT = $0000000B;
  IMGROTATE = $0000000C;
  IMGPRINT = $0000000D;
  IMGNEWWIND = $0000000E;
  IMGHELP = $0000000F;
  IMGMORE = $00000010;
  IMGTOOLBARBGR = $00000011;
  IMGBACK = $00000012;
  IMGFORWARD = $00000013;
  IMGFULLSCREEN = $00000014;
  IMGEXITFULLSCREEN = $00000015;
  IMGLOGOHTML5 = $00000016;

// Constants for enum METADATAFORMAT
type
  METADATAFORMAT = TOleEnum;
const
  METADATAFORMAT_XML = $00000001;
  METADATAFORMAT_TXT = $00000002;

// Constants for enum TEMPLATETYPE
type
  TEMPLATETYPE = TOleEnum;
const
  TEMPLATE_ACTIONSCRIPT2 = $00000002;
  TEMPLATE_ACTIONSCRIPT3 = $00000003;
  TEMPLATE_CUSTOM = $00000001;

// Constants for enum WATERMARKANCHOR
type
  WATERMARKANCHOR = TOleEnum;
const
  CENTER = $00000000;
  LEFTCENTER = $00000001;
  RIGHTCENTER = $00000002;
  TOPCENTER = $00000010;
  BOTTOMCENTER = $00000020;
  LEFTTOP = $00000011;
  RIGHTTOP = $00000012;
  LEFTBOTTOM = $00000021;
  RIGHTBOTTOM = $00000022;

// Constants for enum COMPRESSION_METHOD
type
  COMPRESSION_METHOD = TOleEnum;
const
  COMPRESSION_METHOD_LZMA = $00000001;
  COMPRESSION_METHOD_ZLIB = $00000000;

// Constants for enum POWERPOINT_PRINTOUTPUT
type
  POWERPOINT_PRINTOUTPUT = TOleEnum;
const
  POWERPOINT_PRINTOUTPUT_AUTO = $00000000;
  POWERPOINT_PRINTOUTPUT_Slides = $00000001;
  POWERPOINT_PRINTOUTPUT_TwoSlideHandouts = $00000002;
  POWERPOINT_PRINTOUTPUT_ThreeSlideHandouts = $00000003;
  POWERPOINT_PRINTOUTPUT_SixSlideHandouts = $00000004;
  POWERPOINT_PRINTOUTPUT_NotesPages = $00000005;
  POWERPOINT_PRINTOUTPUT_Outline = $00000006;
  POWERPOINT_PRINTOUTPUT_BuildSlides = $00000007;
  POWERPOINT_PRINTOUTPUT_FourSlideHandouts = $00000008;
  POWERPOINT_PRINTOUTPUT_NineSlideHandouts = $00000009;
  POWERPOINT_PRINTOUTPUT_OneSlideHandouts = $0000000A;

// Constants for enum DOCUMENT_TYPE
type
  DOCUMENT_TYPE = TOleEnum;
const
  FLASH = $00000001;
  HTML5 = $00000002;

// Constants for enum BROWSER_TYPE
type
  BROWSER_TYPE = TOleEnum;
const
  INTERNET_EXPLORER = $00000001;
  FIREFOX = $00000002;
  CHROME = $00000004;
  OPERA = $00000008;
  SAFARI = $00000010;

// Constants for enum VIEW_MODE
type
  VIEW_MODE = TOleEnum;
const
  SINGLEPAGEVIEW = $00000001;
  MULTIPLEPAGEVIEW = $00000002;
  AUTOVIEW = $00000003;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IProfile = interface;
  IProfileDisp = dispinterface;
  IBatchProcessingOptions = interface;
  IBatchProcessingOptionsDisp = dispinterface;
  IPrintingPreferences = interface;
  IPrintingPreferencesDisp = dispinterface;
  IServer = interface;
  IServerDisp = dispinterface;
  IP2FApp = interface;
  IP2FAppDisp = dispinterface;
  ISkinCollection = interface;
  ISkinCollectionDisp = dispinterface;
  IExcelOptions = interface;
  IExcelOptionsDisp = dispinterface;
  IPowerPointOptions = interface;
  IPowerPointOptionsDisp = dispinterface;
  ISkin = interface;
  ISkinDisp = dispinterface;
  IHTML5Options = interface;
  IHTML5OptionsDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  Server = IServer;
  Profile = IProfile;
  BatchProcessingOptions = IBatchProcessingOptions;
  PrintingPreferences = IPrintingPreferences;
  Server2 = IServer;
  Profile2 = IProfile;
  BatchProcessingOptions2 = IBatchProcessingOptions;
  PrintingPreferences2 = IPrintingPreferences;
  P2FApp = IP2FApp;
  SkinCollection = ISkinCollection;
  ExcelOptions = IExcelOptions;
  PowerPointOptions = IPowerPointOptions;
  Skin = ISkin;
  SkinCollection2 = ISkinCollection;
  ExcelOptions2 = IExcelOptions;
  PowerPointOptions2 = IPowerPointOptions;
  Skin2 = ISkin;
  HTML5Options = IHTML5Options;


// *********************************************************************//
// Interface: IProfile
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {85586141-D013-44D6-B771-090A201463C6}
// *********************************************************************//
  IProfile = interface(IDispatch)
    ['{85586141-D013-44D6-B771-090A201463C6}']
    function Get_Name: WideString; safecall;
    procedure Set_Name(const Value: WideString); safecall;
    function Get_InterfaceOptions: Integer; safecall;
    procedure Set_InterfaceOptions(Value: Integer); safecall;
    function Get_ProtectionOptions: Integer; safecall;
    procedure Set_ProtectionOptions(Value: Integer); safecall;
    function Get_FlashVersion: OleVariant; safecall;
    procedure Set_FlashVersion(Value: OleVariant); safecall;
    function Get_UseJpeg: WordBool; safecall;
    procedure Set_UseJpeg(Value: WordBool); safecall;
    function Get_JpegQuality: Integer; safecall;
    procedure Set_JpegQuality(Value: Integer); safecall;
    procedure ApplyChanges; safecall;
    function Get_Language: WideString; safecall;
    procedure Set_Language(const Value: WideString); safecall;
    function Get_ColorAdjustment: WideString; safecall;
    procedure Set_ColorAdjustment(const Value: WideString); safecall;
    function Get_ThumbnailPageRange: WideString; safecall;
    procedure Set_ThumbnailPageRange(const Value: WideString); safecall;
    function Get_ThumbnailImageWidth: Integer; safecall;
    procedure Set_ThumbnailImageWidth(Value: Integer); safecall;
    function Get_ThumbnailImageHeight: Integer; safecall;
    procedure Set_ThumbnailImageHeight(Value: Integer); safecall;
    function Get_ThumbnailFormat: IMAGE_FORMAT; safecall;
    procedure Set_ThumbnailFormat(Value: IMAGE_FORMAT); safecall;
    function Get_ThumbnailJpegQuality: Integer; safecall;
    procedure Set_ThumbnailJpegQuality(Value: Integer); safecall;
    function Get_ThumbnailFileName: WideString; safecall;
    procedure Set_ThumbnailFileName(const Value: WideString); safecall;
    function Get_WatermarkImage: OleVariant; safecall;
    procedure Set_WatermarkImage(Value: OleVariant); safecall;
    function Get_WatermarkScale: Integer; safecall;
    procedure Set_WatermarkScale(Value: Integer); safecall;
    function Get_WatermarkTransparency: Integer; safecall;
    procedure Set_WatermarkTransparency(Value: Integer); safecall;
    function Get_Skin: OleVariant; safecall;
    procedure Set_Skin(Value: OleVariant); safecall;
    function Get_DocTemplate: OleVariant; safecall;
    procedure Set_DocTemplate(Value: OleVariant); safecall;
    function Get_DocTemplateASVersion: Integer; safecall;
    function Get_DocTemplateMaxTagID: Integer; safecall;
    function Get_DocTemplateFlashVersion: Integer; safecall;
    function Get_DocTemplateFrameCount: Integer; safecall;
    function Get_CreateMetadataFile: WordBool; safecall;
    procedure Set_CreateMetadataFile(Value: WordBool); safecall;
    function Get_MetadataFileName: WideString; safecall;
    procedure Set_MetadataFileName(const Value: WideString); safecall;
    function Get_MetaDataFileFormat: METADATAFORMAT; safecall;
    procedure Set_MetaDataFileFormat(Value: METADATAFORMAT); safecall;
    function Get_OutputFormat: OUTPUT_FORMAT; safecall;
    procedure Set_OutputFormat(Value: OUTPUT_FORMAT); safecall;
    function Get_OutputResolution: Integer; safecall;
    procedure Set_OutputResolution(Value: Integer); safecall;
    function Get_PageFileName: WideString; safecall;
    procedure Set_PageFileName(const Value: WideString); safecall;
    procedure SaveToFile(const FileName: WideString); safecall;
    procedure LoadFromFile(const FileName: WideString); safecall;
    function SaveToStr: WideString; safecall;
    function Get_RestrictionDomains: WideString; safecall;
    procedure Set_RestrictionDomains(const Value: WideString); safecall;
    function Get_ParseLinks: WordBool; safecall;
    procedure Set_ParseLinks(Value: WordBool); safecall;
    function Get_LinkTarget: WideString; safecall;
    procedure Set_LinkTarget(const Value: WideString); safecall;
    function Get_LinkTargetAuto: WordBool; safecall;
    procedure Set_LinkTargetAuto(Value: WordBool); safecall;
    function Get_ExtractLinks: Integer; safecall;
    procedure Set_ExtractLinks(Value: Integer); safecall;
    function Get_TEMPLATETYPE: TEMPLATETYPE; safecall;
    procedure Set_TEMPLATETYPE(Value: TEMPLATETYPE); safecall;
    function Get_ASVersion: Integer; safecall;
    procedure Set_ASVersion(Value: Integer); safecall;
    function Get_WATERMARKANCHOR: Integer; safecall;
    procedure Set_WATERMARKANCHOR(Value: Integer); safecall;
    function Get_WatermarkXOffset: WideString; safecall;
    procedure Set_WatermarkXOffset(const Value: WideString); safecall;
    function Get_WatermarkYOffset: WideString; safecall;
    procedure Set_WatermarkYOffset(const Value: WideString); safecall;
    function Get_CompressionMethod: COMPRESSION_METHOD; safecall;
    procedure Set_CompressionMethod(Value: COMPRESSION_METHOD); safecall;
    function Get_DocTemplateHeaderSize: SYSUINT; safecall;
    function Get_DocTemplateWidth: SYSUINT; safecall;
    function Get_DocTemplateHeight: SYSUINT; safecall;
    function Get_HTML5Options: IHTML5Options; safecall;
    function Get_DocumentType: DOCUMENT_TYPE; safecall;
    procedure Set_DocumentType(Value: DOCUMENT_TYPE); safecall;
    function Get_FrameWidth: Integer; safecall;
    procedure Set_FrameWidth(Value: Integer); safecall;
    function Get_FrameHeight: Integer; safecall;
    procedure Set_FrameHeight(Value: Integer); safecall;
    property Name: WideString read Get_Name write Set_Name;
    property InterfaceOptions: Integer read Get_InterfaceOptions write Set_InterfaceOptions;
    property ProtectionOptions: Integer read Get_ProtectionOptions write Set_ProtectionOptions;
    property FlashVersion: OleVariant read Get_FlashVersion write Set_FlashVersion;
    property UseJpeg: WordBool read Get_UseJpeg write Set_UseJpeg;
    property JpegQuality: Integer read Get_JpegQuality write Set_JpegQuality;
    property Language: WideString read Get_Language write Set_Language;
    property ColorAdjustment: WideString read Get_ColorAdjustment write Set_ColorAdjustment;
    property ThumbnailPageRange: WideString read Get_ThumbnailPageRange write Set_ThumbnailPageRange;
    property ThumbnailImageWidth: Integer read Get_ThumbnailImageWidth write Set_ThumbnailImageWidth;
    property ThumbnailImageHeight: Integer read Get_ThumbnailImageHeight write Set_ThumbnailImageHeight;
    property ThumbnailFormat: IMAGE_FORMAT read Get_ThumbnailFormat write Set_ThumbnailFormat;
    property ThumbnailJpegQuality: Integer read Get_ThumbnailJpegQuality write Set_ThumbnailJpegQuality;
    property ThumbnailFileName: WideString read Get_ThumbnailFileName write Set_ThumbnailFileName;
    property WatermarkImage: OleVariant read Get_WatermarkImage write Set_WatermarkImage;
    property WatermarkScale: Integer read Get_WatermarkScale write Set_WatermarkScale;
    property WatermarkTransparency: Integer read Get_WatermarkTransparency write Set_WatermarkTransparency;
    property Skin: OleVariant read Get_Skin write Set_Skin;
    property DocTemplate: OleVariant read Get_DocTemplate write Set_DocTemplate;
    property DocTemplateASVersion: Integer read Get_DocTemplateASVersion;
    property DocTemplateMaxTagID: Integer read Get_DocTemplateMaxTagID;
    property DocTemplateFlashVersion: Integer read Get_DocTemplateFlashVersion;
    property DocTemplateFrameCount: Integer read Get_DocTemplateFrameCount;
    property CreateMetadataFile: WordBool read Get_CreateMetadataFile write Set_CreateMetadataFile;
    property MetadataFileName: WideString read Get_MetadataFileName write Set_MetadataFileName;
    property MetaDataFileFormat: METADATAFORMAT read Get_MetaDataFileFormat write Set_MetaDataFileFormat;
    property OutputFormat: OUTPUT_FORMAT read Get_OutputFormat write Set_OutputFormat;
    property OutputResolution: Integer read Get_OutputResolution write Set_OutputResolution;
    property PageFileName: WideString read Get_PageFileName write Set_PageFileName;
    property RestrictionDomains: WideString read Get_RestrictionDomains write Set_RestrictionDomains;
    property ParseLinks: WordBool read Get_ParseLinks write Set_ParseLinks;
    property LinkTarget: WideString read Get_LinkTarget write Set_LinkTarget;
    property LinkTargetAuto: WordBool read Get_LinkTargetAuto write Set_LinkTargetAuto;
    property ExtractLinks: Integer read Get_ExtractLinks write Set_ExtractLinks;
    property TEMPLATETYPE: TEMPLATETYPE read Get_TEMPLATETYPE write Set_TEMPLATETYPE;
    property ASVersion: Integer read Get_ASVersion write Set_ASVersion;
    property WATERMARKANCHOR: Integer read Get_WATERMARKANCHOR write Set_WATERMARKANCHOR;
    property WatermarkXOffset: WideString read Get_WatermarkXOffset write Set_WatermarkXOffset;
    property WatermarkYOffset: WideString read Get_WatermarkYOffset write Set_WatermarkYOffset;
    property CompressionMethod: COMPRESSION_METHOD read Get_CompressionMethod write Set_CompressionMethod;
    property DocTemplateHeaderSize: SYSUINT read Get_DocTemplateHeaderSize;
    property DocTemplateWidth: SYSUINT read Get_DocTemplateWidth;
    property DocTemplateHeight: SYSUINT read Get_DocTemplateHeight;
    property HTML5Options: IHTML5Options read Get_HTML5Options;
    property DocumentType: DOCUMENT_TYPE read Get_DocumentType write Set_DocumentType;
    property FrameWidth: Integer read Get_FrameWidth write Set_FrameWidth;
    property FrameHeight: Integer read Get_FrameHeight write Set_FrameHeight;
  end;

// *********************************************************************//
// DispIntf:  IProfileDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {85586141-D013-44D6-B771-090A201463C6}
// *********************************************************************//
  IProfileDisp = dispinterface
    ['{85586141-D013-44D6-B771-090A201463C6}']
    property Name: WideString dispid 201;
    property InterfaceOptions: Integer dispid 202;
    property ProtectionOptions: Integer dispid 203;
    property FlashVersion: OleVariant dispid 204;
    property UseJpeg: WordBool dispid 205;
    property JpegQuality: Integer dispid 206;
    procedure ApplyChanges; dispid 207;
    property Language: WideString dispid 208;
    property ColorAdjustment: WideString dispid 209;
    property ThumbnailPageRange: WideString dispid 210;
    property ThumbnailImageWidth: Integer dispid 211;
    property ThumbnailImageHeight: Integer dispid 212;
    property ThumbnailFormat: IMAGE_FORMAT dispid 213;
    property ThumbnailJpegQuality: Integer dispid 214;
    property ThumbnailFileName: WideString dispid 215;
    property WatermarkImage: OleVariant dispid 219;
    property WatermarkScale: Integer dispid 220;
    property WatermarkTransparency: Integer dispid 221;
    property Skin: OleVariant dispid 222;
    property DocTemplate: OleVariant dispid 223;
    property DocTemplateASVersion: Integer readonly dispid 224;
    property DocTemplateMaxTagID: Integer readonly dispid 226;
    property DocTemplateFlashVersion: Integer readonly dispid 227;
    property DocTemplateFrameCount: Integer readonly dispid 228;
    property CreateMetadataFile: WordBool dispid 229;
    property MetadataFileName: WideString dispid 230;
    property MetaDataFileFormat: METADATAFORMAT dispid 231;
    property OutputFormat: OUTPUT_FORMAT dispid 232;
    property OutputResolution: Integer dispid 233;
    property PageFileName: WideString dispid 234;
    procedure SaveToFile(const FileName: WideString); dispid 256;
    procedure LoadFromFile(const FileName: WideString); dispid 257;
    function SaveToStr: WideString; dispid 258;
    property RestrictionDomains: WideString dispid 216;
    property ParseLinks: WordBool dispid 217;
    property LinkTarget: WideString dispid 218;
    property LinkTargetAuto: WordBool dispid 225;
    property ExtractLinks: Integer dispid 235;
    property TEMPLATETYPE: TEMPLATETYPE dispid 236;
    property ASVersion: Integer dispid 237;
    property WATERMARKANCHOR: Integer dispid 238;
    property WatermarkXOffset: WideString dispid 239;
    property WatermarkYOffset: WideString dispid 240;
    property CompressionMethod: COMPRESSION_METHOD dispid 241;
    property DocTemplateHeaderSize: SYSUINT readonly dispid 242;
    property DocTemplateWidth: SYSUINT readonly dispid 243;
    property DocTemplateHeight: SYSUINT readonly dispid 244;
    property HTML5Options: IHTML5Options readonly dispid 247;
    property DocumentType: DOCUMENT_TYPE dispid 248;
    property FrameWidth: Integer dispid 245;
    property FrameHeight: Integer dispid 246;
  end;

// *********************************************************************//
// Interface: IBatchProcessingOptions
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B5D31A0C-B37A-45B0-B855-52E9A8319839}
// *********************************************************************//
  IBatchProcessingOptions = interface(IDispatch)
    ['{B5D31A0C-B37A-45B0-B855-52E9A8319839}']
    function Get_BeforePrintingTimeout: Integer; safecall;
    procedure Set_BeforePrintingTimeout(Value: Integer); safecall;
    function Get_PrintingTimeout: Integer; safecall;
    procedure Set_PrintingTimeout(Value: Integer); safecall;
    function Get_AfterPrintingTimeout: Integer; safecall;
    procedure Set_AfterPrintingTimeout(Value: Integer); safecall;
    function Get_PressPrintButton: ThreeStateFlag; safecall;
    procedure Set_PressPrintButton(Value: ThreeStateFlag); safecall;
    function Get_KillProcessIfTimeout: ThreeStateFlag; safecall;
    procedure Set_KillProcessIfTimeout(Value: ThreeStateFlag); safecall;
    function Get_CreateLogFile: WordBool; safecall;
    procedure Set_CreateLogFile(Value: WordBool); safecall;
    function Get_LogFileName: WideString; safecall;
    procedure Set_LogFileName(const Value: WideString); safecall;
    procedure ApplyChanges; safecall;
    function Get_LoggingLevel: Integer; safecall;
    procedure Set_LoggingLevel(Value: Integer); safecall;
    function Get_PageRange: WideString; safecall;
    procedure Set_PageRange(const Value: WideString); safecall;
    function Get_ActivityTimeout: Integer; safecall;
    procedure Set_ActivityTimeout(Value: Integer); safecall;
    function Get_UseAutomation: Integer; safecall;
    procedure Set_UseAutomation(Value: Integer); safecall;
    function Get_KillAllAutomationProcesses: APPLICATIONTYPE; safecall;
    procedure Set_KillAllAutomationProcesses(Value: APPLICATIONTYPE); safecall;
    function Get_KeepAutomationAppRef: APPLICATIONTYPE; safecall;
    procedure Set_KeepAutomationAppRef(Value: APPLICATIONTYPE); safecall;
    function Get_ExcelOptions: IExcelOptions; safecall;
    function Get_PowerPointOptions: IPowerPointOptions; safecall;
    function Get_ExtractLinks: Integer; safecall;
    procedure Set_ExtractLinks(Value: Integer); safecall;
    procedure Assign_(const bpo: IBatchProcessingOptions); safecall;
    function Get_KillSplWOW64: ThreeStateFlag; safecall;
    procedure Set_KillSplWOW64(Value: ThreeStateFlag); safecall;
    function Get_GenerateExternalViewer: WordBool; safecall;
    procedure Set_GenerateExternalViewer(Value: WordBool); safecall;
    function Get_SpecialProcessing: WideString; safecall;
    procedure Set_SpecialProcessing(const Value: WideString); safecall;
    function Get_KeepAutoAppRefStr: WideString; safecall;
    procedure Set_KeepAutoAppRefStr(const Value: WideString); safecall;
    function Get_CheckPDFEncryption: ThreeStateFlag; safecall;
    procedure Set_CheckPDFEncryption(Value: ThreeStateFlag); safecall;
    function Get_KillAutoProcessBeforeConversion: APPLICATIONTYPE; safecall;
    procedure Set_KillAutoProcessBeforeConversion(Value: APPLICATIONTYPE); safecall;
    function Get_AccProvider: WideString; safecall;
    procedure Set_AccProvider(const Value: WideString); safecall;
    property BeforePrintingTimeout: Integer read Get_BeforePrintingTimeout write Set_BeforePrintingTimeout;
    property PrintingTimeout: Integer read Get_PrintingTimeout write Set_PrintingTimeout;
    property AfterPrintingTimeout: Integer read Get_AfterPrintingTimeout write Set_AfterPrintingTimeout;
    property PressPrintButton: ThreeStateFlag read Get_PressPrintButton write Set_PressPrintButton;
    property KillProcessIfTimeout: ThreeStateFlag read Get_KillProcessIfTimeout write Set_KillProcessIfTimeout;
    property CreateLogFile: WordBool read Get_CreateLogFile write Set_CreateLogFile;
    property LogFileName: WideString read Get_LogFileName write Set_LogFileName;
    property LoggingLevel: Integer read Get_LoggingLevel write Set_LoggingLevel;
    property PageRange: WideString read Get_PageRange write Set_PageRange;
    property ActivityTimeout: Integer read Get_ActivityTimeout write Set_ActivityTimeout;
    property UseAutomation: Integer read Get_UseAutomation write Set_UseAutomation;
    property KillAllAutomationProcesses: APPLICATIONTYPE read Get_KillAllAutomationProcesses write Set_KillAllAutomationProcesses;
    property KeepAutomationAppRef: APPLICATIONTYPE read Get_KeepAutomationAppRef write Set_KeepAutomationAppRef;
    property ExcelOptions: IExcelOptions read Get_ExcelOptions;
    property PowerPointOptions: IPowerPointOptions read Get_PowerPointOptions;
    property ExtractLinks: Integer read Get_ExtractLinks write Set_ExtractLinks;
    property KillSplWOW64: ThreeStateFlag read Get_KillSplWOW64 write Set_KillSplWOW64;
    property GenerateExternalViewer: WordBool read Get_GenerateExternalViewer write Set_GenerateExternalViewer;
    property SpecialProcessing: WideString read Get_SpecialProcessing write Set_SpecialProcessing;
    property KeepAutoAppRefStr: WideString read Get_KeepAutoAppRefStr write Set_KeepAutoAppRefStr;
    property CheckPDFEncryption: ThreeStateFlag read Get_CheckPDFEncryption write Set_CheckPDFEncryption;
    property KillAutoProcessBeforeConversion: APPLICATIONTYPE read Get_KillAutoProcessBeforeConversion write Set_KillAutoProcessBeforeConversion;
    property AccProvider: WideString read Get_AccProvider write Set_AccProvider;
  end;

// *********************************************************************//
// DispIntf:  IBatchProcessingOptionsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B5D31A0C-B37A-45B0-B855-52E9A8319839}
// *********************************************************************//
  IBatchProcessingOptionsDisp = dispinterface
    ['{B5D31A0C-B37A-45B0-B855-52E9A8319839}']
    property BeforePrintingTimeout: Integer dispid 201;
    property PrintingTimeout: Integer dispid 202;
    property AfterPrintingTimeout: Integer dispid 203;
    property PressPrintButton: ThreeStateFlag dispid 204;
    property KillProcessIfTimeout: ThreeStateFlag dispid 205;
    property CreateLogFile: WordBool dispid 206;
    property LogFileName: WideString dispid 207;
    procedure ApplyChanges; dispid 208;
    property LoggingLevel: Integer dispid 209;
    property PageRange: WideString dispid 210;
    property ActivityTimeout: Integer dispid 211;
    property UseAutomation: Integer dispid 212;
    property KillAllAutomationProcesses: APPLICATIONTYPE dispid 213;
    property KeepAutomationAppRef: APPLICATIONTYPE dispid 214;
    property ExcelOptions: IExcelOptions readonly dispid 215;
    property PowerPointOptions: IPowerPointOptions readonly dispid 216;
    property ExtractLinks: Integer dispid 217;
    procedure Assign_(const bpo: IBatchProcessingOptions); dispid 218;
    property KillSplWOW64: ThreeStateFlag dispid 219;
    property GenerateExternalViewer: WordBool dispid 220;
    property SpecialProcessing: WideString dispid 221;
    property KeepAutoAppRefStr: WideString dispid 222;
    property CheckPDFEncryption: ThreeStateFlag dispid 223;
    property KillAutoProcessBeforeConversion: APPLICATIONTYPE dispid 224;
    property AccProvider: WideString dispid 225;
  end;

// *********************************************************************//
// Interface: IPrintingPreferences
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {C6556430-49E6-4E5E-913D-5B0A2A973B95}
// *********************************************************************//
  IPrintingPreferences = interface(IDispatch)
    ['{C6556430-49E6-4E5E-913D-5B0A2A973B95}']
    function Get_FormName: WideString; safecall;
    function Get_PaperWidth: Integer; safecall;
    function Get_PaperLength: Integer; safecall;
    function Get_Resolution: Integer; safecall;
    procedure Set_Resolution(Value: Integer); safecall;
    function Get_Orientation: PAPER_ORIENTATION; safecall;
    procedure Set_Orientation(Value: PAPER_ORIENTATION); safecall;
    procedure SetFormName(const sFormName: WideString); safecall;
    procedure SetCustomPaperSize(Width: Integer; Length: Integer); safecall;
    procedure ApplyChanges; safecall;
    function Get_Actual: WordBool; safecall;
    property FormName: WideString read Get_FormName;
    property PaperWidth: Integer read Get_PaperWidth;
    property PaperLength: Integer read Get_PaperLength;
    property Resolution: Integer read Get_Resolution write Set_Resolution;
    property Orientation: PAPER_ORIENTATION read Get_Orientation write Set_Orientation;
    property Actual: WordBool read Get_Actual;
  end;

// *********************************************************************//
// DispIntf:  IPrintingPreferencesDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {C6556430-49E6-4E5E-913D-5B0A2A973B95}
// *********************************************************************//
  IPrintingPreferencesDisp = dispinterface
    ['{C6556430-49E6-4E5E-913D-5B0A2A973B95}']
    property FormName: WideString readonly dispid 201;
    property PaperWidth: Integer readonly dispid 202;
    property PaperLength: Integer readonly dispid 203;
    property Resolution: Integer dispid 204;
    property Orientation: PAPER_ORIENTATION dispid 205;
    procedure SetFormName(const sFormName: WideString); dispid 206;
    procedure SetCustomPaperSize(Width: Integer; Length: Integer); dispid 207;
    procedure ApplyChanges; dispid 208;
    property Actual: WordBool readonly dispid 209;
  end;

// *********************************************************************//
// Interface: IServer
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B6FF280B-7540-45B4-B527-44945D9D2234}
// *********************************************************************//
  IServer = interface(IDispatch)
    ['{B6FF280B-7540-45B4-B527-44945D9D2234}']
    function Get_Version: WideString; safecall;
    procedure ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                          Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                          PrintingPreferences: OleVariant); safecall;
    function Get_DefaultProfile: IProfile; safecall;
    function Get_DefaultBatchProcessingOptions: IBatchProcessingOptions; safecall;
    function Get_DefaultPrintingPreferences: IPrintingPreferences; safecall;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                         Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                         PrintingPreferences: OleVariant); safecall;
    function Get_FilesConverted: Integer; safecall;
    function Get_DirsScanned: Integer; safecall;
    function Get_ErrorCount: Integer; safecall;
    function Get_Skins: ISkinCollection; safecall;
    function Get_ConvertedPages: Integer; safecall;
    function Get_TotalPages: Integer; safecall;
    function Get_FlashFileCount: Integer; safecall;
    function Get_ThumbnailFileCount: Integer; safecall;
    function Get_MetadataFileCount: Integer; safecall;
    procedure StartJob(const OutputFileName: WideString; Profile: OleVariant; 
                       BatchProcessingOptions: OleVariant; PrintingPreferences: OleVariant); safecall;
    procedure EndJob; safecall;
    procedure CancelJob; safecall;
    function Get_SkippedPages: Integer; safecall;
    procedure SetP2FPrinterAsDefault; safecall;
    function Get_SVGFileCount: Integer; safecall;
    property Version: WideString read Get_Version;
    property DefaultProfile: IProfile read Get_DefaultProfile;
    property DefaultBatchProcessingOptions: IBatchProcessingOptions read Get_DefaultBatchProcessingOptions;
    property DefaultPrintingPreferences: IPrintingPreferences read Get_DefaultPrintingPreferences;
    property FilesConverted: Integer read Get_FilesConverted;
    property DirsScanned: Integer read Get_DirsScanned;
    property ErrorCount: Integer read Get_ErrorCount;
    property Skins: ISkinCollection read Get_Skins;
    property ConvertedPages: Integer read Get_ConvertedPages;
    property TotalPages: Integer read Get_TotalPages;
    property FlashFileCount: Integer read Get_FlashFileCount;
    property ThumbnailFileCount: Integer read Get_ThumbnailFileCount;
    property MetadataFileCount: Integer read Get_MetadataFileCount;
    property SkippedPages: Integer read Get_SkippedPages;
    property SVGFileCount: Integer read Get_SVGFileCount;
  end;

// *********************************************************************//
// DispIntf:  IServerDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B6FF280B-7540-45B4-B527-44945D9D2234}
// *********************************************************************//
  IServerDisp = dispinterface
    ['{B6FF280B-7540-45B4-B527-44945D9D2234}']
    property Version: WideString readonly dispid 201;
    procedure ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                          Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                          PrintingPreferences: OleVariant); dispid 205;
    property DefaultProfile: IProfile readonly dispid 202;
    property DefaultBatchProcessingOptions: IBatchProcessingOptions readonly dispid 203;
    property DefaultPrintingPreferences: IPrintingPreferences readonly dispid 204;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                         Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                         PrintingPreferences: OleVariant); dispid 206;
    property FilesConverted: Integer readonly dispid 207;
    property DirsScanned: Integer readonly dispid 208;
    property ErrorCount: Integer readonly dispid 209;
    property Skins: ISkinCollection readonly dispid 210;
    property ConvertedPages: Integer readonly dispid 211;
    property TotalPages: Integer readonly dispid 212;
    property FlashFileCount: Integer readonly dispid 213;
    property ThumbnailFileCount: Integer readonly dispid 214;
    property MetadataFileCount: Integer readonly dispid 215;
    procedure StartJob(const OutputFileName: WideString; Profile: OleVariant; 
                       BatchProcessingOptions: OleVariant; PrintingPreferences: OleVariant); dispid 216;
    procedure EndJob; dispid 217;
    procedure CancelJob; dispid 218;
    property SkippedPages: Integer readonly dispid 219;
    procedure SetP2FPrinterAsDefault; dispid 220;
    property SVGFileCount: Integer readonly dispid 221;
  end;

// *********************************************************************//
// Interface: IP2FApp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {CC994315-F509-407E-BF86-ACB391428640}
// *********************************************************************//
  IP2FApp = interface(IDispatch)
    ['{CC994315-F509-407E-BF86-ACB391428640}']
    function StartDoc(const DocName: WideString; JobID: Integer): WordBool; stdcall;
    function OnProgress(PageNumber: Integer; TotalPages: Integer; Flag: P2F_PROGRESS): WordBool; stdcall;
    function EndDoc(bCancelled: Integer; const szDocName: WideString): WordBool; stdcall;
    function ShowDialog: WordBool; stdcall;
    function GetProfileStr: WideString; safecall;
    function GetSkinStr: WideString; safecall;
  end;

// *********************************************************************//
// DispIntf:  IP2FAppDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {CC994315-F509-407E-BF86-ACB391428640}
// *********************************************************************//
  IP2FAppDisp = dispinterface
    ['{CC994315-F509-407E-BF86-ACB391428640}']
    function StartDoc(const DocName: WideString; JobID: Integer): WordBool; dispid 101;
    function OnProgress(PageNumber: Integer; TotalPages: Integer; Flag: P2F_PROGRESS): WordBool; dispid 102;
    function EndDoc(bCancelled: Integer; const szDocName: WideString): WordBool; dispid 103;
    function ShowDialog: WordBool; dispid 104;
    function GetProfileStr: WideString; dispid 201;
    function GetSkinStr: WideString; dispid 202;
  end;

// *********************************************************************//
// Interface: ISkinCollection
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {44B39C5D-9B7A-4715-8052-ED653D36F1BA}
// *********************************************************************//
  ISkinCollection = interface(IDispatch)
    ['{44B39C5D-9B7A-4715-8052-ED653D36F1BA}']
    function Get_item(Index: OleVariant): OleVariant; safecall;
    function Get__newEnum: IEnumVARIANT; safecall;
    function Add(const Name: WideString): ISkin; safecall;
    procedure Delete(Index: OleVariant); safecall;
    function Get_Count: Integer; safecall;
    procedure RenameSkin(const Skin: ISkin; const NewName: WideString); safecall;
    property item[Index: OleVariant]: OleVariant read Get_item; default;
    property _newEnum: IEnumVARIANT read Get__newEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  ISkinCollectionDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {44B39C5D-9B7A-4715-8052-ED653D36F1BA}
// *********************************************************************//
  ISkinCollectionDisp = dispinterface
    ['{44B39C5D-9B7A-4715-8052-ED653D36F1BA}']
    property item[Index: OleVariant]: OleVariant readonly dispid 0; default;
    property _newEnum: IEnumVARIANT readonly dispid -4;
    function Add(const Name: WideString): ISkin; dispid 203;
    procedure Delete(Index: OleVariant); dispid 204;
    property Count: Integer readonly dispid 205;
    procedure RenameSkin(const Skin: ISkin; const NewName: WideString); dispid 201;
  end;

// *********************************************************************//
// Interface: IExcelOptions
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {76F313A0-D328-44CE-B680-31896F2CC56E}
// *********************************************************************//
  IExcelOptions = interface(IDispatch)
    ['{76F313A0-D328-44CE-B680-31896F2CC56E}']
    function Get_SheetRange: WideString; safecall;
    procedure Set_SheetRange(const Value: WideString); safecall;
    function Get_OverridePrintQuality: WordBool; safecall;
    procedure Set_OverridePrintQuality(Value: WordBool); safecall;
    function Get_SkipEmptySheets: WordBool; safecall;
    procedure Set_SkipEmptySheets(Value: WordBool); safecall;
    property SheetRange: WideString read Get_SheetRange write Set_SheetRange;
    property OverridePrintQuality: WordBool read Get_OverridePrintQuality write Set_OverridePrintQuality;
    property SkipEmptySheets: WordBool read Get_SkipEmptySheets write Set_SkipEmptySheets;
  end;

// *********************************************************************//
// DispIntf:  IExcelOptionsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {76F313A0-D328-44CE-B680-31896F2CC56E}
// *********************************************************************//
  IExcelOptionsDisp = dispinterface
    ['{76F313A0-D328-44CE-B680-31896F2CC56E}']
    property SheetRange: WideString dispid 201;
    property OverridePrintQuality: WordBool dispid 202;
    property SkipEmptySheets: WordBool dispid 203;
  end;

// *********************************************************************//
// Interface: IPowerPointOptions
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {7A3E353C-B57D-42CF-BE25-400444E85A6B}
// *********************************************************************//
  IPowerPointOptions = interface(IDispatch)
    ['{7A3E353C-B57D-42CF-BE25-400444E85A6B}']
    function Get_FitToPage: OleVariant; safecall;
    procedure Set_FitToPage(Value: OleVariant); safecall;
    function Get_PrintHiddenSlides: ThreeStateFlag; safecall;
    procedure Set_PrintHiddenSlides(Value: ThreeStateFlag); safecall;
    function Get_OutputType: OleVariant; safecall;
    procedure Set_OutputType(Value: OleVariant); safecall;
    function Get_FrameSlides: OleVariant; safecall;
    procedure Set_FrameSlides(Value: OleVariant); safecall;
    property FitToPage: OleVariant read Get_FitToPage write Set_FitToPage;
    property PrintHiddenSlides: ThreeStateFlag read Get_PrintHiddenSlides write Set_PrintHiddenSlides;
    property OutputType: OleVariant read Get_OutputType write Set_OutputType;
    property FrameSlides: OleVariant read Get_FrameSlides write Set_FrameSlides;
  end;

// *********************************************************************//
// DispIntf:  IPowerPointOptionsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {7A3E353C-B57D-42CF-BE25-400444E85A6B}
// *********************************************************************//
  IPowerPointOptionsDisp = dispinterface
    ['{7A3E353C-B57D-42CF-BE25-400444E85A6B}']
    property FitToPage: OleVariant dispid 201;
    property PrintHiddenSlides: ThreeStateFlag dispid 202;
    property OutputType: OleVariant dispid 203;
    property FrameSlides: OleVariant dispid 204;
  end;

// *********************************************************************//
// Interface: ISkin
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {7C0BBF6C-4E9F-438F-A4FE-92BB705EE1A1}
// *********************************************************************//
  ISkin = interface(IDispatch)
    ['{7C0BBF6C-4E9F-438F-A4FE-92BB705EE1A1}']
    function Get_Name: WideString; safecall;
    function Get_ToolbarBgrColor: Integer; safecall;
    procedure Set_ToolbarBgrColor(Value: Integer); safecall;
    function Get_OverButColor: Integer; safecall;
    procedure Set_OverButColor(Value: Integer); safecall;
    function Get_OverRectColor: Integer; safecall;
    procedure Set_OverRectColor(Value: Integer); safecall;
    function Get_DownButColor: Integer; safecall;
    procedure Set_DownButColor(Value: Integer); safecall;
    function Get_DownRectColor: Integer; safecall;
    procedure Set_DownRectColor(Value: Integer); safecall;
    function Get_DocBgrColor: Integer; safecall;
    procedure Set_DocBgrColor(Value: Integer); safecall;
    function Get_ScrollBarColor: Integer; safecall;
    procedure Set_ScrollBarColor(Value: Integer); safecall;
    function Get_ColorAdjustment: WideString; safecall;
    procedure Set_ColorAdjustment(const Value: WideString); safecall;
    function Get_ZoomHandleOffset: Integer; safecall;
    procedure Set_ZoomHandleOffset(Value: Integer); safecall;
    function Get_LogoURL: WideString; safecall;
    procedure Set_LogoURL(const Value: WideString); safecall;
    function Get_HelpButtonURL: WideString; safecall;
    procedure Set_HelpButtonURL(const Value: WideString); safecall;
    function Get_TBBgrImgBehavior: IMGBEHAVIOR; safecall;
    procedure Set_TBBgrImgBehavior(Value: IMGBEHAVIOR); safecall;
    procedure SetToolbarImage(Img: TOOLBAR_IMAGE; sFileName: OleVariant); safecall;
    function GetToolbarImage(Image: TOOLBAR_IMAGE): OleVariant; safecall;
    procedure ApplyChanges; safecall;
    procedure LoadFromFile(const FileName: WideString); safecall;
    procedure SaveToFile(const FileName: WideString); safecall;
    function Get_FileName: WideString; safecall;
    function Get_ID: TGUID; safecall;
    function SaveToStr: WideString; safecall;
    procedure Assign_(const _skin: ISkin); safecall;
    function Get_btnColorAdj: WordBool; safecall;
    procedure Set_btnColorAdj(Value: WordBool); safecall;
    function Get_TextHighlightColor: Integer; safecall;
    procedure Set_TextHighlightColor(Value: Integer); safecall;
    property Name: WideString read Get_Name;
    property ToolbarBgrColor: Integer read Get_ToolbarBgrColor write Set_ToolbarBgrColor;
    property OverButColor: Integer read Get_OverButColor write Set_OverButColor;
    property OverRectColor: Integer read Get_OverRectColor write Set_OverRectColor;
    property DownButColor: Integer read Get_DownButColor write Set_DownButColor;
    property DownRectColor: Integer read Get_DownRectColor write Set_DownRectColor;
    property DocBgrColor: Integer read Get_DocBgrColor write Set_DocBgrColor;
    property ScrollBarColor: Integer read Get_ScrollBarColor write Set_ScrollBarColor;
    property ColorAdjustment: WideString read Get_ColorAdjustment write Set_ColorAdjustment;
    property ZoomHandleOffset: Integer read Get_ZoomHandleOffset write Set_ZoomHandleOffset;
    property LogoURL: WideString read Get_LogoURL write Set_LogoURL;
    property HelpButtonURL: WideString read Get_HelpButtonURL write Set_HelpButtonURL;
    property TBBgrImgBehavior: IMGBEHAVIOR read Get_TBBgrImgBehavior write Set_TBBgrImgBehavior;
    property FileName: WideString read Get_FileName;
    property ID: TGUID read Get_ID;
    property btnColorAdj: WordBool read Get_btnColorAdj write Set_btnColorAdj;
    property TextHighlightColor: Integer read Get_TextHighlightColor write Set_TextHighlightColor;
  end;

// *********************************************************************//
// DispIntf:  ISkinDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {7C0BBF6C-4E9F-438F-A4FE-92BB705EE1A1}
// *********************************************************************//
  ISkinDisp = dispinterface
    ['{7C0BBF6C-4E9F-438F-A4FE-92BB705EE1A1}']
    property Name: WideString readonly dispid 201;
    property ToolbarBgrColor: Integer dispid 202;
    property OverButColor: Integer dispid 203;
    property OverRectColor: Integer dispid 204;
    property DownButColor: Integer dispid 205;
    property DownRectColor: Integer dispid 206;
    property DocBgrColor: Integer dispid 207;
    property ScrollBarColor: Integer dispid 208;
    property ColorAdjustment: WideString dispid 209;
    property ZoomHandleOffset: Integer dispid 210;
    property LogoURL: WideString dispid 211;
    property HelpButtonURL: WideString dispid 212;
    property TBBgrImgBehavior: IMGBEHAVIOR dispid 213;
    procedure SetToolbarImage(Img: TOOLBAR_IMAGE; sFileName: OleVariant); dispid 214;
    function GetToolbarImage(Image: TOOLBAR_IMAGE): OleVariant; dispid 215;
    procedure ApplyChanges; dispid 216;
    procedure LoadFromFile(const FileName: WideString); dispid 217;
    procedure SaveToFile(const FileName: WideString); dispid 218;
    property FileName: WideString readonly dispid 219;
    property ID: {??TGUID}OleVariant readonly dispid 220;
    function SaveToStr: WideString; dispid 222;
    procedure Assign_(const _skin: ISkin); dispid 221;
    property btnColorAdj: WordBool dispid 223;
    property TextHighlightColor: Integer dispid 224;
  end;

// *********************************************************************//
// Interface: IHTML5Options
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {00BDBB8E-1669-432C-AB0E-75F323118129}
// *********************************************************************//
  IHTML5Options = interface(IDispatch)
    ['{00BDBB8E-1669-432C-AB0E-75F323118129}']
    function Get_Compression: WordBool; safecall;
    procedure Set_Compression(Value: WordBool); safecall;
    function Get_Compatibility: BROWSER_TYPE; safecall;
    procedure Set_Compatibility(Value: BROWSER_TYPE); safecall;
    function Get_VersionIE: WideString; safecall;
    procedure Set_VersionIE(const Value: WideString); safecall;
    function Get_VersionFireFox: WideString; safecall;
    procedure Set_VersionFireFox(const Value: WideString); safecall;
    function Get_VersionSafari: WideString; safecall;
    procedure Set_VersionSafari(const Value: WideString); safecall;
    function Get_VersionChrome: WideString; safecall;
    procedure Set_VersionChrome(const Value: WideString); safecall;
    function Get_VersionOpera: WideString; safecall;
    procedure Set_VersionOpera(const Value: WideString); safecall;
    function Get_ViewMode: VIEW_MODE; safecall;
    procedure Set_ViewMode(Value: VIEW_MODE); safecall;
    function Get_SinglePageModeThreshold: Integer; safecall;
    procedure Set_SinglePageModeThreshold(Value: Integer); safecall;
    function Get_DocTemplate: OleVariant; safecall;
    procedure Set_DocTemplate(Value: OleVariant); safecall;
    function Get_EmbedResources: WordBool; safecall;
    procedure Set_EmbedResources(Value: WordBool); safecall;
    function Get_SubsetFonts: WordBool; safecall;
    procedure Set_SubsetFonts(Value: WordBool); safecall;
    property Compression: WordBool read Get_Compression write Set_Compression;
    property Compatibility: BROWSER_TYPE read Get_Compatibility write Set_Compatibility;
    property VersionIE: WideString read Get_VersionIE write Set_VersionIE;
    property VersionFireFox: WideString read Get_VersionFireFox write Set_VersionFireFox;
    property VersionSafari: WideString read Get_VersionSafari write Set_VersionSafari;
    property VersionChrome: WideString read Get_VersionChrome write Set_VersionChrome;
    property VersionOpera: WideString read Get_VersionOpera write Set_VersionOpera;
    property ViewMode: VIEW_MODE read Get_ViewMode write Set_ViewMode;
    property SinglePageModeThreshold: Integer read Get_SinglePageModeThreshold write Set_SinglePageModeThreshold;
    property DocTemplate: OleVariant read Get_DocTemplate write Set_DocTemplate;
    property EmbedResources: WordBool read Get_EmbedResources write Set_EmbedResources;
    property SubsetFonts: WordBool read Get_SubsetFonts write Set_SubsetFonts;
  end;

// *********************************************************************//
// DispIntf:  IHTML5OptionsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {00BDBB8E-1669-432C-AB0E-75F323118129}
// *********************************************************************//
  IHTML5OptionsDisp = dispinterface
    ['{00BDBB8E-1669-432C-AB0E-75F323118129}']
    property Compression: WordBool dispid 201;
    property Compatibility: BROWSER_TYPE dispid 202;
    property VersionIE: WideString dispid 203;
    property VersionFireFox: WideString dispid 204;
    property VersionSafari: WideString dispid 205;
    property VersionChrome: WideString dispid 206;
    property VersionOpera: WideString dispid 207;
    property ViewMode: VIEW_MODE dispid 208;
    property SinglePageModeThreshold: Integer dispid 209;
    property DocTemplate: OleVariant dispid 210;
    property EmbedResources: WordBool dispid 211;
    property SubsetFonts: WordBool dispid 212;
  end;

// *********************************************************************//
// The Class CoServer provides a Create and CreateRemote method to          
// create instances of the default interface IServer exposed by              
// the CoClass Server. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoServer = class
    class function Create: IServer;
    class function CreateRemote(const MachineName: string): IServer;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TServer
// Help String      : Print2FlashServer Object
// Default Interface: IServer
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TServerProperties= class;
{$ENDIF}
  TServer = class(TOleServer)
  private
    FIntf:        IServer;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TServerProperties;
    function      GetServerProperties: TServerProperties;
{$ENDIF}
    function      GetDefaultInterface: IServer;
  protected
    procedure InitServerData; override;
    function Get_Version: WideString;
    function Get_DefaultProfile: IProfile;
    function Get_DefaultBatchProcessingOptions: IBatchProcessingOptions;
    function Get_DefaultPrintingPreferences: IPrintingPreferences;
    function Get_FilesConverted: Integer;
    function Get_DirsScanned: Integer;
    function Get_ErrorCount: Integer;
    function Get_Skins: ISkinCollection;
    function Get_ConvertedPages: Integer;
    function Get_TotalPages: Integer;
    function Get_FlashFileCount: Integer;
    function Get_ThumbnailFileCount: Integer;
    function Get_MetadataFileCount: Integer;
    function Get_SkippedPages: Integer;
    function Get_SVGFileCount: Integer;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IServer);
    procedure Disconnect; override;
    procedure ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString); overload;
    procedure ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                          Profile: OleVariant); overload;
    procedure ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                          Profile: OleVariant; BatchProcessingOptions: OleVariant); overload;
    procedure ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                          Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                          PrintingPreferences: OleVariant); overload;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString); overload;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString; bIncludeSubDirs: OleVariant); overload;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                         Profile: OleVariant); overload;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                         Profile: OleVariant; BatchProcessingOptions: OleVariant); overload;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                         Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                         PrintingPreferences: OleVariant); overload;
    procedure StartJob(const OutputFileName: WideString); overload;
    procedure StartJob(const OutputFileName: WideString; Profile: OleVariant); overload;
    procedure StartJob(const OutputFileName: WideString; Profile: OleVariant; 
                       BatchProcessingOptions: OleVariant); overload;
    procedure StartJob(const OutputFileName: WideString; Profile: OleVariant; 
                       BatchProcessingOptions: OleVariant; PrintingPreferences: OleVariant); overload;
    procedure EndJob;
    procedure CancelJob;
    procedure SetP2FPrinterAsDefault;
    property DefaultInterface: IServer read GetDefaultInterface;
    property Version: WideString read Get_Version;
    property DefaultProfile: IProfile read Get_DefaultProfile;
    property DefaultBatchProcessingOptions: IBatchProcessingOptions read Get_DefaultBatchProcessingOptions;
    property DefaultPrintingPreferences: IPrintingPreferences read Get_DefaultPrintingPreferences;
    property FilesConverted: Integer read Get_FilesConverted;
    property DirsScanned: Integer read Get_DirsScanned;
    property ErrorCount: Integer read Get_ErrorCount;
    property Skins: ISkinCollection read Get_Skins;
    property ConvertedPages: Integer read Get_ConvertedPages;
    property TotalPages: Integer read Get_TotalPages;
    property FlashFileCount: Integer read Get_FlashFileCount;
    property ThumbnailFileCount: Integer read Get_ThumbnailFileCount;
    property MetadataFileCount: Integer read Get_MetadataFileCount;
    property SkippedPages: Integer read Get_SkippedPages;
    property SVGFileCount: Integer read Get_SVGFileCount;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TServerProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TServer
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TServerProperties = class(TPersistent)
  private
    FServer:    TServer;
    function    GetDefaultInterface: IServer;
    constructor Create(AServer: TServer);
  protected
    function Get_Version: WideString;
    function Get_DefaultProfile: IProfile;
    function Get_DefaultBatchProcessingOptions: IBatchProcessingOptions;
    function Get_DefaultPrintingPreferences: IPrintingPreferences;
    function Get_FilesConverted: Integer;
    function Get_DirsScanned: Integer;
    function Get_ErrorCount: Integer;
    function Get_Skins: ISkinCollection;
    function Get_ConvertedPages: Integer;
    function Get_TotalPages: Integer;
    function Get_FlashFileCount: Integer;
    function Get_ThumbnailFileCount: Integer;
    function Get_MetadataFileCount: Integer;
    function Get_SkippedPages: Integer;
    function Get_SVGFileCount: Integer;
  public
    property DefaultInterface: IServer read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoProfile provides a Create and CreateRemote method to          
// create instances of the default interface IProfile exposed by              
// the CoClass Profile. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoProfile = class
    class function Create: IProfile;
    class function CreateRemote(const MachineName: string): IProfile;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TProfile
// Help String      : Profile Object
// Default Interface: IProfile
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TProfileProperties= class;
{$ENDIF}
  TProfile = class(TOleServer)
  private
    FIntf:        IProfile;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TProfileProperties;
    function      GetServerProperties: TProfileProperties;
{$ENDIF}
    function      GetDefaultInterface: IProfile;
  protected
    procedure InitServerData; override;
    function Get_Name: WideString;
    procedure Set_Name(const Value: WideString);
    function Get_InterfaceOptions: Integer;
    procedure Set_InterfaceOptions(Value: Integer);
    function Get_ProtectionOptions: Integer;
    procedure Set_ProtectionOptions(Value: Integer);
    function Get_FlashVersion: OleVariant;
    procedure Set_FlashVersion(Value: OleVariant);
    function Get_UseJpeg: WordBool;
    procedure Set_UseJpeg(Value: WordBool);
    function Get_JpegQuality: Integer;
    procedure Set_JpegQuality(Value: Integer);
    function Get_Language: WideString;
    procedure Set_Language(const Value: WideString);
    function Get_ColorAdjustment: WideString;
    procedure Set_ColorAdjustment(const Value: WideString);
    function Get_ThumbnailPageRange: WideString;
    procedure Set_ThumbnailPageRange(const Value: WideString);
    function Get_ThumbnailImageWidth: Integer;
    procedure Set_ThumbnailImageWidth(Value: Integer);
    function Get_ThumbnailImageHeight: Integer;
    procedure Set_ThumbnailImageHeight(Value: Integer);
    function Get_ThumbnailFormat: IMAGE_FORMAT;
    procedure Set_ThumbnailFormat(Value: IMAGE_FORMAT);
    function Get_ThumbnailJpegQuality: Integer;
    procedure Set_ThumbnailJpegQuality(Value: Integer);
    function Get_ThumbnailFileName: WideString;
    procedure Set_ThumbnailFileName(const Value: WideString);
    function Get_WatermarkImage: OleVariant;
    procedure Set_WatermarkImage(Value: OleVariant);
    function Get_WatermarkScale: Integer;
    procedure Set_WatermarkScale(Value: Integer);
    function Get_WatermarkTransparency: Integer;
    procedure Set_WatermarkTransparency(Value: Integer);
    function Get_Skin: OleVariant;
    procedure Set_Skin(Value: OleVariant);
    function Get_DocTemplate: OleVariant;
    procedure Set_DocTemplate(Value: OleVariant);
    function Get_DocTemplateASVersion: Integer;
    function Get_DocTemplateMaxTagID: Integer;
    function Get_DocTemplateFlashVersion: Integer;
    function Get_DocTemplateFrameCount: Integer;
    function Get_CreateMetadataFile: WordBool;
    procedure Set_CreateMetadataFile(Value: WordBool);
    function Get_MetadataFileName: WideString;
    procedure Set_MetadataFileName(const Value: WideString);
    function Get_MetaDataFileFormat: METADATAFORMAT;
    procedure Set_MetaDataFileFormat(Value: METADATAFORMAT);
    function Get_OutputFormat: OUTPUT_FORMAT;
    procedure Set_OutputFormat(Value: OUTPUT_FORMAT);
    function Get_OutputResolution: Integer;
    procedure Set_OutputResolution(Value: Integer);
    function Get_PageFileName: WideString;
    procedure Set_PageFileName(const Value: WideString);
    function Get_RestrictionDomains: WideString;
    procedure Set_RestrictionDomains(const Value: WideString);
    function Get_ParseLinks: WordBool;
    procedure Set_ParseLinks(Value: WordBool);
    function Get_LinkTarget: WideString;
    procedure Set_LinkTarget(const Value: WideString);
    function Get_LinkTargetAuto: WordBool;
    procedure Set_LinkTargetAuto(Value: WordBool);
    function Get_ExtractLinks: Integer;
    procedure Set_ExtractLinks(Value: Integer);
    function Get_TEMPLATETYPE: TEMPLATETYPE;
    procedure Set_TEMPLATETYPE(Value: TEMPLATETYPE);
    function Get_ASVersion: Integer;
    procedure Set_ASVersion(Value: Integer);
    function Get_WATERMARKANCHOR: Integer;
    procedure Set_WATERMARKANCHOR(Value: Integer);
    function Get_WatermarkXOffset: WideString;
    procedure Set_WatermarkXOffset(const Value: WideString);
    function Get_WatermarkYOffset: WideString;
    procedure Set_WatermarkYOffset(const Value: WideString);
    function Get_CompressionMethod: COMPRESSION_METHOD;
    procedure Set_CompressionMethod(Value: COMPRESSION_METHOD);
    function Get_DocTemplateHeaderSize: SYSUINT;
    function Get_DocTemplateWidth: SYSUINT;
    function Get_DocTemplateHeight: SYSUINT;
    function Get_HTML5Options: IHTML5Options;
    function Get_DocumentType: DOCUMENT_TYPE;
    procedure Set_DocumentType(Value: DOCUMENT_TYPE);
    function Get_FrameWidth: Integer;
    procedure Set_FrameWidth(Value: Integer);
    function Get_FrameHeight: Integer;
    procedure Set_FrameHeight(Value: Integer);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IProfile);
    procedure Disconnect; override;
    procedure ApplyChanges;
    procedure SaveToFile(const FileName: WideString);
    procedure LoadFromFile(const FileName: WideString);
    function SaveToStr: WideString;
    property DefaultInterface: IProfile read GetDefaultInterface;
    property FlashVersion: OleVariant read Get_FlashVersion write Set_FlashVersion;
    property WatermarkImage: OleVariant read Get_WatermarkImage write Set_WatermarkImage;
    property Skin: OleVariant read Get_Skin write Set_Skin;
    property DocTemplate: OleVariant read Get_DocTemplate write Set_DocTemplate;
    property DocTemplateASVersion: Integer read Get_DocTemplateASVersion;
    property DocTemplateMaxTagID: Integer read Get_DocTemplateMaxTagID;
    property DocTemplateFlashVersion: Integer read Get_DocTemplateFlashVersion;
    property DocTemplateFrameCount: Integer read Get_DocTemplateFrameCount;
    property DocTemplateHeaderSize: SYSUINT read Get_DocTemplateHeaderSize;
    property DocTemplateWidth: SYSUINT read Get_DocTemplateWidth;
    property DocTemplateHeight: SYSUINT read Get_DocTemplateHeight;
    property HTML5Options: IHTML5Options read Get_HTML5Options;
    property Name: WideString read Get_Name write Set_Name;
    property InterfaceOptions: Integer read Get_InterfaceOptions write Set_InterfaceOptions;
    property ProtectionOptions: Integer read Get_ProtectionOptions write Set_ProtectionOptions;
    property UseJpeg: WordBool read Get_UseJpeg write Set_UseJpeg;
    property JpegQuality: Integer read Get_JpegQuality write Set_JpegQuality;
    property Language: WideString read Get_Language write Set_Language;
    property ColorAdjustment: WideString read Get_ColorAdjustment write Set_ColorAdjustment;
    property ThumbnailPageRange: WideString read Get_ThumbnailPageRange write Set_ThumbnailPageRange;
    property ThumbnailImageWidth: Integer read Get_ThumbnailImageWidth write Set_ThumbnailImageWidth;
    property ThumbnailImageHeight: Integer read Get_ThumbnailImageHeight write Set_ThumbnailImageHeight;
    property ThumbnailFormat: IMAGE_FORMAT read Get_ThumbnailFormat write Set_ThumbnailFormat;
    property ThumbnailJpegQuality: Integer read Get_ThumbnailJpegQuality write Set_ThumbnailJpegQuality;
    property ThumbnailFileName: WideString read Get_ThumbnailFileName write Set_ThumbnailFileName;
    property WatermarkScale: Integer read Get_WatermarkScale write Set_WatermarkScale;
    property WatermarkTransparency: Integer read Get_WatermarkTransparency write Set_WatermarkTransparency;
    property CreateMetadataFile: WordBool read Get_CreateMetadataFile write Set_CreateMetadataFile;
    property MetadataFileName: WideString read Get_MetadataFileName write Set_MetadataFileName;
    property MetaDataFileFormat: METADATAFORMAT read Get_MetaDataFileFormat write Set_MetaDataFileFormat;
    property OutputFormat: OUTPUT_FORMAT read Get_OutputFormat write Set_OutputFormat;
    property OutputResolution: Integer read Get_OutputResolution write Set_OutputResolution;
    property PageFileName: WideString read Get_PageFileName write Set_PageFileName;
    property RestrictionDomains: WideString read Get_RestrictionDomains write Set_RestrictionDomains;
    property ParseLinks: WordBool read Get_ParseLinks write Set_ParseLinks;
    property LinkTarget: WideString read Get_LinkTarget write Set_LinkTarget;
    property LinkTargetAuto: WordBool read Get_LinkTargetAuto write Set_LinkTargetAuto;
    property ExtractLinks: Integer read Get_ExtractLinks write Set_ExtractLinks;
    property TEMPLATETYPE: TEMPLATETYPE read Get_TEMPLATETYPE write Set_TEMPLATETYPE;
    property ASVersion: Integer read Get_ASVersion write Set_ASVersion;
    property WATERMARKANCHOR: Integer read Get_WATERMARKANCHOR write Set_WATERMARKANCHOR;
    property WatermarkXOffset: WideString read Get_WatermarkXOffset write Set_WatermarkXOffset;
    property WatermarkYOffset: WideString read Get_WatermarkYOffset write Set_WatermarkYOffset;
    property CompressionMethod: COMPRESSION_METHOD read Get_CompressionMethod write Set_CompressionMethod;
    property DocumentType: DOCUMENT_TYPE read Get_DocumentType write Set_DocumentType;
    property FrameWidth: Integer read Get_FrameWidth write Set_FrameWidth;
    property FrameHeight: Integer read Get_FrameHeight write Set_FrameHeight;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TProfileProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TProfile
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TProfileProperties = class(TPersistent)
  private
    FServer:    TProfile;
    function    GetDefaultInterface: IProfile;
    constructor Create(AServer: TProfile);
  protected
    function Get_Name: WideString;
    procedure Set_Name(const Value: WideString);
    function Get_InterfaceOptions: Integer;
    procedure Set_InterfaceOptions(Value: Integer);
    function Get_ProtectionOptions: Integer;
    procedure Set_ProtectionOptions(Value: Integer);
    function Get_FlashVersion: OleVariant;
    procedure Set_FlashVersion(Value: OleVariant);
    function Get_UseJpeg: WordBool;
    procedure Set_UseJpeg(Value: WordBool);
    function Get_JpegQuality: Integer;
    procedure Set_JpegQuality(Value: Integer);
    function Get_Language: WideString;
    procedure Set_Language(const Value: WideString);
    function Get_ColorAdjustment: WideString;
    procedure Set_ColorAdjustment(const Value: WideString);
    function Get_ThumbnailPageRange: WideString;
    procedure Set_ThumbnailPageRange(const Value: WideString);
    function Get_ThumbnailImageWidth: Integer;
    procedure Set_ThumbnailImageWidth(Value: Integer);
    function Get_ThumbnailImageHeight: Integer;
    procedure Set_ThumbnailImageHeight(Value: Integer);
    function Get_ThumbnailFormat: IMAGE_FORMAT;
    procedure Set_ThumbnailFormat(Value: IMAGE_FORMAT);
    function Get_ThumbnailJpegQuality: Integer;
    procedure Set_ThumbnailJpegQuality(Value: Integer);
    function Get_ThumbnailFileName: WideString;
    procedure Set_ThumbnailFileName(const Value: WideString);
    function Get_WatermarkImage: OleVariant;
    procedure Set_WatermarkImage(Value: OleVariant);
    function Get_WatermarkScale: Integer;
    procedure Set_WatermarkScale(Value: Integer);
    function Get_WatermarkTransparency: Integer;
    procedure Set_WatermarkTransparency(Value: Integer);
    function Get_Skin: OleVariant;
    procedure Set_Skin(Value: OleVariant);
    function Get_DocTemplate: OleVariant;
    procedure Set_DocTemplate(Value: OleVariant);
    function Get_DocTemplateASVersion: Integer;
    function Get_DocTemplateMaxTagID: Integer;
    function Get_DocTemplateFlashVersion: Integer;
    function Get_DocTemplateFrameCount: Integer;
    function Get_CreateMetadataFile: WordBool;
    procedure Set_CreateMetadataFile(Value: WordBool);
    function Get_MetadataFileName: WideString;
    procedure Set_MetadataFileName(const Value: WideString);
    function Get_MetaDataFileFormat: METADATAFORMAT;
    procedure Set_MetaDataFileFormat(Value: METADATAFORMAT);
    function Get_OutputFormat: OUTPUT_FORMAT;
    procedure Set_OutputFormat(Value: OUTPUT_FORMAT);
    function Get_OutputResolution: Integer;
    procedure Set_OutputResolution(Value: Integer);
    function Get_PageFileName: WideString;
    procedure Set_PageFileName(const Value: WideString);
    function Get_RestrictionDomains: WideString;
    procedure Set_RestrictionDomains(const Value: WideString);
    function Get_ParseLinks: WordBool;
    procedure Set_ParseLinks(Value: WordBool);
    function Get_LinkTarget: WideString;
    procedure Set_LinkTarget(const Value: WideString);
    function Get_LinkTargetAuto: WordBool;
    procedure Set_LinkTargetAuto(Value: WordBool);
    function Get_ExtractLinks: Integer;
    procedure Set_ExtractLinks(Value: Integer);
    function Get_TEMPLATETYPE: TEMPLATETYPE;
    procedure Set_TEMPLATETYPE(Value: TEMPLATETYPE);
    function Get_ASVersion: Integer;
    procedure Set_ASVersion(Value: Integer);
    function Get_WATERMARKANCHOR: Integer;
    procedure Set_WATERMARKANCHOR(Value: Integer);
    function Get_WatermarkXOffset: WideString;
    procedure Set_WatermarkXOffset(const Value: WideString);
    function Get_WatermarkYOffset: WideString;
    procedure Set_WatermarkYOffset(const Value: WideString);
    function Get_CompressionMethod: COMPRESSION_METHOD;
    procedure Set_CompressionMethod(Value: COMPRESSION_METHOD);
    function Get_DocTemplateHeaderSize: SYSUINT;
    function Get_DocTemplateWidth: SYSUINT;
    function Get_DocTemplateHeight: SYSUINT;
    function Get_HTML5Options: IHTML5Options;
    function Get_DocumentType: DOCUMENT_TYPE;
    procedure Set_DocumentType(Value: DOCUMENT_TYPE);
    function Get_FrameWidth: Integer;
    procedure Set_FrameWidth(Value: Integer);
    function Get_FrameHeight: Integer;
    procedure Set_FrameHeight(Value: Integer);
  public
    property DefaultInterface: IProfile read GetDefaultInterface;
  published
    property Name: WideString read Get_Name write Set_Name;
    property InterfaceOptions: Integer read Get_InterfaceOptions write Set_InterfaceOptions;
    property ProtectionOptions: Integer read Get_ProtectionOptions write Set_ProtectionOptions;
    property UseJpeg: WordBool read Get_UseJpeg write Set_UseJpeg;
    property JpegQuality: Integer read Get_JpegQuality write Set_JpegQuality;
    property Language: WideString read Get_Language write Set_Language;
    property ColorAdjustment: WideString read Get_ColorAdjustment write Set_ColorAdjustment;
    property ThumbnailPageRange: WideString read Get_ThumbnailPageRange write Set_ThumbnailPageRange;
    property ThumbnailImageWidth: Integer read Get_ThumbnailImageWidth write Set_ThumbnailImageWidth;
    property ThumbnailImageHeight: Integer read Get_ThumbnailImageHeight write Set_ThumbnailImageHeight;
    property ThumbnailFormat: IMAGE_FORMAT read Get_ThumbnailFormat write Set_ThumbnailFormat;
    property ThumbnailJpegQuality: Integer read Get_ThumbnailJpegQuality write Set_ThumbnailJpegQuality;
    property ThumbnailFileName: WideString read Get_ThumbnailFileName write Set_ThumbnailFileName;
    property WatermarkScale: Integer read Get_WatermarkScale write Set_WatermarkScale;
    property WatermarkTransparency: Integer read Get_WatermarkTransparency write Set_WatermarkTransparency;
    property CreateMetadataFile: WordBool read Get_CreateMetadataFile write Set_CreateMetadataFile;
    property MetadataFileName: WideString read Get_MetadataFileName write Set_MetadataFileName;
    property MetaDataFileFormat: METADATAFORMAT read Get_MetaDataFileFormat write Set_MetaDataFileFormat;
    property OutputFormat: OUTPUT_FORMAT read Get_OutputFormat write Set_OutputFormat;
    property OutputResolution: Integer read Get_OutputResolution write Set_OutputResolution;
    property PageFileName: WideString read Get_PageFileName write Set_PageFileName;
    property RestrictionDomains: WideString read Get_RestrictionDomains write Set_RestrictionDomains;
    property ParseLinks: WordBool read Get_ParseLinks write Set_ParseLinks;
    property LinkTarget: WideString read Get_LinkTarget write Set_LinkTarget;
    property LinkTargetAuto: WordBool read Get_LinkTargetAuto write Set_LinkTargetAuto;
    property ExtractLinks: Integer read Get_ExtractLinks write Set_ExtractLinks;
    property TEMPLATETYPE: TEMPLATETYPE read Get_TEMPLATETYPE write Set_TEMPLATETYPE;
    property ASVersion: Integer read Get_ASVersion write Set_ASVersion;
    property WATERMARKANCHOR: Integer read Get_WATERMARKANCHOR write Set_WATERMARKANCHOR;
    property WatermarkXOffset: WideString read Get_WatermarkXOffset write Set_WatermarkXOffset;
    property WatermarkYOffset: WideString read Get_WatermarkYOffset write Set_WatermarkYOffset;
    property CompressionMethod: COMPRESSION_METHOD read Get_CompressionMethod write Set_CompressionMethod;
    property DocumentType: DOCUMENT_TYPE read Get_DocumentType write Set_DocumentType;
    property FrameWidth: Integer read Get_FrameWidth write Set_FrameWidth;
    property FrameHeight: Integer read Get_FrameHeight write Set_FrameHeight;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoBatchProcessingOptions provides a Create and CreateRemote method to          
// create instances of the default interface IBatchProcessingOptions exposed by              
// the CoClass BatchProcessingOptions. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoBatchProcessingOptions = class
    class function Create: IBatchProcessingOptions;
    class function CreateRemote(const MachineName: string): IBatchProcessingOptions;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TBatchProcessingOptions
// Help String      : BatchProcessingOptions Object
// Default Interface: IBatchProcessingOptions
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TBatchProcessingOptionsProperties= class;
{$ENDIF}
  TBatchProcessingOptions = class(TOleServer)
  private
    FIntf:        IBatchProcessingOptions;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TBatchProcessingOptionsProperties;
    function      GetServerProperties: TBatchProcessingOptionsProperties;
{$ENDIF}
    function      GetDefaultInterface: IBatchProcessingOptions;
  protected
    procedure InitServerData; override;
    function Get_BeforePrintingTimeout: Integer;
    procedure Set_BeforePrintingTimeout(Value: Integer);
    function Get_PrintingTimeout: Integer;
    procedure Set_PrintingTimeout(Value: Integer);
    function Get_AfterPrintingTimeout: Integer;
    procedure Set_AfterPrintingTimeout(Value: Integer);
    function Get_PressPrintButton: ThreeStateFlag;
    procedure Set_PressPrintButton(Value: ThreeStateFlag);
    function Get_KillProcessIfTimeout: ThreeStateFlag;
    procedure Set_KillProcessIfTimeout(Value: ThreeStateFlag);
    function Get_CreateLogFile: WordBool;
    procedure Set_CreateLogFile(Value: WordBool);
    function Get_LogFileName: WideString;
    procedure Set_LogFileName(const Value: WideString);
    function Get_LoggingLevel: Integer;
    procedure Set_LoggingLevel(Value: Integer);
    function Get_PageRange: WideString;
    procedure Set_PageRange(const Value: WideString);
    function Get_ActivityTimeout: Integer;
    procedure Set_ActivityTimeout(Value: Integer);
    function Get_UseAutomation: Integer;
    procedure Set_UseAutomation(Value: Integer);
    function Get_KillAllAutomationProcesses: APPLICATIONTYPE;
    procedure Set_KillAllAutomationProcesses(Value: APPLICATIONTYPE);
    function Get_KeepAutomationAppRef: APPLICATIONTYPE;
    procedure Set_KeepAutomationAppRef(Value: APPLICATIONTYPE);
    function Get_ExcelOptions: IExcelOptions;
    function Get_PowerPointOptions: IPowerPointOptions;
    function Get_ExtractLinks: Integer;
    procedure Set_ExtractLinks(Value: Integer);
    function Get_KillSplWOW64: ThreeStateFlag;
    procedure Set_KillSplWOW64(Value: ThreeStateFlag);
    function Get_GenerateExternalViewer: WordBool;
    procedure Set_GenerateExternalViewer(Value: WordBool);
    function Get_SpecialProcessing: WideString;
    procedure Set_SpecialProcessing(const Value: WideString);
    function Get_KeepAutoAppRefStr: WideString;
    procedure Set_KeepAutoAppRefStr(const Value: WideString);
    function Get_CheckPDFEncryption: ThreeStateFlag;
    procedure Set_CheckPDFEncryption(Value: ThreeStateFlag);
    function Get_KillAutoProcessBeforeConversion: APPLICATIONTYPE;
    procedure Set_KillAutoProcessBeforeConversion(Value: APPLICATIONTYPE);
    function Get_AccProvider: WideString;
    procedure Set_AccProvider(const Value: WideString);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IBatchProcessingOptions);
    procedure Disconnect; override;
    procedure ApplyChanges;
    procedure Assign_(const bpo: IBatchProcessingOptions);
    property DefaultInterface: IBatchProcessingOptions read GetDefaultInterface;
    property ExcelOptions: IExcelOptions read Get_ExcelOptions;
    property PowerPointOptions: IPowerPointOptions read Get_PowerPointOptions;
    property BeforePrintingTimeout: Integer read Get_BeforePrintingTimeout write Set_BeforePrintingTimeout;
    property PrintingTimeout: Integer read Get_PrintingTimeout write Set_PrintingTimeout;
    property AfterPrintingTimeout: Integer read Get_AfterPrintingTimeout write Set_AfterPrintingTimeout;
    property PressPrintButton: ThreeStateFlag read Get_PressPrintButton write Set_PressPrintButton;
    property KillProcessIfTimeout: ThreeStateFlag read Get_KillProcessIfTimeout write Set_KillProcessIfTimeout;
    property CreateLogFile: WordBool read Get_CreateLogFile write Set_CreateLogFile;
    property LogFileName: WideString read Get_LogFileName write Set_LogFileName;
    property LoggingLevel: Integer read Get_LoggingLevel write Set_LoggingLevel;
    property PageRange: WideString read Get_PageRange write Set_PageRange;
    property ActivityTimeout: Integer read Get_ActivityTimeout write Set_ActivityTimeout;
    property UseAutomation: Integer read Get_UseAutomation write Set_UseAutomation;
    property KillAllAutomationProcesses: APPLICATIONTYPE read Get_KillAllAutomationProcesses write Set_KillAllAutomationProcesses;
    property KeepAutomationAppRef: APPLICATIONTYPE read Get_KeepAutomationAppRef write Set_KeepAutomationAppRef;
    property ExtractLinks: Integer read Get_ExtractLinks write Set_ExtractLinks;
    property KillSplWOW64: ThreeStateFlag read Get_KillSplWOW64 write Set_KillSplWOW64;
    property GenerateExternalViewer: WordBool read Get_GenerateExternalViewer write Set_GenerateExternalViewer;
    property SpecialProcessing: WideString read Get_SpecialProcessing write Set_SpecialProcessing;
    property KeepAutoAppRefStr: WideString read Get_KeepAutoAppRefStr write Set_KeepAutoAppRefStr;
    property CheckPDFEncryption: ThreeStateFlag read Get_CheckPDFEncryption write Set_CheckPDFEncryption;
    property KillAutoProcessBeforeConversion: APPLICATIONTYPE read Get_KillAutoProcessBeforeConversion write Set_KillAutoProcessBeforeConversion;
    property AccProvider: WideString read Get_AccProvider write Set_AccProvider;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TBatchProcessingOptionsProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TBatchProcessingOptions
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TBatchProcessingOptionsProperties = class(TPersistent)
  private
    FServer:    TBatchProcessingOptions;
    function    GetDefaultInterface: IBatchProcessingOptions;
    constructor Create(AServer: TBatchProcessingOptions);
  protected
    function Get_BeforePrintingTimeout: Integer;
    procedure Set_BeforePrintingTimeout(Value: Integer);
    function Get_PrintingTimeout: Integer;
    procedure Set_PrintingTimeout(Value: Integer);
    function Get_AfterPrintingTimeout: Integer;
    procedure Set_AfterPrintingTimeout(Value: Integer);
    function Get_PressPrintButton: ThreeStateFlag;
    procedure Set_PressPrintButton(Value: ThreeStateFlag);
    function Get_KillProcessIfTimeout: ThreeStateFlag;
    procedure Set_KillProcessIfTimeout(Value: ThreeStateFlag);
    function Get_CreateLogFile: WordBool;
    procedure Set_CreateLogFile(Value: WordBool);
    function Get_LogFileName: WideString;
    procedure Set_LogFileName(const Value: WideString);
    function Get_LoggingLevel: Integer;
    procedure Set_LoggingLevel(Value: Integer);
    function Get_PageRange: WideString;
    procedure Set_PageRange(const Value: WideString);
    function Get_ActivityTimeout: Integer;
    procedure Set_ActivityTimeout(Value: Integer);
    function Get_UseAutomation: Integer;
    procedure Set_UseAutomation(Value: Integer);
    function Get_KillAllAutomationProcesses: APPLICATIONTYPE;
    procedure Set_KillAllAutomationProcesses(Value: APPLICATIONTYPE);
    function Get_KeepAutomationAppRef: APPLICATIONTYPE;
    procedure Set_KeepAutomationAppRef(Value: APPLICATIONTYPE);
    function Get_ExcelOptions: IExcelOptions;
    function Get_PowerPointOptions: IPowerPointOptions;
    function Get_ExtractLinks: Integer;
    procedure Set_ExtractLinks(Value: Integer);
    function Get_KillSplWOW64: ThreeStateFlag;
    procedure Set_KillSplWOW64(Value: ThreeStateFlag);
    function Get_GenerateExternalViewer: WordBool;
    procedure Set_GenerateExternalViewer(Value: WordBool);
    function Get_SpecialProcessing: WideString;
    procedure Set_SpecialProcessing(const Value: WideString);
    function Get_KeepAutoAppRefStr: WideString;
    procedure Set_KeepAutoAppRefStr(const Value: WideString);
    function Get_CheckPDFEncryption: ThreeStateFlag;
    procedure Set_CheckPDFEncryption(Value: ThreeStateFlag);
    function Get_KillAutoProcessBeforeConversion: APPLICATIONTYPE;
    procedure Set_KillAutoProcessBeforeConversion(Value: APPLICATIONTYPE);
    function Get_AccProvider: WideString;
    procedure Set_AccProvider(const Value: WideString);
  public
    property DefaultInterface: IBatchProcessingOptions read GetDefaultInterface;
  published
    property BeforePrintingTimeout: Integer read Get_BeforePrintingTimeout write Set_BeforePrintingTimeout;
    property PrintingTimeout: Integer read Get_PrintingTimeout write Set_PrintingTimeout;
    property AfterPrintingTimeout: Integer read Get_AfterPrintingTimeout write Set_AfterPrintingTimeout;
    property PressPrintButton: ThreeStateFlag read Get_PressPrintButton write Set_PressPrintButton;
    property KillProcessIfTimeout: ThreeStateFlag read Get_KillProcessIfTimeout write Set_KillProcessIfTimeout;
    property CreateLogFile: WordBool read Get_CreateLogFile write Set_CreateLogFile;
    property LogFileName: WideString read Get_LogFileName write Set_LogFileName;
    property LoggingLevel: Integer read Get_LoggingLevel write Set_LoggingLevel;
    property PageRange: WideString read Get_PageRange write Set_PageRange;
    property ActivityTimeout: Integer read Get_ActivityTimeout write Set_ActivityTimeout;
    property UseAutomation: Integer read Get_UseAutomation write Set_UseAutomation;
    property KillAllAutomationProcesses: APPLICATIONTYPE read Get_KillAllAutomationProcesses write Set_KillAllAutomationProcesses;
    property KeepAutomationAppRef: APPLICATIONTYPE read Get_KeepAutomationAppRef write Set_KeepAutomationAppRef;
    property ExtractLinks: Integer read Get_ExtractLinks write Set_ExtractLinks;
    property KillSplWOW64: ThreeStateFlag read Get_KillSplWOW64 write Set_KillSplWOW64;
    property GenerateExternalViewer: WordBool read Get_GenerateExternalViewer write Set_GenerateExternalViewer;
    property SpecialProcessing: WideString read Get_SpecialProcessing write Set_SpecialProcessing;
    property KeepAutoAppRefStr: WideString read Get_KeepAutoAppRefStr write Set_KeepAutoAppRefStr;
    property CheckPDFEncryption: ThreeStateFlag read Get_CheckPDFEncryption write Set_CheckPDFEncryption;
    property KillAutoProcessBeforeConversion: APPLICATIONTYPE read Get_KillAutoProcessBeforeConversion write Set_KillAutoProcessBeforeConversion;
    property AccProvider: WideString read Get_AccProvider write Set_AccProvider;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoPrintingPreferences provides a Create and CreateRemote method to          
// create instances of the default interface IPrintingPreferences exposed by              
// the CoClass PrintingPreferences. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoPrintingPreferences = class
    class function Create: IPrintingPreferences;
    class function CreateRemote(const MachineName: string): IPrintingPreferences;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TPrintingPreferences
// Help String      : PrintingPreferences Object
// Default Interface: IPrintingPreferences
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TPrintingPreferencesProperties= class;
{$ENDIF}
  TPrintingPreferences = class(TOleServer)
  private
    FIntf:        IPrintingPreferences;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TPrintingPreferencesProperties;
    function      GetServerProperties: TPrintingPreferencesProperties;
{$ENDIF}
    function      GetDefaultInterface: IPrintingPreferences;
  protected
    procedure InitServerData; override;
    function Get_FormName: WideString;
    function Get_PaperWidth: Integer;
    function Get_PaperLength: Integer;
    function Get_Resolution: Integer;
    procedure Set_Resolution(Value: Integer);
    function Get_Orientation: PAPER_ORIENTATION;
    procedure Set_Orientation(Value: PAPER_ORIENTATION);
    function Get_Actual: WordBool;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IPrintingPreferences);
    procedure Disconnect; override;
    procedure SetFormName(const sFormName: WideString);
    procedure SetCustomPaperSize(Width: Integer; Length: Integer);
    procedure ApplyChanges;
    property DefaultInterface: IPrintingPreferences read GetDefaultInterface;
    property FormName: WideString read Get_FormName;
    property PaperWidth: Integer read Get_PaperWidth;
    property PaperLength: Integer read Get_PaperLength;
    property Actual: WordBool read Get_Actual;
    property Resolution: Integer read Get_Resolution write Set_Resolution;
    property Orientation: PAPER_ORIENTATION read Get_Orientation write Set_Orientation;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TPrintingPreferencesProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TPrintingPreferences
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TPrintingPreferencesProperties = class(TPersistent)
  private
    FServer:    TPrintingPreferences;
    function    GetDefaultInterface: IPrintingPreferences;
    constructor Create(AServer: TPrintingPreferences);
  protected
    function Get_FormName: WideString;
    function Get_PaperWidth: Integer;
    function Get_PaperLength: Integer;
    function Get_Resolution: Integer;
    procedure Set_Resolution(Value: Integer);
    function Get_Orientation: PAPER_ORIENTATION;
    procedure Set_Orientation(Value: PAPER_ORIENTATION);
    function Get_Actual: WordBool;
  public
    property DefaultInterface: IPrintingPreferences read GetDefaultInterface;
  published
    property Resolution: Integer read Get_Resolution write Set_Resolution;
    property Orientation: PAPER_ORIENTATION read Get_Orientation write Set_Orientation;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoServer2 provides a Create and CreateRemote method to          
// create instances of the default interface IServer exposed by              
// the CoClass Server2. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoServer2 = class
    class function Create: IServer;
    class function CreateRemote(const MachineName: string): IServer;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TServer2
// Help String      : 
// Default Interface: IServer
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TServer2Properties= class;
{$ENDIF}
  TServer2 = class(TOleServer)
  private
    FIntf:        IServer;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TServer2Properties;
    function      GetServerProperties: TServer2Properties;
{$ENDIF}
    function      GetDefaultInterface: IServer;
  protected
    procedure InitServerData; override;
    function Get_Version: WideString;
    function Get_DefaultProfile: IProfile;
    function Get_DefaultBatchProcessingOptions: IBatchProcessingOptions;
    function Get_DefaultPrintingPreferences: IPrintingPreferences;
    function Get_FilesConverted: Integer;
    function Get_DirsScanned: Integer;
    function Get_ErrorCount: Integer;
    function Get_Skins: ISkinCollection;
    function Get_ConvertedPages: Integer;
    function Get_TotalPages: Integer;
    function Get_FlashFileCount: Integer;
    function Get_ThumbnailFileCount: Integer;
    function Get_MetadataFileCount: Integer;
    function Get_SkippedPages: Integer;
    function Get_SVGFileCount: Integer;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IServer);
    procedure Disconnect; override;
    procedure ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString); overload;
    procedure ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                          Profile: OleVariant); overload;
    procedure ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                          Profile: OleVariant; BatchProcessingOptions: OleVariant); overload;
    procedure ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                          Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                          PrintingPreferences: OleVariant); overload;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString); overload;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString; bIncludeSubDirs: OleVariant); overload;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                         Profile: OleVariant); overload;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                         Profile: OleVariant; BatchProcessingOptions: OleVariant); overload;
    procedure ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                         const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                         Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                         PrintingPreferences: OleVariant); overload;
    procedure StartJob(const OutputFileName: WideString); overload;
    procedure StartJob(const OutputFileName: WideString; Profile: OleVariant); overload;
    procedure StartJob(const OutputFileName: WideString; Profile: OleVariant; 
                       BatchProcessingOptions: OleVariant); overload;
    procedure StartJob(const OutputFileName: WideString; Profile: OleVariant; 
                       BatchProcessingOptions: OleVariant; PrintingPreferences: OleVariant); overload;
    procedure EndJob;
    procedure CancelJob;
    procedure SetP2FPrinterAsDefault;
    property DefaultInterface: IServer read GetDefaultInterface;
    property Version: WideString read Get_Version;
    property DefaultProfile: IProfile read Get_DefaultProfile;
    property DefaultBatchProcessingOptions: IBatchProcessingOptions read Get_DefaultBatchProcessingOptions;
    property DefaultPrintingPreferences: IPrintingPreferences read Get_DefaultPrintingPreferences;
    property FilesConverted: Integer read Get_FilesConverted;
    property DirsScanned: Integer read Get_DirsScanned;
    property ErrorCount: Integer read Get_ErrorCount;
    property Skins: ISkinCollection read Get_Skins;
    property ConvertedPages: Integer read Get_ConvertedPages;
    property TotalPages: Integer read Get_TotalPages;
    property FlashFileCount: Integer read Get_FlashFileCount;
    property ThumbnailFileCount: Integer read Get_ThumbnailFileCount;
    property MetadataFileCount: Integer read Get_MetadataFileCount;
    property SkippedPages: Integer read Get_SkippedPages;
    property SVGFileCount: Integer read Get_SVGFileCount;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TServer2Properties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TServer2
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TServer2Properties = class(TPersistent)
  private
    FServer:    TServer2;
    function    GetDefaultInterface: IServer;
    constructor Create(AServer: TServer2);
  protected
    function Get_Version: WideString;
    function Get_DefaultProfile: IProfile;
    function Get_DefaultBatchProcessingOptions: IBatchProcessingOptions;
    function Get_DefaultPrintingPreferences: IPrintingPreferences;
    function Get_FilesConverted: Integer;
    function Get_DirsScanned: Integer;
    function Get_ErrorCount: Integer;
    function Get_Skins: ISkinCollection;
    function Get_ConvertedPages: Integer;
    function Get_TotalPages: Integer;
    function Get_FlashFileCount: Integer;
    function Get_ThumbnailFileCount: Integer;
    function Get_MetadataFileCount: Integer;
    function Get_SkippedPages: Integer;
    function Get_SVGFileCount: Integer;
  public
    property DefaultInterface: IServer read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoProfile2 provides a Create and CreateRemote method to          
// create instances of the default interface IProfile exposed by              
// the CoClass Profile2. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoProfile2 = class
    class function Create: IProfile;
    class function CreateRemote(const MachineName: string): IProfile;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TProfile2
// Help String      : 
// Default Interface: IProfile
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TProfile2Properties= class;
{$ENDIF}
  TProfile2 = class(TOleServer)
  private
    FIntf:        IProfile;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TProfile2Properties;
    function      GetServerProperties: TProfile2Properties;
{$ENDIF}
    function      GetDefaultInterface: IProfile;
  protected
    procedure InitServerData; override;
    function Get_Name: WideString;
    procedure Set_Name(const Value: WideString);
    function Get_InterfaceOptions: Integer;
    procedure Set_InterfaceOptions(Value: Integer);
    function Get_ProtectionOptions: Integer;
    procedure Set_ProtectionOptions(Value: Integer);
    function Get_FlashVersion: OleVariant;
    procedure Set_FlashVersion(Value: OleVariant);
    function Get_UseJpeg: WordBool;
    procedure Set_UseJpeg(Value: WordBool);
    function Get_JpegQuality: Integer;
    procedure Set_JpegQuality(Value: Integer);
    function Get_Language: WideString;
    procedure Set_Language(const Value: WideString);
    function Get_ColorAdjustment: WideString;
    procedure Set_ColorAdjustment(const Value: WideString);
    function Get_ThumbnailPageRange: WideString;
    procedure Set_ThumbnailPageRange(const Value: WideString);
    function Get_ThumbnailImageWidth: Integer;
    procedure Set_ThumbnailImageWidth(Value: Integer);
    function Get_ThumbnailImageHeight: Integer;
    procedure Set_ThumbnailImageHeight(Value: Integer);
    function Get_ThumbnailFormat: IMAGE_FORMAT;
    procedure Set_ThumbnailFormat(Value: IMAGE_FORMAT);
    function Get_ThumbnailJpegQuality: Integer;
    procedure Set_ThumbnailJpegQuality(Value: Integer);
    function Get_ThumbnailFileName: WideString;
    procedure Set_ThumbnailFileName(const Value: WideString);
    function Get_WatermarkImage: OleVariant;
    procedure Set_WatermarkImage(Value: OleVariant);
    function Get_WatermarkScale: Integer;
    procedure Set_WatermarkScale(Value: Integer);
    function Get_WatermarkTransparency: Integer;
    procedure Set_WatermarkTransparency(Value: Integer);
    function Get_Skin: OleVariant;
    procedure Set_Skin(Value: OleVariant);
    function Get_DocTemplate: OleVariant;
    procedure Set_DocTemplate(Value: OleVariant);
    function Get_DocTemplateASVersion: Integer;
    function Get_DocTemplateMaxTagID: Integer;
    function Get_DocTemplateFlashVersion: Integer;
    function Get_DocTemplateFrameCount: Integer;
    function Get_CreateMetadataFile: WordBool;
    procedure Set_CreateMetadataFile(Value: WordBool);
    function Get_MetadataFileName: WideString;
    procedure Set_MetadataFileName(const Value: WideString);
    function Get_MetaDataFileFormat: METADATAFORMAT;
    procedure Set_MetaDataFileFormat(Value: METADATAFORMAT);
    function Get_OutputFormat: OUTPUT_FORMAT;
    procedure Set_OutputFormat(Value: OUTPUT_FORMAT);
    function Get_OutputResolution: Integer;
    procedure Set_OutputResolution(Value: Integer);
    function Get_PageFileName: WideString;
    procedure Set_PageFileName(const Value: WideString);
    function Get_RestrictionDomains: WideString;
    procedure Set_RestrictionDomains(const Value: WideString);
    function Get_ParseLinks: WordBool;
    procedure Set_ParseLinks(Value: WordBool);
    function Get_LinkTarget: WideString;
    procedure Set_LinkTarget(const Value: WideString);
    function Get_LinkTargetAuto: WordBool;
    procedure Set_LinkTargetAuto(Value: WordBool);
    function Get_ExtractLinks: Integer;
    procedure Set_ExtractLinks(Value: Integer);
    function Get_TEMPLATETYPE: TEMPLATETYPE;
    procedure Set_TEMPLATETYPE(Value: TEMPLATETYPE);
    function Get_ASVersion: Integer;
    procedure Set_ASVersion(Value: Integer);
    function Get_WATERMARKANCHOR: Integer;
    procedure Set_WATERMARKANCHOR(Value: Integer);
    function Get_WatermarkXOffset: WideString;
    procedure Set_WatermarkXOffset(const Value: WideString);
    function Get_WatermarkYOffset: WideString;
    procedure Set_WatermarkYOffset(const Value: WideString);
    function Get_CompressionMethod: COMPRESSION_METHOD;
    procedure Set_CompressionMethod(Value: COMPRESSION_METHOD);
    function Get_DocTemplateHeaderSize: SYSUINT;
    function Get_DocTemplateWidth: SYSUINT;
    function Get_DocTemplateHeight: SYSUINT;
    function Get_HTML5Options: IHTML5Options;
    function Get_DocumentType: DOCUMENT_TYPE;
    procedure Set_DocumentType(Value: DOCUMENT_TYPE);
    function Get_FrameWidth: Integer;
    procedure Set_FrameWidth(Value: Integer);
    function Get_FrameHeight: Integer;
    procedure Set_FrameHeight(Value: Integer);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IProfile);
    procedure Disconnect; override;
    procedure ApplyChanges;
    procedure SaveToFile(const FileName: WideString);
    procedure LoadFromFile(const FileName: WideString);
    function SaveToStr: WideString;
    property DefaultInterface: IProfile read GetDefaultInterface;
    property FlashVersion: OleVariant read Get_FlashVersion write Set_FlashVersion;
    property WatermarkImage: OleVariant read Get_WatermarkImage write Set_WatermarkImage;
    property Skin: OleVariant read Get_Skin write Set_Skin;
    property DocTemplate: OleVariant read Get_DocTemplate write Set_DocTemplate;
    property DocTemplateASVersion: Integer read Get_DocTemplateASVersion;
    property DocTemplateMaxTagID: Integer read Get_DocTemplateMaxTagID;
    property DocTemplateFlashVersion: Integer read Get_DocTemplateFlashVersion;
    property DocTemplateFrameCount: Integer read Get_DocTemplateFrameCount;
    property DocTemplateHeaderSize: SYSUINT read Get_DocTemplateHeaderSize;
    property DocTemplateWidth: SYSUINT read Get_DocTemplateWidth;
    property DocTemplateHeight: SYSUINT read Get_DocTemplateHeight;
    property HTML5Options: IHTML5Options read Get_HTML5Options;
    property Name: WideString read Get_Name write Set_Name;
    property InterfaceOptions: Integer read Get_InterfaceOptions write Set_InterfaceOptions;
    property ProtectionOptions: Integer read Get_ProtectionOptions write Set_ProtectionOptions;
    property UseJpeg: WordBool read Get_UseJpeg write Set_UseJpeg;
    property JpegQuality: Integer read Get_JpegQuality write Set_JpegQuality;
    property Language: WideString read Get_Language write Set_Language;
    property ColorAdjustment: WideString read Get_ColorAdjustment write Set_ColorAdjustment;
    property ThumbnailPageRange: WideString read Get_ThumbnailPageRange write Set_ThumbnailPageRange;
    property ThumbnailImageWidth: Integer read Get_ThumbnailImageWidth write Set_ThumbnailImageWidth;
    property ThumbnailImageHeight: Integer read Get_ThumbnailImageHeight write Set_ThumbnailImageHeight;
    property ThumbnailFormat: IMAGE_FORMAT read Get_ThumbnailFormat write Set_ThumbnailFormat;
    property ThumbnailJpegQuality: Integer read Get_ThumbnailJpegQuality write Set_ThumbnailJpegQuality;
    property ThumbnailFileName: WideString read Get_ThumbnailFileName write Set_ThumbnailFileName;
    property WatermarkScale: Integer read Get_WatermarkScale write Set_WatermarkScale;
    property WatermarkTransparency: Integer read Get_WatermarkTransparency write Set_WatermarkTransparency;
    property CreateMetadataFile: WordBool read Get_CreateMetadataFile write Set_CreateMetadataFile;
    property MetadataFileName: WideString read Get_MetadataFileName write Set_MetadataFileName;
    property MetaDataFileFormat: METADATAFORMAT read Get_MetaDataFileFormat write Set_MetaDataFileFormat;
    property OutputFormat: OUTPUT_FORMAT read Get_OutputFormat write Set_OutputFormat;
    property OutputResolution: Integer read Get_OutputResolution write Set_OutputResolution;
    property PageFileName: WideString read Get_PageFileName write Set_PageFileName;
    property RestrictionDomains: WideString read Get_RestrictionDomains write Set_RestrictionDomains;
    property ParseLinks: WordBool read Get_ParseLinks write Set_ParseLinks;
    property LinkTarget: WideString read Get_LinkTarget write Set_LinkTarget;
    property LinkTargetAuto: WordBool read Get_LinkTargetAuto write Set_LinkTargetAuto;
    property ExtractLinks: Integer read Get_ExtractLinks write Set_ExtractLinks;
    property TEMPLATETYPE: TEMPLATETYPE read Get_TEMPLATETYPE write Set_TEMPLATETYPE;
    property ASVersion: Integer read Get_ASVersion write Set_ASVersion;
    property WATERMARKANCHOR: Integer read Get_WATERMARKANCHOR write Set_WATERMARKANCHOR;
    property WatermarkXOffset: WideString read Get_WatermarkXOffset write Set_WatermarkXOffset;
    property WatermarkYOffset: WideString read Get_WatermarkYOffset write Set_WatermarkYOffset;
    property CompressionMethod: COMPRESSION_METHOD read Get_CompressionMethod write Set_CompressionMethod;
    property DocumentType: DOCUMENT_TYPE read Get_DocumentType write Set_DocumentType;
    property FrameWidth: Integer read Get_FrameWidth write Set_FrameWidth;
    property FrameHeight: Integer read Get_FrameHeight write Set_FrameHeight;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TProfile2Properties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TProfile2
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TProfile2Properties = class(TPersistent)
  private
    FServer:    TProfile2;
    function    GetDefaultInterface: IProfile;
    constructor Create(AServer: TProfile2);
  protected
    function Get_Name: WideString;
    procedure Set_Name(const Value: WideString);
    function Get_InterfaceOptions: Integer;
    procedure Set_InterfaceOptions(Value: Integer);
    function Get_ProtectionOptions: Integer;
    procedure Set_ProtectionOptions(Value: Integer);
    function Get_FlashVersion: OleVariant;
    procedure Set_FlashVersion(Value: OleVariant);
    function Get_UseJpeg: WordBool;
    procedure Set_UseJpeg(Value: WordBool);
    function Get_JpegQuality: Integer;
    procedure Set_JpegQuality(Value: Integer);
    function Get_Language: WideString;
    procedure Set_Language(const Value: WideString);
    function Get_ColorAdjustment: WideString;
    procedure Set_ColorAdjustment(const Value: WideString);
    function Get_ThumbnailPageRange: WideString;
    procedure Set_ThumbnailPageRange(const Value: WideString);
    function Get_ThumbnailImageWidth: Integer;
    procedure Set_ThumbnailImageWidth(Value: Integer);
    function Get_ThumbnailImageHeight: Integer;
    procedure Set_ThumbnailImageHeight(Value: Integer);
    function Get_ThumbnailFormat: IMAGE_FORMAT;
    procedure Set_ThumbnailFormat(Value: IMAGE_FORMAT);
    function Get_ThumbnailJpegQuality: Integer;
    procedure Set_ThumbnailJpegQuality(Value: Integer);
    function Get_ThumbnailFileName: WideString;
    procedure Set_ThumbnailFileName(const Value: WideString);
    function Get_WatermarkImage: OleVariant;
    procedure Set_WatermarkImage(Value: OleVariant);
    function Get_WatermarkScale: Integer;
    procedure Set_WatermarkScale(Value: Integer);
    function Get_WatermarkTransparency: Integer;
    procedure Set_WatermarkTransparency(Value: Integer);
    function Get_Skin: OleVariant;
    procedure Set_Skin(Value: OleVariant);
    function Get_DocTemplate: OleVariant;
    procedure Set_DocTemplate(Value: OleVariant);
    function Get_DocTemplateASVersion: Integer;
    function Get_DocTemplateMaxTagID: Integer;
    function Get_DocTemplateFlashVersion: Integer;
    function Get_DocTemplateFrameCount: Integer;
    function Get_CreateMetadataFile: WordBool;
    procedure Set_CreateMetadataFile(Value: WordBool);
    function Get_MetadataFileName: WideString;
    procedure Set_MetadataFileName(const Value: WideString);
    function Get_MetaDataFileFormat: METADATAFORMAT;
    procedure Set_MetaDataFileFormat(Value: METADATAFORMAT);
    function Get_OutputFormat: OUTPUT_FORMAT;
    procedure Set_OutputFormat(Value: OUTPUT_FORMAT);
    function Get_OutputResolution: Integer;
    procedure Set_OutputResolution(Value: Integer);
    function Get_PageFileName: WideString;
    procedure Set_PageFileName(const Value: WideString);
    function Get_RestrictionDomains: WideString;
    procedure Set_RestrictionDomains(const Value: WideString);
    function Get_ParseLinks: WordBool;
    procedure Set_ParseLinks(Value: WordBool);
    function Get_LinkTarget: WideString;
    procedure Set_LinkTarget(const Value: WideString);
    function Get_LinkTargetAuto: WordBool;
    procedure Set_LinkTargetAuto(Value: WordBool);
    function Get_ExtractLinks: Integer;
    procedure Set_ExtractLinks(Value: Integer);
    function Get_TEMPLATETYPE: TEMPLATETYPE;
    procedure Set_TEMPLATETYPE(Value: TEMPLATETYPE);
    function Get_ASVersion: Integer;
    procedure Set_ASVersion(Value: Integer);
    function Get_WATERMARKANCHOR: Integer;
    procedure Set_WATERMARKANCHOR(Value: Integer);
    function Get_WatermarkXOffset: WideString;
    procedure Set_WatermarkXOffset(const Value: WideString);
    function Get_WatermarkYOffset: WideString;
    procedure Set_WatermarkYOffset(const Value: WideString);
    function Get_CompressionMethod: COMPRESSION_METHOD;
    procedure Set_CompressionMethod(Value: COMPRESSION_METHOD);
    function Get_DocTemplateHeaderSize: SYSUINT;
    function Get_DocTemplateWidth: SYSUINT;
    function Get_DocTemplateHeight: SYSUINT;
    function Get_HTML5Options: IHTML5Options;
    function Get_DocumentType: DOCUMENT_TYPE;
    procedure Set_DocumentType(Value: DOCUMENT_TYPE);
    function Get_FrameWidth: Integer;
    procedure Set_FrameWidth(Value: Integer);
    function Get_FrameHeight: Integer;
    procedure Set_FrameHeight(Value: Integer);
  public
    property DefaultInterface: IProfile read GetDefaultInterface;
  published
    property Name: WideString read Get_Name write Set_Name;
    property InterfaceOptions: Integer read Get_InterfaceOptions write Set_InterfaceOptions;
    property ProtectionOptions: Integer read Get_ProtectionOptions write Set_ProtectionOptions;
    property UseJpeg: WordBool read Get_UseJpeg write Set_UseJpeg;
    property JpegQuality: Integer read Get_JpegQuality write Set_JpegQuality;
    property Language: WideString read Get_Language write Set_Language;
    property ColorAdjustment: WideString read Get_ColorAdjustment write Set_ColorAdjustment;
    property ThumbnailPageRange: WideString read Get_ThumbnailPageRange write Set_ThumbnailPageRange;
    property ThumbnailImageWidth: Integer read Get_ThumbnailImageWidth write Set_ThumbnailImageWidth;
    property ThumbnailImageHeight: Integer read Get_ThumbnailImageHeight write Set_ThumbnailImageHeight;
    property ThumbnailFormat: IMAGE_FORMAT read Get_ThumbnailFormat write Set_ThumbnailFormat;
    property ThumbnailJpegQuality: Integer read Get_ThumbnailJpegQuality write Set_ThumbnailJpegQuality;
    property ThumbnailFileName: WideString read Get_ThumbnailFileName write Set_ThumbnailFileName;
    property WatermarkScale: Integer read Get_WatermarkScale write Set_WatermarkScale;
    property WatermarkTransparency: Integer read Get_WatermarkTransparency write Set_WatermarkTransparency;
    property CreateMetadataFile: WordBool read Get_CreateMetadataFile write Set_CreateMetadataFile;
    property MetadataFileName: WideString read Get_MetadataFileName write Set_MetadataFileName;
    property MetaDataFileFormat: METADATAFORMAT read Get_MetaDataFileFormat write Set_MetaDataFileFormat;
    property OutputFormat: OUTPUT_FORMAT read Get_OutputFormat write Set_OutputFormat;
    property OutputResolution: Integer read Get_OutputResolution write Set_OutputResolution;
    property PageFileName: WideString read Get_PageFileName write Set_PageFileName;
    property RestrictionDomains: WideString read Get_RestrictionDomains write Set_RestrictionDomains;
    property ParseLinks: WordBool read Get_ParseLinks write Set_ParseLinks;
    property LinkTarget: WideString read Get_LinkTarget write Set_LinkTarget;
    property LinkTargetAuto: WordBool read Get_LinkTargetAuto write Set_LinkTargetAuto;
    property ExtractLinks: Integer read Get_ExtractLinks write Set_ExtractLinks;
    property TEMPLATETYPE: TEMPLATETYPE read Get_TEMPLATETYPE write Set_TEMPLATETYPE;
    property ASVersion: Integer read Get_ASVersion write Set_ASVersion;
    property WATERMARKANCHOR: Integer read Get_WATERMARKANCHOR write Set_WATERMARKANCHOR;
    property WatermarkXOffset: WideString read Get_WatermarkXOffset write Set_WatermarkXOffset;
    property WatermarkYOffset: WideString read Get_WatermarkYOffset write Set_WatermarkYOffset;
    property CompressionMethod: COMPRESSION_METHOD read Get_CompressionMethod write Set_CompressionMethod;
    property DocumentType: DOCUMENT_TYPE read Get_DocumentType write Set_DocumentType;
    property FrameWidth: Integer read Get_FrameWidth write Set_FrameWidth;
    property FrameHeight: Integer read Get_FrameHeight write Set_FrameHeight;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoBatchProcessingOptions2 provides a Create and CreateRemote method to          
// create instances of the default interface IBatchProcessingOptions exposed by              
// the CoClass BatchProcessingOptions2. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoBatchProcessingOptions2 = class
    class function Create: IBatchProcessingOptions;
    class function CreateRemote(const MachineName: string): IBatchProcessingOptions;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TBatchProcessingOptions2
// Help String      : 
// Default Interface: IBatchProcessingOptions
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TBatchProcessingOptions2Properties= class;
{$ENDIF}
  TBatchProcessingOptions2 = class(TOleServer)
  private
    FIntf:        IBatchProcessingOptions;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TBatchProcessingOptions2Properties;
    function      GetServerProperties: TBatchProcessingOptions2Properties;
{$ENDIF}
    function      GetDefaultInterface: IBatchProcessingOptions;
  protected
    procedure InitServerData; override;
    function Get_BeforePrintingTimeout: Integer;
    procedure Set_BeforePrintingTimeout(Value: Integer);
    function Get_PrintingTimeout: Integer;
    procedure Set_PrintingTimeout(Value: Integer);
    function Get_AfterPrintingTimeout: Integer;
    procedure Set_AfterPrintingTimeout(Value: Integer);
    function Get_PressPrintButton: ThreeStateFlag;
    procedure Set_PressPrintButton(Value: ThreeStateFlag);
    function Get_KillProcessIfTimeout: ThreeStateFlag;
    procedure Set_KillProcessIfTimeout(Value: ThreeStateFlag);
    function Get_CreateLogFile: WordBool;
    procedure Set_CreateLogFile(Value: WordBool);
    function Get_LogFileName: WideString;
    procedure Set_LogFileName(const Value: WideString);
    function Get_LoggingLevel: Integer;
    procedure Set_LoggingLevel(Value: Integer);
    function Get_PageRange: WideString;
    procedure Set_PageRange(const Value: WideString);
    function Get_ActivityTimeout: Integer;
    procedure Set_ActivityTimeout(Value: Integer);
    function Get_UseAutomation: Integer;
    procedure Set_UseAutomation(Value: Integer);
    function Get_KillAllAutomationProcesses: APPLICATIONTYPE;
    procedure Set_KillAllAutomationProcesses(Value: APPLICATIONTYPE);
    function Get_KeepAutomationAppRef: APPLICATIONTYPE;
    procedure Set_KeepAutomationAppRef(Value: APPLICATIONTYPE);
    function Get_ExcelOptions: IExcelOptions;
    function Get_PowerPointOptions: IPowerPointOptions;
    function Get_ExtractLinks: Integer;
    procedure Set_ExtractLinks(Value: Integer);
    function Get_KillSplWOW64: ThreeStateFlag;
    procedure Set_KillSplWOW64(Value: ThreeStateFlag);
    function Get_GenerateExternalViewer: WordBool;
    procedure Set_GenerateExternalViewer(Value: WordBool);
    function Get_SpecialProcessing: WideString;
    procedure Set_SpecialProcessing(const Value: WideString);
    function Get_KeepAutoAppRefStr: WideString;
    procedure Set_KeepAutoAppRefStr(const Value: WideString);
    function Get_CheckPDFEncryption: ThreeStateFlag;
    procedure Set_CheckPDFEncryption(Value: ThreeStateFlag);
    function Get_KillAutoProcessBeforeConversion: APPLICATIONTYPE;
    procedure Set_KillAutoProcessBeforeConversion(Value: APPLICATIONTYPE);
    function Get_AccProvider: WideString;
    procedure Set_AccProvider(const Value: WideString);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IBatchProcessingOptions);
    procedure Disconnect; override;
    procedure ApplyChanges;
    procedure Assign_(const bpo: IBatchProcessingOptions);
    property DefaultInterface: IBatchProcessingOptions read GetDefaultInterface;
    property ExcelOptions: IExcelOptions read Get_ExcelOptions;
    property PowerPointOptions: IPowerPointOptions read Get_PowerPointOptions;
    property BeforePrintingTimeout: Integer read Get_BeforePrintingTimeout write Set_BeforePrintingTimeout;
    property PrintingTimeout: Integer read Get_PrintingTimeout write Set_PrintingTimeout;
    property AfterPrintingTimeout: Integer read Get_AfterPrintingTimeout write Set_AfterPrintingTimeout;
    property PressPrintButton: ThreeStateFlag read Get_PressPrintButton write Set_PressPrintButton;
    property KillProcessIfTimeout: ThreeStateFlag read Get_KillProcessIfTimeout write Set_KillProcessIfTimeout;
    property CreateLogFile: WordBool read Get_CreateLogFile write Set_CreateLogFile;
    property LogFileName: WideString read Get_LogFileName write Set_LogFileName;
    property LoggingLevel: Integer read Get_LoggingLevel write Set_LoggingLevel;
    property PageRange: WideString read Get_PageRange write Set_PageRange;
    property ActivityTimeout: Integer read Get_ActivityTimeout write Set_ActivityTimeout;
    property UseAutomation: Integer read Get_UseAutomation write Set_UseAutomation;
    property KillAllAutomationProcesses: APPLICATIONTYPE read Get_KillAllAutomationProcesses write Set_KillAllAutomationProcesses;
    property KeepAutomationAppRef: APPLICATIONTYPE read Get_KeepAutomationAppRef write Set_KeepAutomationAppRef;
    property ExtractLinks: Integer read Get_ExtractLinks write Set_ExtractLinks;
    property KillSplWOW64: ThreeStateFlag read Get_KillSplWOW64 write Set_KillSplWOW64;
    property GenerateExternalViewer: WordBool read Get_GenerateExternalViewer write Set_GenerateExternalViewer;
    property SpecialProcessing: WideString read Get_SpecialProcessing write Set_SpecialProcessing;
    property KeepAutoAppRefStr: WideString read Get_KeepAutoAppRefStr write Set_KeepAutoAppRefStr;
    property CheckPDFEncryption: ThreeStateFlag read Get_CheckPDFEncryption write Set_CheckPDFEncryption;
    property KillAutoProcessBeforeConversion: APPLICATIONTYPE read Get_KillAutoProcessBeforeConversion write Set_KillAutoProcessBeforeConversion;
    property AccProvider: WideString read Get_AccProvider write Set_AccProvider;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TBatchProcessingOptions2Properties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TBatchProcessingOptions2
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TBatchProcessingOptions2Properties = class(TPersistent)
  private
    FServer:    TBatchProcessingOptions2;
    function    GetDefaultInterface: IBatchProcessingOptions;
    constructor Create(AServer: TBatchProcessingOptions2);
  protected
    function Get_BeforePrintingTimeout: Integer;
    procedure Set_BeforePrintingTimeout(Value: Integer);
    function Get_PrintingTimeout: Integer;
    procedure Set_PrintingTimeout(Value: Integer);
    function Get_AfterPrintingTimeout: Integer;
    procedure Set_AfterPrintingTimeout(Value: Integer);
    function Get_PressPrintButton: ThreeStateFlag;
    procedure Set_PressPrintButton(Value: ThreeStateFlag);
    function Get_KillProcessIfTimeout: ThreeStateFlag;
    procedure Set_KillProcessIfTimeout(Value: ThreeStateFlag);
    function Get_CreateLogFile: WordBool;
    procedure Set_CreateLogFile(Value: WordBool);
    function Get_LogFileName: WideString;
    procedure Set_LogFileName(const Value: WideString);
    function Get_LoggingLevel: Integer;
    procedure Set_LoggingLevel(Value: Integer);
    function Get_PageRange: WideString;
    procedure Set_PageRange(const Value: WideString);
    function Get_ActivityTimeout: Integer;
    procedure Set_ActivityTimeout(Value: Integer);
    function Get_UseAutomation: Integer;
    procedure Set_UseAutomation(Value: Integer);
    function Get_KillAllAutomationProcesses: APPLICATIONTYPE;
    procedure Set_KillAllAutomationProcesses(Value: APPLICATIONTYPE);
    function Get_KeepAutomationAppRef: APPLICATIONTYPE;
    procedure Set_KeepAutomationAppRef(Value: APPLICATIONTYPE);
    function Get_ExcelOptions: IExcelOptions;
    function Get_PowerPointOptions: IPowerPointOptions;
    function Get_ExtractLinks: Integer;
    procedure Set_ExtractLinks(Value: Integer);
    function Get_KillSplWOW64: ThreeStateFlag;
    procedure Set_KillSplWOW64(Value: ThreeStateFlag);
    function Get_GenerateExternalViewer: WordBool;
    procedure Set_GenerateExternalViewer(Value: WordBool);
    function Get_SpecialProcessing: WideString;
    procedure Set_SpecialProcessing(const Value: WideString);
    function Get_KeepAutoAppRefStr: WideString;
    procedure Set_KeepAutoAppRefStr(const Value: WideString);
    function Get_CheckPDFEncryption: ThreeStateFlag;
    procedure Set_CheckPDFEncryption(Value: ThreeStateFlag);
    function Get_KillAutoProcessBeforeConversion: APPLICATIONTYPE;
    procedure Set_KillAutoProcessBeforeConversion(Value: APPLICATIONTYPE);
    function Get_AccProvider: WideString;
    procedure Set_AccProvider(const Value: WideString);
  public
    property DefaultInterface: IBatchProcessingOptions read GetDefaultInterface;
  published
    property BeforePrintingTimeout: Integer read Get_BeforePrintingTimeout write Set_BeforePrintingTimeout;
    property PrintingTimeout: Integer read Get_PrintingTimeout write Set_PrintingTimeout;
    property AfterPrintingTimeout: Integer read Get_AfterPrintingTimeout write Set_AfterPrintingTimeout;
    property PressPrintButton: ThreeStateFlag read Get_PressPrintButton write Set_PressPrintButton;
    property KillProcessIfTimeout: ThreeStateFlag read Get_KillProcessIfTimeout write Set_KillProcessIfTimeout;
    property CreateLogFile: WordBool read Get_CreateLogFile write Set_CreateLogFile;
    property LogFileName: WideString read Get_LogFileName write Set_LogFileName;
    property LoggingLevel: Integer read Get_LoggingLevel write Set_LoggingLevel;
    property PageRange: WideString read Get_PageRange write Set_PageRange;
    property ActivityTimeout: Integer read Get_ActivityTimeout write Set_ActivityTimeout;
    property UseAutomation: Integer read Get_UseAutomation write Set_UseAutomation;
    property KillAllAutomationProcesses: APPLICATIONTYPE read Get_KillAllAutomationProcesses write Set_KillAllAutomationProcesses;
    property KeepAutomationAppRef: APPLICATIONTYPE read Get_KeepAutomationAppRef write Set_KeepAutomationAppRef;
    property ExtractLinks: Integer read Get_ExtractLinks write Set_ExtractLinks;
    property KillSplWOW64: ThreeStateFlag read Get_KillSplWOW64 write Set_KillSplWOW64;
    property GenerateExternalViewer: WordBool read Get_GenerateExternalViewer write Set_GenerateExternalViewer;
    property SpecialProcessing: WideString read Get_SpecialProcessing write Set_SpecialProcessing;
    property KeepAutoAppRefStr: WideString read Get_KeepAutoAppRefStr write Set_KeepAutoAppRefStr;
    property CheckPDFEncryption: ThreeStateFlag read Get_CheckPDFEncryption write Set_CheckPDFEncryption;
    property KillAutoProcessBeforeConversion: APPLICATIONTYPE read Get_KillAutoProcessBeforeConversion write Set_KillAutoProcessBeforeConversion;
    property AccProvider: WideString read Get_AccProvider write Set_AccProvider;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoPrintingPreferences2 provides a Create and CreateRemote method to          
// create instances of the default interface IPrintingPreferences exposed by              
// the CoClass PrintingPreferences2. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoPrintingPreferences2 = class
    class function Create: IPrintingPreferences;
    class function CreateRemote(const MachineName: string): IPrintingPreferences;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TPrintingPreferences2
// Help String      : 
// Default Interface: IPrintingPreferences
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TPrintingPreferences2Properties= class;
{$ENDIF}
  TPrintingPreferences2 = class(TOleServer)
  private
    FIntf:        IPrintingPreferences;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TPrintingPreferences2Properties;
    function      GetServerProperties: TPrintingPreferences2Properties;
{$ENDIF}
    function      GetDefaultInterface: IPrintingPreferences;
  protected
    procedure InitServerData; override;
    function Get_FormName: WideString;
    function Get_PaperWidth: Integer;
    function Get_PaperLength: Integer;
    function Get_Resolution: Integer;
    procedure Set_Resolution(Value: Integer);
    function Get_Orientation: PAPER_ORIENTATION;
    procedure Set_Orientation(Value: PAPER_ORIENTATION);
    function Get_Actual: WordBool;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IPrintingPreferences);
    procedure Disconnect; override;
    procedure SetFormName(const sFormName: WideString);
    procedure SetCustomPaperSize(Width: Integer; Length: Integer);
    procedure ApplyChanges;
    property DefaultInterface: IPrintingPreferences read GetDefaultInterface;
    property FormName: WideString read Get_FormName;
    property PaperWidth: Integer read Get_PaperWidth;
    property PaperLength: Integer read Get_PaperLength;
    property Actual: WordBool read Get_Actual;
    property Resolution: Integer read Get_Resolution write Set_Resolution;
    property Orientation: PAPER_ORIENTATION read Get_Orientation write Set_Orientation;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TPrintingPreferences2Properties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TPrintingPreferences2
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TPrintingPreferences2Properties = class(TPersistent)
  private
    FServer:    TPrintingPreferences2;
    function    GetDefaultInterface: IPrintingPreferences;
    constructor Create(AServer: TPrintingPreferences2);
  protected
    function Get_FormName: WideString;
    function Get_PaperWidth: Integer;
    function Get_PaperLength: Integer;
    function Get_Resolution: Integer;
    procedure Set_Resolution(Value: Integer);
    function Get_Orientation: PAPER_ORIENTATION;
    procedure Set_Orientation(Value: PAPER_ORIENTATION);
    function Get_Actual: WordBool;
  public
    property DefaultInterface: IPrintingPreferences read GetDefaultInterface;
  published
    property Resolution: Integer read Get_Resolution write Set_Resolution;
    property Orientation: PAPER_ORIENTATION read Get_Orientation write Set_Orientation;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoP2FApp provides a Create and CreateRemote method to          
// create instances of the default interface IP2FApp exposed by              
// the CoClass P2FApp. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoP2FApp = class
    class function Create: IP2FApp;
    class function CreateRemote(const MachineName: string): IP2FApp;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TP2FApp
// Help String      : 
// Default Interface: IP2FApp
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TP2FAppProperties= class;
{$ENDIF}
  TP2FApp = class(TOleServer)
  private
    FIntf:        IP2FApp;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TP2FAppProperties;
    function      GetServerProperties: TP2FAppProperties;
{$ENDIF}
    function      GetDefaultInterface: IP2FApp;
  protected
    procedure InitServerData; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IP2FApp);
    procedure Disconnect; override;
    function StartDoc(const DocName: WideString; JobID: Integer): WordBool;
    function OnProgress(PageNumber: Integer; TotalPages: Integer; Flag: P2F_PROGRESS): WordBool;
    function EndDoc(bCancelled: Integer; const szDocName: WideString): WordBool;
    function ShowDialog: WordBool;
    function GetProfileStr: WideString;
    function GetSkinStr: WideString;
    property DefaultInterface: IP2FApp read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TP2FAppProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TP2FApp
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TP2FAppProperties = class(TPersistent)
  private
    FServer:    TP2FApp;
    function    GetDefaultInterface: IP2FApp;
    constructor Create(AServer: TP2FApp);
  protected
  public
    property DefaultInterface: IP2FApp read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoSkinCollection provides a Create and CreateRemote method to          
// create instances of the default interface ISkinCollection exposed by              
// the CoClass SkinCollection. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoSkinCollection = class
    class function Create: ISkinCollection;
    class function CreateRemote(const MachineName: string): ISkinCollection;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TSkinCollection
// Help String      : 
// Default Interface: ISkinCollection
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TSkinCollectionProperties= class;
{$ENDIF}
  TSkinCollection = class(TOleServer)
  private
    FIntf:        ISkinCollection;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TSkinCollectionProperties;
    function      GetServerProperties: TSkinCollectionProperties;
{$ENDIF}
    function      GetDefaultInterface: ISkinCollection;
  protected
    procedure InitServerData; override;
    function Get_item(Index: OleVariant): OleVariant;
    function Get_Count: Integer;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ISkinCollection);
    procedure Disconnect; override;
    function Add(const Name: WideString): ISkin;
    procedure Delete(Index: OleVariant);
    procedure RenameSkin(const Skin: ISkin; const NewName: WideString);
    property DefaultInterface: ISkinCollection read GetDefaultInterface;
    property item[Index: OleVariant]: OleVariant read Get_item; default;
    property Count: Integer read Get_Count;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TSkinCollectionProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TSkinCollection
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TSkinCollectionProperties = class(TPersistent)
  private
    FServer:    TSkinCollection;
    function    GetDefaultInterface: ISkinCollection;
    constructor Create(AServer: TSkinCollection);
  protected
    function Get_item(Index: OleVariant): OleVariant;
    function Get_Count: Integer;
  public
    property DefaultInterface: ISkinCollection read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoExcelOptions provides a Create and CreateRemote method to          
// create instances of the default interface IExcelOptions exposed by              
// the CoClass ExcelOptions. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoExcelOptions = class
    class function Create: IExcelOptions;
    class function CreateRemote(const MachineName: string): IExcelOptions;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TExcelOptions
// Help String      : 
// Default Interface: IExcelOptions
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TExcelOptionsProperties= class;
{$ENDIF}
  TExcelOptions = class(TOleServer)
  private
    FIntf:        IExcelOptions;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TExcelOptionsProperties;
    function      GetServerProperties: TExcelOptionsProperties;
{$ENDIF}
    function      GetDefaultInterface: IExcelOptions;
  protected
    procedure InitServerData; override;
    function Get_SheetRange: WideString;
    procedure Set_SheetRange(const Value: WideString);
    function Get_OverridePrintQuality: WordBool;
    procedure Set_OverridePrintQuality(Value: WordBool);
    function Get_SkipEmptySheets: WordBool;
    procedure Set_SkipEmptySheets(Value: WordBool);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IExcelOptions);
    procedure Disconnect; override;
    property DefaultInterface: IExcelOptions read GetDefaultInterface;
    property SheetRange: WideString read Get_SheetRange write Set_SheetRange;
    property OverridePrintQuality: WordBool read Get_OverridePrintQuality write Set_OverridePrintQuality;
    property SkipEmptySheets: WordBool read Get_SkipEmptySheets write Set_SkipEmptySheets;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TExcelOptionsProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TExcelOptions
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TExcelOptionsProperties = class(TPersistent)
  private
    FServer:    TExcelOptions;
    function    GetDefaultInterface: IExcelOptions;
    constructor Create(AServer: TExcelOptions);
  protected
    function Get_SheetRange: WideString;
    procedure Set_SheetRange(const Value: WideString);
    function Get_OverridePrintQuality: WordBool;
    procedure Set_OverridePrintQuality(Value: WordBool);
    function Get_SkipEmptySheets: WordBool;
    procedure Set_SkipEmptySheets(Value: WordBool);
  public
    property DefaultInterface: IExcelOptions read GetDefaultInterface;
  published
    property SheetRange: WideString read Get_SheetRange write Set_SheetRange;
    property OverridePrintQuality: WordBool read Get_OverridePrintQuality write Set_OverridePrintQuality;
    property SkipEmptySheets: WordBool read Get_SkipEmptySheets write Set_SkipEmptySheets;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoPowerPointOptions provides a Create and CreateRemote method to          
// create instances of the default interface IPowerPointOptions exposed by              
// the CoClass PowerPointOptions. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoPowerPointOptions = class
    class function Create: IPowerPointOptions;
    class function CreateRemote(const MachineName: string): IPowerPointOptions;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TPowerPointOptions
// Help String      : 
// Default Interface: IPowerPointOptions
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TPowerPointOptionsProperties= class;
{$ENDIF}
  TPowerPointOptions = class(TOleServer)
  private
    FIntf:        IPowerPointOptions;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TPowerPointOptionsProperties;
    function      GetServerProperties: TPowerPointOptionsProperties;
{$ENDIF}
    function      GetDefaultInterface: IPowerPointOptions;
  protected
    procedure InitServerData; override;
    function Get_FitToPage: OleVariant;
    procedure Set_FitToPage(Value: OleVariant);
    function Get_PrintHiddenSlides: ThreeStateFlag;
    procedure Set_PrintHiddenSlides(Value: ThreeStateFlag);
    function Get_OutputType: OleVariant;
    procedure Set_OutputType(Value: OleVariant);
    function Get_FrameSlides: OleVariant;
    procedure Set_FrameSlides(Value: OleVariant);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IPowerPointOptions);
    procedure Disconnect; override;
    property DefaultInterface: IPowerPointOptions read GetDefaultInterface;
    property FitToPage: OleVariant read Get_FitToPage write Set_FitToPage;
    property OutputType: OleVariant read Get_OutputType write Set_OutputType;
    property FrameSlides: OleVariant read Get_FrameSlides write Set_FrameSlides;
    property PrintHiddenSlides: ThreeStateFlag read Get_PrintHiddenSlides write Set_PrintHiddenSlides;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TPowerPointOptionsProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TPowerPointOptions
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TPowerPointOptionsProperties = class(TPersistent)
  private
    FServer:    TPowerPointOptions;
    function    GetDefaultInterface: IPowerPointOptions;
    constructor Create(AServer: TPowerPointOptions);
  protected
    function Get_FitToPage: OleVariant;
    procedure Set_FitToPage(Value: OleVariant);
    function Get_PrintHiddenSlides: ThreeStateFlag;
    procedure Set_PrintHiddenSlides(Value: ThreeStateFlag);
    function Get_OutputType: OleVariant;
    procedure Set_OutputType(Value: OleVariant);
    function Get_FrameSlides: OleVariant;
    procedure Set_FrameSlides(Value: OleVariant);
  public
    property DefaultInterface: IPowerPointOptions read GetDefaultInterface;
  published
    property PrintHiddenSlides: ThreeStateFlag read Get_PrintHiddenSlides write Set_PrintHiddenSlides;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoSkin provides a Create and CreateRemote method to          
// create instances of the default interface ISkin exposed by              
// the CoClass Skin. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoSkin = class
    class function Create: ISkin;
    class function CreateRemote(const MachineName: string): ISkin;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TSkin
// Help String      : 
// Default Interface: ISkin
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TSkinProperties= class;
{$ENDIF}
  TSkin = class(TOleServer)
  private
    FIntf:        ISkin;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TSkinProperties;
    function      GetServerProperties: TSkinProperties;
{$ENDIF}
    function      GetDefaultInterface: ISkin;
  protected
    procedure InitServerData; override;
    function Get_Name: WideString;
    function Get_ToolbarBgrColor: Integer;
    procedure Set_ToolbarBgrColor(Value: Integer);
    function Get_OverButColor: Integer;
    procedure Set_OverButColor(Value: Integer);
    function Get_OverRectColor: Integer;
    procedure Set_OverRectColor(Value: Integer);
    function Get_DownButColor: Integer;
    procedure Set_DownButColor(Value: Integer);
    function Get_DownRectColor: Integer;
    procedure Set_DownRectColor(Value: Integer);
    function Get_DocBgrColor: Integer;
    procedure Set_DocBgrColor(Value: Integer);
    function Get_ScrollBarColor: Integer;
    procedure Set_ScrollBarColor(Value: Integer);
    function Get_ColorAdjustment: WideString;
    procedure Set_ColorAdjustment(const Value: WideString);
    function Get_ZoomHandleOffset: Integer;
    procedure Set_ZoomHandleOffset(Value: Integer);
    function Get_LogoURL: WideString;
    procedure Set_LogoURL(const Value: WideString);
    function Get_HelpButtonURL: WideString;
    procedure Set_HelpButtonURL(const Value: WideString);
    function Get_TBBgrImgBehavior: IMGBEHAVIOR;
    procedure Set_TBBgrImgBehavior(Value: IMGBEHAVIOR);
    function Get_FileName: WideString;
    function Get_ID: TGUID;
    function Get_btnColorAdj: WordBool;
    procedure Set_btnColorAdj(Value: WordBool);
    function Get_TextHighlightColor: Integer;
    procedure Set_TextHighlightColor(Value: Integer);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ISkin);
    procedure Disconnect; override;
    procedure SetToolbarImage(Img: TOOLBAR_IMAGE; sFileName: OleVariant);
    function GetToolbarImage(Image: TOOLBAR_IMAGE): OleVariant;
    procedure ApplyChanges;
    procedure LoadFromFile(const FileName: WideString);
    procedure SaveToFile(const FileName: WideString);
    function SaveToStr: WideString;
    procedure Assign_(const _skin: ISkin);
    property DefaultInterface: ISkin read GetDefaultInterface;
    property Name: WideString read Get_Name;
    property FileName: WideString read Get_FileName;
    property ID: TGUID read Get_ID;
    property ToolbarBgrColor: Integer read Get_ToolbarBgrColor write Set_ToolbarBgrColor;
    property OverButColor: Integer read Get_OverButColor write Set_OverButColor;
    property OverRectColor: Integer read Get_OverRectColor write Set_OverRectColor;
    property DownButColor: Integer read Get_DownButColor write Set_DownButColor;
    property DownRectColor: Integer read Get_DownRectColor write Set_DownRectColor;
    property DocBgrColor: Integer read Get_DocBgrColor write Set_DocBgrColor;
    property ScrollBarColor: Integer read Get_ScrollBarColor write Set_ScrollBarColor;
    property ColorAdjustment: WideString read Get_ColorAdjustment write Set_ColorAdjustment;
    property ZoomHandleOffset: Integer read Get_ZoomHandleOffset write Set_ZoomHandleOffset;
    property LogoURL: WideString read Get_LogoURL write Set_LogoURL;
    property HelpButtonURL: WideString read Get_HelpButtonURL write Set_HelpButtonURL;
    property TBBgrImgBehavior: IMGBEHAVIOR read Get_TBBgrImgBehavior write Set_TBBgrImgBehavior;
    property btnColorAdj: WordBool read Get_btnColorAdj write Set_btnColorAdj;
    property TextHighlightColor: Integer read Get_TextHighlightColor write Set_TextHighlightColor;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TSkinProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TSkin
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TSkinProperties = class(TPersistent)
  private
    FServer:    TSkin;
    function    GetDefaultInterface: ISkin;
    constructor Create(AServer: TSkin);
  protected
    function Get_Name: WideString;
    function Get_ToolbarBgrColor: Integer;
    procedure Set_ToolbarBgrColor(Value: Integer);
    function Get_OverButColor: Integer;
    procedure Set_OverButColor(Value: Integer);
    function Get_OverRectColor: Integer;
    procedure Set_OverRectColor(Value: Integer);
    function Get_DownButColor: Integer;
    procedure Set_DownButColor(Value: Integer);
    function Get_DownRectColor: Integer;
    procedure Set_DownRectColor(Value: Integer);
    function Get_DocBgrColor: Integer;
    procedure Set_DocBgrColor(Value: Integer);
    function Get_ScrollBarColor: Integer;
    procedure Set_ScrollBarColor(Value: Integer);
    function Get_ColorAdjustment: WideString;
    procedure Set_ColorAdjustment(const Value: WideString);
    function Get_ZoomHandleOffset: Integer;
    procedure Set_ZoomHandleOffset(Value: Integer);
    function Get_LogoURL: WideString;
    procedure Set_LogoURL(const Value: WideString);
    function Get_HelpButtonURL: WideString;
    procedure Set_HelpButtonURL(const Value: WideString);
    function Get_TBBgrImgBehavior: IMGBEHAVIOR;
    procedure Set_TBBgrImgBehavior(Value: IMGBEHAVIOR);
    function Get_FileName: WideString;
    function Get_ID: TGUID;
    function Get_btnColorAdj: WordBool;
    procedure Set_btnColorAdj(Value: WordBool);
    function Get_TextHighlightColor: Integer;
    procedure Set_TextHighlightColor(Value: Integer);
  public
    property DefaultInterface: ISkin read GetDefaultInterface;
  published
    property ToolbarBgrColor: Integer read Get_ToolbarBgrColor write Set_ToolbarBgrColor;
    property OverButColor: Integer read Get_OverButColor write Set_OverButColor;
    property OverRectColor: Integer read Get_OverRectColor write Set_OverRectColor;
    property DownButColor: Integer read Get_DownButColor write Set_DownButColor;
    property DownRectColor: Integer read Get_DownRectColor write Set_DownRectColor;
    property DocBgrColor: Integer read Get_DocBgrColor write Set_DocBgrColor;
    property ScrollBarColor: Integer read Get_ScrollBarColor write Set_ScrollBarColor;
    property ColorAdjustment: WideString read Get_ColorAdjustment write Set_ColorAdjustment;
    property ZoomHandleOffset: Integer read Get_ZoomHandleOffset write Set_ZoomHandleOffset;
    property LogoURL: WideString read Get_LogoURL write Set_LogoURL;
    property HelpButtonURL: WideString read Get_HelpButtonURL write Set_HelpButtonURL;
    property TBBgrImgBehavior: IMGBEHAVIOR read Get_TBBgrImgBehavior write Set_TBBgrImgBehavior;
    property btnColorAdj: WordBool read Get_btnColorAdj write Set_btnColorAdj;
    property TextHighlightColor: Integer read Get_TextHighlightColor write Set_TextHighlightColor;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoSkinCollection2 provides a Create and CreateRemote method to          
// create instances of the default interface ISkinCollection exposed by              
// the CoClass SkinCollection2. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoSkinCollection2 = class
    class function Create: ISkinCollection;
    class function CreateRemote(const MachineName: string): ISkinCollection;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TSkinCollection2
// Help String      : 
// Default Interface: ISkinCollection
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TSkinCollection2Properties= class;
{$ENDIF}
  TSkinCollection2 = class(TOleServer)
  private
    FIntf:        ISkinCollection;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TSkinCollection2Properties;
    function      GetServerProperties: TSkinCollection2Properties;
{$ENDIF}
    function      GetDefaultInterface: ISkinCollection;
  protected
    procedure InitServerData; override;
    function Get_item(Index: OleVariant): OleVariant;
    function Get_Count: Integer;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ISkinCollection);
    procedure Disconnect; override;
    function Add(const Name: WideString): ISkin;
    procedure Delete(Index: OleVariant);
    procedure RenameSkin(const Skin: ISkin; const NewName: WideString);
    property DefaultInterface: ISkinCollection read GetDefaultInterface;
    property item[Index: OleVariant]: OleVariant read Get_item; default;
    property Count: Integer read Get_Count;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TSkinCollection2Properties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TSkinCollection2
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TSkinCollection2Properties = class(TPersistent)
  private
    FServer:    TSkinCollection2;
    function    GetDefaultInterface: ISkinCollection;
    constructor Create(AServer: TSkinCollection2);
  protected
    function Get_item(Index: OleVariant): OleVariant;
    function Get_Count: Integer;
  public
    property DefaultInterface: ISkinCollection read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoExcelOptions2 provides a Create and CreateRemote method to          
// create instances of the default interface IExcelOptions exposed by              
// the CoClass ExcelOptions2. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoExcelOptions2 = class
    class function Create: IExcelOptions;
    class function CreateRemote(const MachineName: string): IExcelOptions;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TExcelOptions2
// Help String      : 
// Default Interface: IExcelOptions
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TExcelOptions2Properties= class;
{$ENDIF}
  TExcelOptions2 = class(TOleServer)
  private
    FIntf:        IExcelOptions;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TExcelOptions2Properties;
    function      GetServerProperties: TExcelOptions2Properties;
{$ENDIF}
    function      GetDefaultInterface: IExcelOptions;
  protected
    procedure InitServerData; override;
    function Get_SheetRange: WideString;
    procedure Set_SheetRange(const Value: WideString);
    function Get_OverridePrintQuality: WordBool;
    procedure Set_OverridePrintQuality(Value: WordBool);
    function Get_SkipEmptySheets: WordBool;
    procedure Set_SkipEmptySheets(Value: WordBool);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IExcelOptions);
    procedure Disconnect; override;
    property DefaultInterface: IExcelOptions read GetDefaultInterface;
    property SheetRange: WideString read Get_SheetRange write Set_SheetRange;
    property OverridePrintQuality: WordBool read Get_OverridePrintQuality write Set_OverridePrintQuality;
    property SkipEmptySheets: WordBool read Get_SkipEmptySheets write Set_SkipEmptySheets;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TExcelOptions2Properties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TExcelOptions2
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TExcelOptions2Properties = class(TPersistent)
  private
    FServer:    TExcelOptions2;
    function    GetDefaultInterface: IExcelOptions;
    constructor Create(AServer: TExcelOptions2);
  protected
    function Get_SheetRange: WideString;
    procedure Set_SheetRange(const Value: WideString);
    function Get_OverridePrintQuality: WordBool;
    procedure Set_OverridePrintQuality(Value: WordBool);
    function Get_SkipEmptySheets: WordBool;
    procedure Set_SkipEmptySheets(Value: WordBool);
  public
    property DefaultInterface: IExcelOptions read GetDefaultInterface;
  published
    property SheetRange: WideString read Get_SheetRange write Set_SheetRange;
    property OverridePrintQuality: WordBool read Get_OverridePrintQuality write Set_OverridePrintQuality;
    property SkipEmptySheets: WordBool read Get_SkipEmptySheets write Set_SkipEmptySheets;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoPowerPointOptions2 provides a Create and CreateRemote method to          
// create instances of the default interface IPowerPointOptions exposed by              
// the CoClass PowerPointOptions2. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoPowerPointOptions2 = class
    class function Create: IPowerPointOptions;
    class function CreateRemote(const MachineName: string): IPowerPointOptions;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TPowerPointOptions2
// Help String      : 
// Default Interface: IPowerPointOptions
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TPowerPointOptions2Properties= class;
{$ENDIF}
  TPowerPointOptions2 = class(TOleServer)
  private
    FIntf:        IPowerPointOptions;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TPowerPointOptions2Properties;
    function      GetServerProperties: TPowerPointOptions2Properties;
{$ENDIF}
    function      GetDefaultInterface: IPowerPointOptions;
  protected
    procedure InitServerData; override;
    function Get_FitToPage: OleVariant;
    procedure Set_FitToPage(Value: OleVariant);
    function Get_PrintHiddenSlides: ThreeStateFlag;
    procedure Set_PrintHiddenSlides(Value: ThreeStateFlag);
    function Get_OutputType: OleVariant;
    procedure Set_OutputType(Value: OleVariant);
    function Get_FrameSlides: OleVariant;
    procedure Set_FrameSlides(Value: OleVariant);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IPowerPointOptions);
    procedure Disconnect; override;
    property DefaultInterface: IPowerPointOptions read GetDefaultInterface;
    property FitToPage: OleVariant read Get_FitToPage write Set_FitToPage;
    property OutputType: OleVariant read Get_OutputType write Set_OutputType;
    property FrameSlides: OleVariant read Get_FrameSlides write Set_FrameSlides;
    property PrintHiddenSlides: ThreeStateFlag read Get_PrintHiddenSlides write Set_PrintHiddenSlides;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TPowerPointOptions2Properties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TPowerPointOptions2
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TPowerPointOptions2Properties = class(TPersistent)
  private
    FServer:    TPowerPointOptions2;
    function    GetDefaultInterface: IPowerPointOptions;
    constructor Create(AServer: TPowerPointOptions2);
  protected
    function Get_FitToPage: OleVariant;
    procedure Set_FitToPage(Value: OleVariant);
    function Get_PrintHiddenSlides: ThreeStateFlag;
    procedure Set_PrintHiddenSlides(Value: ThreeStateFlag);
    function Get_OutputType: OleVariant;
    procedure Set_OutputType(Value: OleVariant);
    function Get_FrameSlides: OleVariant;
    procedure Set_FrameSlides(Value: OleVariant);
  public
    property DefaultInterface: IPowerPointOptions read GetDefaultInterface;
  published
    property PrintHiddenSlides: ThreeStateFlag read Get_PrintHiddenSlides write Set_PrintHiddenSlides;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoSkin2 provides a Create and CreateRemote method to          
// create instances of the default interface ISkin exposed by              
// the CoClass Skin2. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoSkin2 = class
    class function Create: ISkin;
    class function CreateRemote(const MachineName: string): ISkin;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TSkin2
// Help String      : 
// Default Interface: ISkin
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TSkin2Properties= class;
{$ENDIF}
  TSkin2 = class(TOleServer)
  private
    FIntf:        ISkin;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TSkin2Properties;
    function      GetServerProperties: TSkin2Properties;
{$ENDIF}
    function      GetDefaultInterface: ISkin;
  protected
    procedure InitServerData; override;
    function Get_Name: WideString;
    function Get_ToolbarBgrColor: Integer;
    procedure Set_ToolbarBgrColor(Value: Integer);
    function Get_OverButColor: Integer;
    procedure Set_OverButColor(Value: Integer);
    function Get_OverRectColor: Integer;
    procedure Set_OverRectColor(Value: Integer);
    function Get_DownButColor: Integer;
    procedure Set_DownButColor(Value: Integer);
    function Get_DownRectColor: Integer;
    procedure Set_DownRectColor(Value: Integer);
    function Get_DocBgrColor: Integer;
    procedure Set_DocBgrColor(Value: Integer);
    function Get_ScrollBarColor: Integer;
    procedure Set_ScrollBarColor(Value: Integer);
    function Get_ColorAdjustment: WideString;
    procedure Set_ColorAdjustment(const Value: WideString);
    function Get_ZoomHandleOffset: Integer;
    procedure Set_ZoomHandleOffset(Value: Integer);
    function Get_LogoURL: WideString;
    procedure Set_LogoURL(const Value: WideString);
    function Get_HelpButtonURL: WideString;
    procedure Set_HelpButtonURL(const Value: WideString);
    function Get_TBBgrImgBehavior: IMGBEHAVIOR;
    procedure Set_TBBgrImgBehavior(Value: IMGBEHAVIOR);
    function Get_FileName: WideString;
    function Get_ID: TGUID;
    function Get_btnColorAdj: WordBool;
    procedure Set_btnColorAdj(Value: WordBool);
    function Get_TextHighlightColor: Integer;
    procedure Set_TextHighlightColor(Value: Integer);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ISkin);
    procedure Disconnect; override;
    procedure SetToolbarImage(Img: TOOLBAR_IMAGE; sFileName: OleVariant);
    function GetToolbarImage(Image: TOOLBAR_IMAGE): OleVariant;
    procedure ApplyChanges;
    procedure LoadFromFile(const FileName: WideString);
    procedure SaveToFile(const FileName: WideString);
    function SaveToStr: WideString;
    procedure Assign_(const _skin: ISkin);
    property DefaultInterface: ISkin read GetDefaultInterface;
    property Name: WideString read Get_Name;
    property FileName: WideString read Get_FileName;
    property ID: TGUID read Get_ID;
    property ToolbarBgrColor: Integer read Get_ToolbarBgrColor write Set_ToolbarBgrColor;
    property OverButColor: Integer read Get_OverButColor write Set_OverButColor;
    property OverRectColor: Integer read Get_OverRectColor write Set_OverRectColor;
    property DownButColor: Integer read Get_DownButColor write Set_DownButColor;
    property DownRectColor: Integer read Get_DownRectColor write Set_DownRectColor;
    property DocBgrColor: Integer read Get_DocBgrColor write Set_DocBgrColor;
    property ScrollBarColor: Integer read Get_ScrollBarColor write Set_ScrollBarColor;
    property ColorAdjustment: WideString read Get_ColorAdjustment write Set_ColorAdjustment;
    property ZoomHandleOffset: Integer read Get_ZoomHandleOffset write Set_ZoomHandleOffset;
    property LogoURL: WideString read Get_LogoURL write Set_LogoURL;
    property HelpButtonURL: WideString read Get_HelpButtonURL write Set_HelpButtonURL;
    property TBBgrImgBehavior: IMGBEHAVIOR read Get_TBBgrImgBehavior write Set_TBBgrImgBehavior;
    property btnColorAdj: WordBool read Get_btnColorAdj write Set_btnColorAdj;
    property TextHighlightColor: Integer read Get_TextHighlightColor write Set_TextHighlightColor;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TSkin2Properties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TSkin2
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TSkin2Properties = class(TPersistent)
  private
    FServer:    TSkin2;
    function    GetDefaultInterface: ISkin;
    constructor Create(AServer: TSkin2);
  protected
    function Get_Name: WideString;
    function Get_ToolbarBgrColor: Integer;
    procedure Set_ToolbarBgrColor(Value: Integer);
    function Get_OverButColor: Integer;
    procedure Set_OverButColor(Value: Integer);
    function Get_OverRectColor: Integer;
    procedure Set_OverRectColor(Value: Integer);
    function Get_DownButColor: Integer;
    procedure Set_DownButColor(Value: Integer);
    function Get_DownRectColor: Integer;
    procedure Set_DownRectColor(Value: Integer);
    function Get_DocBgrColor: Integer;
    procedure Set_DocBgrColor(Value: Integer);
    function Get_ScrollBarColor: Integer;
    procedure Set_ScrollBarColor(Value: Integer);
    function Get_ColorAdjustment: WideString;
    procedure Set_ColorAdjustment(const Value: WideString);
    function Get_ZoomHandleOffset: Integer;
    procedure Set_ZoomHandleOffset(Value: Integer);
    function Get_LogoURL: WideString;
    procedure Set_LogoURL(const Value: WideString);
    function Get_HelpButtonURL: WideString;
    procedure Set_HelpButtonURL(const Value: WideString);
    function Get_TBBgrImgBehavior: IMGBEHAVIOR;
    procedure Set_TBBgrImgBehavior(Value: IMGBEHAVIOR);
    function Get_FileName: WideString;
    function Get_ID: TGUID;
    function Get_btnColorAdj: WordBool;
    procedure Set_btnColorAdj(Value: WordBool);
    function Get_TextHighlightColor: Integer;
    procedure Set_TextHighlightColor(Value: Integer);
  public
    property DefaultInterface: ISkin read GetDefaultInterface;
  published
    property ToolbarBgrColor: Integer read Get_ToolbarBgrColor write Set_ToolbarBgrColor;
    property OverButColor: Integer read Get_OverButColor write Set_OverButColor;
    property OverRectColor: Integer read Get_OverRectColor write Set_OverRectColor;
    property DownButColor: Integer read Get_DownButColor write Set_DownButColor;
    property DownRectColor: Integer read Get_DownRectColor write Set_DownRectColor;
    property DocBgrColor: Integer read Get_DocBgrColor write Set_DocBgrColor;
    property ScrollBarColor: Integer read Get_ScrollBarColor write Set_ScrollBarColor;
    property ColorAdjustment: WideString read Get_ColorAdjustment write Set_ColorAdjustment;
    property ZoomHandleOffset: Integer read Get_ZoomHandleOffset write Set_ZoomHandleOffset;
    property LogoURL: WideString read Get_LogoURL write Set_LogoURL;
    property HelpButtonURL: WideString read Get_HelpButtonURL write Set_HelpButtonURL;
    property TBBgrImgBehavior: IMGBEHAVIOR read Get_TBBgrImgBehavior write Set_TBBgrImgBehavior;
    property btnColorAdj: WordBool read Get_btnColorAdj write Set_btnColorAdj;
    property TextHighlightColor: Integer read Get_TextHighlightColor write Set_TextHighlightColor;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoHTML5Options provides a Create and CreateRemote method to          
// create instances of the default interface IHTML5Options exposed by              
// the CoClass HTML5Options. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoHTML5Options = class
    class function Create: IHTML5Options;
    class function CreateRemote(const MachineName: string): IHTML5Options;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : THTML5Options
// Help String      : 
// Default Interface: IHTML5Options
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  THTML5OptionsProperties= class;
{$ENDIF}
  THTML5Options = class(TOleServer)
  private
    FIntf:        IHTML5Options;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       THTML5OptionsProperties;
    function      GetServerProperties: THTML5OptionsProperties;
{$ENDIF}
    function      GetDefaultInterface: IHTML5Options;
  protected
    procedure InitServerData; override;
    function Get_Compression: WordBool;
    procedure Set_Compression(Value: WordBool);
    function Get_Compatibility: BROWSER_TYPE;
    procedure Set_Compatibility(Value: BROWSER_TYPE);
    function Get_VersionIE: WideString;
    procedure Set_VersionIE(const Value: WideString);
    function Get_VersionFireFox: WideString;
    procedure Set_VersionFireFox(const Value: WideString);
    function Get_VersionSafari: WideString;
    procedure Set_VersionSafari(const Value: WideString);
    function Get_VersionChrome: WideString;
    procedure Set_VersionChrome(const Value: WideString);
    function Get_VersionOpera: WideString;
    procedure Set_VersionOpera(const Value: WideString);
    function Get_ViewMode: VIEW_MODE;
    procedure Set_ViewMode(Value: VIEW_MODE);
    function Get_SinglePageModeThreshold: Integer;
    procedure Set_SinglePageModeThreshold(Value: Integer);
    function Get_DocTemplate: OleVariant;
    procedure Set_DocTemplate(Value: OleVariant);
    function Get_EmbedResources: WordBool;
    procedure Set_EmbedResources(Value: WordBool);
    function Get_SubsetFonts: WordBool;
    procedure Set_SubsetFonts(Value: WordBool);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IHTML5Options);
    procedure Disconnect; override;
    property DefaultInterface: IHTML5Options read GetDefaultInterface;
    property DocTemplate: OleVariant read Get_DocTemplate write Set_DocTemplate;
    property Compression: WordBool read Get_Compression write Set_Compression;
    property Compatibility: BROWSER_TYPE read Get_Compatibility write Set_Compatibility;
    property VersionIE: WideString read Get_VersionIE write Set_VersionIE;
    property VersionFireFox: WideString read Get_VersionFireFox write Set_VersionFireFox;
    property VersionSafari: WideString read Get_VersionSafari write Set_VersionSafari;
    property VersionChrome: WideString read Get_VersionChrome write Set_VersionChrome;
    property VersionOpera: WideString read Get_VersionOpera write Set_VersionOpera;
    property ViewMode: VIEW_MODE read Get_ViewMode write Set_ViewMode;
    property SinglePageModeThreshold: Integer read Get_SinglePageModeThreshold write Set_SinglePageModeThreshold;
    property EmbedResources: WordBool read Get_EmbedResources write Set_EmbedResources;
    property SubsetFonts: WordBool read Get_SubsetFonts write Set_SubsetFonts;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: THTML5OptionsProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : THTML5Options
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 THTML5OptionsProperties = class(TPersistent)
  private
    FServer:    THTML5Options;
    function    GetDefaultInterface: IHTML5Options;
    constructor Create(AServer: THTML5Options);
  protected
    function Get_Compression: WordBool;
    procedure Set_Compression(Value: WordBool);
    function Get_Compatibility: BROWSER_TYPE;
    procedure Set_Compatibility(Value: BROWSER_TYPE);
    function Get_VersionIE: WideString;
    procedure Set_VersionIE(const Value: WideString);
    function Get_VersionFireFox: WideString;
    procedure Set_VersionFireFox(const Value: WideString);
    function Get_VersionSafari: WideString;
    procedure Set_VersionSafari(const Value: WideString);
    function Get_VersionChrome: WideString;
    procedure Set_VersionChrome(const Value: WideString);
    function Get_VersionOpera: WideString;
    procedure Set_VersionOpera(const Value: WideString);
    function Get_ViewMode: VIEW_MODE;
    procedure Set_ViewMode(Value: VIEW_MODE);
    function Get_SinglePageModeThreshold: Integer;
    procedure Set_SinglePageModeThreshold(Value: Integer);
    function Get_DocTemplate: OleVariant;
    procedure Set_DocTemplate(Value: OleVariant);
    function Get_EmbedResources: WordBool;
    procedure Set_EmbedResources(Value: WordBool);
    function Get_SubsetFonts: WordBool;
    procedure Set_SubsetFonts(Value: WordBool);
  public
    property DefaultInterface: IHTML5Options read GetDefaultInterface;
  published
    property Compression: WordBool read Get_Compression write Set_Compression;
    property Compatibility: BROWSER_TYPE read Get_Compatibility write Set_Compatibility;
    property VersionIE: WideString read Get_VersionIE write Set_VersionIE;
    property VersionFireFox: WideString read Get_VersionFireFox write Set_VersionFireFox;
    property VersionSafari: WideString read Get_VersionSafari write Set_VersionSafari;
    property VersionChrome: WideString read Get_VersionChrome write Set_VersionChrome;
    property VersionOpera: WideString read Get_VersionOpera write Set_VersionOpera;
    property ViewMode: VIEW_MODE read Get_ViewMode write Set_ViewMode;
    property SinglePageModeThreshold: Integer read Get_SinglePageModeThreshold write Set_SinglePageModeThreshold;
    property EmbedResources: WordBool read Get_EmbedResources write Set_EmbedResources;
    property SubsetFonts: WordBool read Get_SubsetFonts write Set_SubsetFonts;
  end;
{$ENDIF}


procedure Register;

resourcestring
  dtlServerPage = 'ActiveX';

  dtlOcxPage = 'ActiveX';

implementation

uses ComObj;

class function CoServer.Create: IServer;
begin
  Result := CreateComObject(CLASS_Server) as IServer;
end;

class function CoServer.CreateRemote(const MachineName: string): IServer;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Server) as IServer;
end;

procedure TServer.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{62B34AF6-7949-43C1-9825-31CEB3AAE85B}';
    IntfIID:   '{B6FF280B-7540-45B4-B527-44945D9D2234}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TServer.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IServer;
  end;
end;

procedure TServer.ConnectTo(svrIntf: IServer);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TServer.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TServer.GetDefaultInterface: IServer;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TServer.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TServerProperties.Create(Self);
{$ENDIF}
end;

destructor TServer.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TServer.GetServerProperties: TServerProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TServer.Get_Version: WideString;
begin
    Result := DefaultInterface.Version;
end;

function TServer.Get_DefaultProfile: IProfile;
begin
    Result := DefaultInterface.DefaultProfile;
end;

function TServer.Get_DefaultBatchProcessingOptions: IBatchProcessingOptions;
begin
    Result := DefaultInterface.DefaultBatchProcessingOptions;
end;

function TServer.Get_DefaultPrintingPreferences: IPrintingPreferences;
begin
    Result := DefaultInterface.DefaultPrintingPreferences;
end;

function TServer.Get_FilesConverted: Integer;
begin
    Result := DefaultInterface.FilesConverted;
end;

function TServer.Get_DirsScanned: Integer;
begin
    Result := DefaultInterface.DirsScanned;
end;

function TServer.Get_ErrorCount: Integer;
begin
    Result := DefaultInterface.ErrorCount;
end;

function TServer.Get_Skins: ISkinCollection;
begin
    Result := DefaultInterface.Skins;
end;

function TServer.Get_ConvertedPages: Integer;
begin
    Result := DefaultInterface.ConvertedPages;
end;

function TServer.Get_TotalPages: Integer;
begin
    Result := DefaultInterface.TotalPages;
end;

function TServer.Get_FlashFileCount: Integer;
begin
    Result := DefaultInterface.FlashFileCount;
end;

function TServer.Get_ThumbnailFileCount: Integer;
begin
    Result := DefaultInterface.ThumbnailFileCount;
end;

function TServer.Get_MetadataFileCount: Integer;
begin
    Result := DefaultInterface.MetadataFileCount;
end;

function TServer.Get_SkippedPages: Integer;
begin
    Result := DefaultInterface.SkippedPages;
end;

function TServer.Get_SVGFileCount: Integer;
begin
    Result := DefaultInterface.SVGFileCount;
end;

procedure TServer.ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString);
begin
  DefaultInterface.ConvertFile(SourceFileName, OutputFileName, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TServer.ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                              Profile: OleVariant);
begin
  DefaultInterface.ConvertFile(SourceFileName, OutputFileName, Profile, EmptyParam, EmptyParam);
end;

procedure TServer.ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                              Profile: OleVariant; BatchProcessingOptions: OleVariant);
begin
  DefaultInterface.ConvertFile(SourceFileName, OutputFileName, Profile, BatchProcessingOptions, 
                               EmptyParam);
end;

procedure TServer.ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                              Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                              PrintingPreferences: OleVariant);
begin
  DefaultInterface.ConvertFile(SourceFileName, OutputFileName, Profile, BatchProcessingOptions, 
                               PrintingPreferences);
end;

procedure TServer.ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                             const OutputDirName: WideString);
begin
  DefaultInterface.ConvertDir(SourceDirName, SourceFileMask, OutputDirName, EmptyParam, EmptyParam, 
                              EmptyParam, EmptyParam);
end;

procedure TServer.ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                             const OutputDirName: WideString; bIncludeSubDirs: OleVariant);
begin
  DefaultInterface.ConvertDir(SourceDirName, SourceFileMask, OutputDirName, bIncludeSubDirs, 
                              EmptyParam, EmptyParam, EmptyParam);
end;

procedure TServer.ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                             const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                             Profile: OleVariant);
begin
  DefaultInterface.ConvertDir(SourceDirName, SourceFileMask, OutputDirName, bIncludeSubDirs, 
                              Profile, EmptyParam, EmptyParam);
end;

procedure TServer.ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                             const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                             Profile: OleVariant; BatchProcessingOptions: OleVariant);
begin
  DefaultInterface.ConvertDir(SourceDirName, SourceFileMask, OutputDirName, bIncludeSubDirs, 
                              Profile, BatchProcessingOptions, EmptyParam);
end;

procedure TServer.ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                             const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                             Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                             PrintingPreferences: OleVariant);
begin
  DefaultInterface.ConvertDir(SourceDirName, SourceFileMask, OutputDirName, bIncludeSubDirs, 
                              Profile, BatchProcessingOptions, PrintingPreferences);
end;

procedure TServer.StartJob(const OutputFileName: WideString);
begin
  DefaultInterface.StartJob(OutputFileName, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TServer.StartJob(const OutputFileName: WideString; Profile: OleVariant);
begin
  DefaultInterface.StartJob(OutputFileName, Profile, EmptyParam, EmptyParam);
end;

procedure TServer.StartJob(const OutputFileName: WideString; Profile: OleVariant; 
                           BatchProcessingOptions: OleVariant);
begin
  DefaultInterface.StartJob(OutputFileName, Profile, BatchProcessingOptions, EmptyParam);
end;

procedure TServer.StartJob(const OutputFileName: WideString; Profile: OleVariant; 
                           BatchProcessingOptions: OleVariant; PrintingPreferences: OleVariant);
begin
  DefaultInterface.StartJob(OutputFileName, Profile, BatchProcessingOptions, PrintingPreferences);
end;

procedure TServer.EndJob;
begin
  DefaultInterface.EndJob;
end;

procedure TServer.CancelJob;
begin
  DefaultInterface.CancelJob;
end;

procedure TServer.SetP2FPrinterAsDefault;
begin
  DefaultInterface.SetP2FPrinterAsDefault;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TServerProperties.Create(AServer: TServer);
begin
  inherited Create;
  FServer := AServer;
end;

function TServerProperties.GetDefaultInterface: IServer;
begin
  Result := FServer.DefaultInterface;
end;

function TServerProperties.Get_Version: WideString;
begin
    Result := DefaultInterface.Version;
end;

function TServerProperties.Get_DefaultProfile: IProfile;
begin
    Result := DefaultInterface.DefaultProfile;
end;

function TServerProperties.Get_DefaultBatchProcessingOptions: IBatchProcessingOptions;
begin
    Result := DefaultInterface.DefaultBatchProcessingOptions;
end;

function TServerProperties.Get_DefaultPrintingPreferences: IPrintingPreferences;
begin
    Result := DefaultInterface.DefaultPrintingPreferences;
end;

function TServerProperties.Get_FilesConverted: Integer;
begin
    Result := DefaultInterface.FilesConverted;
end;

function TServerProperties.Get_DirsScanned: Integer;
begin
    Result := DefaultInterface.DirsScanned;
end;

function TServerProperties.Get_ErrorCount: Integer;
begin
    Result := DefaultInterface.ErrorCount;
end;

function TServerProperties.Get_Skins: ISkinCollection;
begin
    Result := DefaultInterface.Skins;
end;

function TServerProperties.Get_ConvertedPages: Integer;
begin
    Result := DefaultInterface.ConvertedPages;
end;

function TServerProperties.Get_TotalPages: Integer;
begin
    Result := DefaultInterface.TotalPages;
end;

function TServerProperties.Get_FlashFileCount: Integer;
begin
    Result := DefaultInterface.FlashFileCount;
end;

function TServerProperties.Get_ThumbnailFileCount: Integer;
begin
    Result := DefaultInterface.ThumbnailFileCount;
end;

function TServerProperties.Get_MetadataFileCount: Integer;
begin
    Result := DefaultInterface.MetadataFileCount;
end;

function TServerProperties.Get_SkippedPages: Integer;
begin
    Result := DefaultInterface.SkippedPages;
end;

function TServerProperties.Get_SVGFileCount: Integer;
begin
    Result := DefaultInterface.SVGFileCount;
end;

{$ENDIF}

class function CoProfile.Create: IProfile;
begin
  Result := CreateComObject(CLASS_Profile) as IProfile;
end;

class function CoProfile.CreateRemote(const MachineName: string): IProfile;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Profile) as IProfile;
end;

procedure TProfile.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{3C89303E-AED4-4CF2-BEA3-D24A55EB461B}';
    IntfIID:   '{85586141-D013-44D6-B771-090A201463C6}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TProfile.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IProfile;
  end;
end;

procedure TProfile.ConnectTo(svrIntf: IProfile);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TProfile.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TProfile.GetDefaultInterface: IProfile;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TProfile.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TProfileProperties.Create(Self);
{$ENDIF}
end;

destructor TProfile.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TProfile.GetServerProperties: TProfileProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TProfile.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

procedure TProfile.Set_Name(const Value: WideString);
  { Warning: The property Name has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Name := Value;
end;

function TProfile.Get_InterfaceOptions: Integer;
begin
    Result := DefaultInterface.InterfaceOptions;
end;

procedure TProfile.Set_InterfaceOptions(Value: Integer);
begin
  DefaultInterface.Set_InterfaceOptions(Value);
end;

function TProfile.Get_ProtectionOptions: Integer;
begin
    Result := DefaultInterface.ProtectionOptions;
end;

procedure TProfile.Set_ProtectionOptions(Value: Integer);
begin
  DefaultInterface.Set_ProtectionOptions(Value);
end;

function TProfile.Get_FlashVersion: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FlashVersion;
end;

procedure TProfile.Set_FlashVersion(Value: OleVariant);
begin
  DefaultInterface.Set_FlashVersion(Value);
end;

function TProfile.Get_UseJpeg: WordBool;
begin
    Result := DefaultInterface.UseJpeg;
end;

procedure TProfile.Set_UseJpeg(Value: WordBool);
begin
  DefaultInterface.Set_UseJpeg(Value);
end;

function TProfile.Get_JpegQuality: Integer;
begin
    Result := DefaultInterface.JpegQuality;
end;

procedure TProfile.Set_JpegQuality(Value: Integer);
begin
  DefaultInterface.Set_JpegQuality(Value);
end;

function TProfile.Get_Language: WideString;
begin
    Result := DefaultInterface.Language;
end;

procedure TProfile.Set_Language(const Value: WideString);
  { Warning: The property Language has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Language := Value;
end;

function TProfile.Get_ColorAdjustment: WideString;
begin
    Result := DefaultInterface.ColorAdjustment;
end;

procedure TProfile.Set_ColorAdjustment(const Value: WideString);
  { Warning: The property ColorAdjustment has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ColorAdjustment := Value;
end;

function TProfile.Get_ThumbnailPageRange: WideString;
begin
    Result := DefaultInterface.ThumbnailPageRange;
end;

procedure TProfile.Set_ThumbnailPageRange(const Value: WideString);
  { Warning: The property ThumbnailPageRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ThumbnailPageRange := Value;
end;

function TProfile.Get_ThumbnailImageWidth: Integer;
begin
    Result := DefaultInterface.ThumbnailImageWidth;
end;

procedure TProfile.Set_ThumbnailImageWidth(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailImageWidth(Value);
end;

function TProfile.Get_ThumbnailImageHeight: Integer;
begin
    Result := DefaultInterface.ThumbnailImageHeight;
end;

procedure TProfile.Set_ThumbnailImageHeight(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailImageHeight(Value);
end;

function TProfile.Get_ThumbnailFormat: IMAGE_FORMAT;
begin
    Result := DefaultInterface.ThumbnailFormat;
end;

procedure TProfile.Set_ThumbnailFormat(Value: IMAGE_FORMAT);
begin
  DefaultInterface.Set_ThumbnailFormat(Value);
end;

function TProfile.Get_ThumbnailJpegQuality: Integer;
begin
    Result := DefaultInterface.ThumbnailJpegQuality;
end;

procedure TProfile.Set_ThumbnailJpegQuality(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailJpegQuality(Value);
end;

function TProfile.Get_ThumbnailFileName: WideString;
begin
    Result := DefaultInterface.ThumbnailFileName;
end;

procedure TProfile.Set_ThumbnailFileName(const Value: WideString);
  { Warning: The property ThumbnailFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ThumbnailFileName := Value;
end;

function TProfile.Get_WatermarkImage: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.WatermarkImage;
end;

procedure TProfile.Set_WatermarkImage(Value: OleVariant);
begin
  DefaultInterface.Set_WatermarkImage(Value);
end;

function TProfile.Get_WatermarkScale: Integer;
begin
    Result := DefaultInterface.WatermarkScale;
end;

procedure TProfile.Set_WatermarkScale(Value: Integer);
begin
  DefaultInterface.Set_WatermarkScale(Value);
end;

function TProfile.Get_WatermarkTransparency: Integer;
begin
    Result := DefaultInterface.WatermarkTransparency;
end;

procedure TProfile.Set_WatermarkTransparency(Value: Integer);
begin
  DefaultInterface.Set_WatermarkTransparency(Value);
end;

function TProfile.Get_Skin: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.Skin;
end;

procedure TProfile.Set_Skin(Value: OleVariant);
begin
  DefaultInterface.Set_Skin(Value);
end;

function TProfile.Get_DocTemplate: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.DocTemplate;
end;

procedure TProfile.Set_DocTemplate(Value: OleVariant);
begin
  DefaultInterface.Set_DocTemplate(Value);
end;

function TProfile.Get_DocTemplateASVersion: Integer;
begin
    Result := DefaultInterface.DocTemplateASVersion;
end;

function TProfile.Get_DocTemplateMaxTagID: Integer;
begin
    Result := DefaultInterface.DocTemplateMaxTagID;
end;

function TProfile.Get_DocTemplateFlashVersion: Integer;
begin
    Result := DefaultInterface.DocTemplateFlashVersion;
end;

function TProfile.Get_DocTemplateFrameCount: Integer;
begin
    Result := DefaultInterface.DocTemplateFrameCount;
end;

function TProfile.Get_CreateMetadataFile: WordBool;
begin
    Result := DefaultInterface.CreateMetadataFile;
end;

procedure TProfile.Set_CreateMetadataFile(Value: WordBool);
begin
  DefaultInterface.Set_CreateMetadataFile(Value);
end;

function TProfile.Get_MetadataFileName: WideString;
begin
    Result := DefaultInterface.MetadataFileName;
end;

procedure TProfile.Set_MetadataFileName(const Value: WideString);
  { Warning: The property MetadataFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.MetadataFileName := Value;
end;

function TProfile.Get_MetaDataFileFormat: METADATAFORMAT;
begin
    Result := DefaultInterface.MetaDataFileFormat;
end;

procedure TProfile.Set_MetaDataFileFormat(Value: METADATAFORMAT);
begin
  DefaultInterface.Set_MetaDataFileFormat(Value);
end;

function TProfile.Get_OutputFormat: OUTPUT_FORMAT;
begin
    Result := DefaultInterface.OutputFormat;
end;

procedure TProfile.Set_OutputFormat(Value: OUTPUT_FORMAT);
begin
  DefaultInterface.Set_OutputFormat(Value);
end;

function TProfile.Get_OutputResolution: Integer;
begin
    Result := DefaultInterface.OutputResolution;
end;

procedure TProfile.Set_OutputResolution(Value: Integer);
begin
  DefaultInterface.Set_OutputResolution(Value);
end;

function TProfile.Get_PageFileName: WideString;
begin
    Result := DefaultInterface.PageFileName;
end;

procedure TProfile.Set_PageFileName(const Value: WideString);
  { Warning: The property PageFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.PageFileName := Value;
end;

function TProfile.Get_RestrictionDomains: WideString;
begin
    Result := DefaultInterface.RestrictionDomains;
end;

procedure TProfile.Set_RestrictionDomains(const Value: WideString);
  { Warning: The property RestrictionDomains has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RestrictionDomains := Value;
end;

function TProfile.Get_ParseLinks: WordBool;
begin
    Result := DefaultInterface.ParseLinks;
end;

procedure TProfile.Set_ParseLinks(Value: WordBool);
begin
  DefaultInterface.Set_ParseLinks(Value);
end;

function TProfile.Get_LinkTarget: WideString;
begin
    Result := DefaultInterface.LinkTarget;
end;

procedure TProfile.Set_LinkTarget(const Value: WideString);
  { Warning: The property LinkTarget has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LinkTarget := Value;
end;

function TProfile.Get_LinkTargetAuto: WordBool;
begin
    Result := DefaultInterface.LinkTargetAuto;
end;

procedure TProfile.Set_LinkTargetAuto(Value: WordBool);
begin
  DefaultInterface.Set_LinkTargetAuto(Value);
end;

function TProfile.Get_ExtractLinks: Integer;
begin
    Result := DefaultInterface.ExtractLinks;
end;

procedure TProfile.Set_ExtractLinks(Value: Integer);
begin
  DefaultInterface.Set_ExtractLinks(Value);
end;

function TProfile.Get_TEMPLATETYPE: TEMPLATETYPE;
begin
    Result := DefaultInterface.TEMPLATETYPE;
end;

procedure TProfile.Set_TEMPLATETYPE(Value: TEMPLATETYPE);
begin
  DefaultInterface.Set_TEMPLATETYPE(Value);
end;

function TProfile.Get_ASVersion: Integer;
begin
    Result := DefaultInterface.ASVersion;
end;

procedure TProfile.Set_ASVersion(Value: Integer);
begin
  DefaultInterface.Set_ASVersion(Value);
end;

function TProfile.Get_WATERMARKANCHOR: Integer;
begin
    Result := DefaultInterface.WATERMARKANCHOR;
end;

procedure TProfile.Set_WATERMARKANCHOR(Value: Integer);
begin
  DefaultInterface.Set_WATERMARKANCHOR(Value);
end;

function TProfile.Get_WatermarkXOffset: WideString;
begin
    Result := DefaultInterface.WatermarkXOffset;
end;

procedure TProfile.Set_WatermarkXOffset(const Value: WideString);
  { Warning: The property WatermarkXOffset has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.WatermarkXOffset := Value;
end;

function TProfile.Get_WatermarkYOffset: WideString;
begin
    Result := DefaultInterface.WatermarkYOffset;
end;

procedure TProfile.Set_WatermarkYOffset(const Value: WideString);
  { Warning: The property WatermarkYOffset has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.WatermarkYOffset := Value;
end;

function TProfile.Get_CompressionMethod: COMPRESSION_METHOD;
begin
    Result := DefaultInterface.CompressionMethod;
end;

procedure TProfile.Set_CompressionMethod(Value: COMPRESSION_METHOD);
begin
  DefaultInterface.Set_CompressionMethod(Value);
end;

function TProfile.Get_DocTemplateHeaderSize: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateHeaderSize;
end;

function TProfile.Get_DocTemplateWidth: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateWidth;
end;

function TProfile.Get_DocTemplateHeight: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateHeight;
end;

function TProfile.Get_HTML5Options: IHTML5Options;
begin
    Result := DefaultInterface.HTML5Options;
end;

function TProfile.Get_DocumentType: DOCUMENT_TYPE;
begin
    Result := DefaultInterface.DocumentType;
end;

procedure TProfile.Set_DocumentType(Value: DOCUMENT_TYPE);
begin
  DefaultInterface.Set_DocumentType(Value);
end;

function TProfile.Get_FrameWidth: Integer;
begin
    Result := DefaultInterface.FrameWidth;
end;

procedure TProfile.Set_FrameWidth(Value: Integer);
begin
  DefaultInterface.Set_FrameWidth(Value);
end;

function TProfile.Get_FrameHeight: Integer;
begin
    Result := DefaultInterface.FrameHeight;
end;

procedure TProfile.Set_FrameHeight(Value: Integer);
begin
  DefaultInterface.Set_FrameHeight(Value);
end;

procedure TProfile.ApplyChanges;
begin
  DefaultInterface.ApplyChanges;
end;

procedure TProfile.SaveToFile(const FileName: WideString);
begin
  DefaultInterface.SaveToFile(FileName);
end;

procedure TProfile.LoadFromFile(const FileName: WideString);
begin
  DefaultInterface.LoadFromFile(FileName);
end;

function TProfile.SaveToStr: WideString;
begin
  Result := DefaultInterface.SaveToStr;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TProfileProperties.Create(AServer: TProfile);
begin
  inherited Create;
  FServer := AServer;
end;

function TProfileProperties.GetDefaultInterface: IProfile;
begin
  Result := FServer.DefaultInterface;
end;

function TProfileProperties.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

procedure TProfileProperties.Set_Name(const Value: WideString);
  { Warning: The property Name has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Name := Value;
end;

function TProfileProperties.Get_InterfaceOptions: Integer;
begin
    Result := DefaultInterface.InterfaceOptions;
end;

procedure TProfileProperties.Set_InterfaceOptions(Value: Integer);
begin
  DefaultInterface.Set_InterfaceOptions(Value);
end;

function TProfileProperties.Get_ProtectionOptions: Integer;
begin
    Result := DefaultInterface.ProtectionOptions;
end;

procedure TProfileProperties.Set_ProtectionOptions(Value: Integer);
begin
  DefaultInterface.Set_ProtectionOptions(Value);
end;

function TProfileProperties.Get_FlashVersion: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FlashVersion;
end;

procedure TProfileProperties.Set_FlashVersion(Value: OleVariant);
begin
  DefaultInterface.Set_FlashVersion(Value);
end;

function TProfileProperties.Get_UseJpeg: WordBool;
begin
    Result := DefaultInterface.UseJpeg;
end;

procedure TProfileProperties.Set_UseJpeg(Value: WordBool);
begin
  DefaultInterface.Set_UseJpeg(Value);
end;

function TProfileProperties.Get_JpegQuality: Integer;
begin
    Result := DefaultInterface.JpegQuality;
end;

procedure TProfileProperties.Set_JpegQuality(Value: Integer);
begin
  DefaultInterface.Set_JpegQuality(Value);
end;

function TProfileProperties.Get_Language: WideString;
begin
    Result := DefaultInterface.Language;
end;

procedure TProfileProperties.Set_Language(const Value: WideString);
  { Warning: The property Language has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Language := Value;
end;

function TProfileProperties.Get_ColorAdjustment: WideString;
begin
    Result := DefaultInterface.ColorAdjustment;
end;

procedure TProfileProperties.Set_ColorAdjustment(const Value: WideString);
  { Warning: The property ColorAdjustment has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ColorAdjustment := Value;
end;

function TProfileProperties.Get_ThumbnailPageRange: WideString;
begin
    Result := DefaultInterface.ThumbnailPageRange;
end;

procedure TProfileProperties.Set_ThumbnailPageRange(const Value: WideString);
  { Warning: The property ThumbnailPageRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ThumbnailPageRange := Value;
end;

function TProfileProperties.Get_ThumbnailImageWidth: Integer;
begin
    Result := DefaultInterface.ThumbnailImageWidth;
end;

procedure TProfileProperties.Set_ThumbnailImageWidth(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailImageWidth(Value);
end;

function TProfileProperties.Get_ThumbnailImageHeight: Integer;
begin
    Result := DefaultInterface.ThumbnailImageHeight;
end;

procedure TProfileProperties.Set_ThumbnailImageHeight(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailImageHeight(Value);
end;

function TProfileProperties.Get_ThumbnailFormat: IMAGE_FORMAT;
begin
    Result := DefaultInterface.ThumbnailFormat;
end;

procedure TProfileProperties.Set_ThumbnailFormat(Value: IMAGE_FORMAT);
begin
  DefaultInterface.Set_ThumbnailFormat(Value);
end;

function TProfileProperties.Get_ThumbnailJpegQuality: Integer;
begin
    Result := DefaultInterface.ThumbnailJpegQuality;
end;

procedure TProfileProperties.Set_ThumbnailJpegQuality(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailJpegQuality(Value);
end;

function TProfileProperties.Get_ThumbnailFileName: WideString;
begin
    Result := DefaultInterface.ThumbnailFileName;
end;

procedure TProfileProperties.Set_ThumbnailFileName(const Value: WideString);
  { Warning: The property ThumbnailFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ThumbnailFileName := Value;
end;

function TProfileProperties.Get_WatermarkImage: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.WatermarkImage;
end;

procedure TProfileProperties.Set_WatermarkImage(Value: OleVariant);
begin
  DefaultInterface.Set_WatermarkImage(Value);
end;

function TProfileProperties.Get_WatermarkScale: Integer;
begin
    Result := DefaultInterface.WatermarkScale;
end;

procedure TProfileProperties.Set_WatermarkScale(Value: Integer);
begin
  DefaultInterface.Set_WatermarkScale(Value);
end;

function TProfileProperties.Get_WatermarkTransparency: Integer;
begin
    Result := DefaultInterface.WatermarkTransparency;
end;

procedure TProfileProperties.Set_WatermarkTransparency(Value: Integer);
begin
  DefaultInterface.Set_WatermarkTransparency(Value);
end;

function TProfileProperties.Get_Skin: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.Skin;
end;

procedure TProfileProperties.Set_Skin(Value: OleVariant);
begin
  DefaultInterface.Set_Skin(Value);
end;

function TProfileProperties.Get_DocTemplate: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.DocTemplate;
end;

procedure TProfileProperties.Set_DocTemplate(Value: OleVariant);
begin
  DefaultInterface.Set_DocTemplate(Value);
end;

function TProfileProperties.Get_DocTemplateASVersion: Integer;
begin
    Result := DefaultInterface.DocTemplateASVersion;
end;

function TProfileProperties.Get_DocTemplateMaxTagID: Integer;
begin
    Result := DefaultInterface.DocTemplateMaxTagID;
end;

function TProfileProperties.Get_DocTemplateFlashVersion: Integer;
begin
    Result := DefaultInterface.DocTemplateFlashVersion;
end;

function TProfileProperties.Get_DocTemplateFrameCount: Integer;
begin
    Result := DefaultInterface.DocTemplateFrameCount;
end;

function TProfileProperties.Get_CreateMetadataFile: WordBool;
begin
    Result := DefaultInterface.CreateMetadataFile;
end;

procedure TProfileProperties.Set_CreateMetadataFile(Value: WordBool);
begin
  DefaultInterface.Set_CreateMetadataFile(Value);
end;

function TProfileProperties.Get_MetadataFileName: WideString;
begin
    Result := DefaultInterface.MetadataFileName;
end;

procedure TProfileProperties.Set_MetadataFileName(const Value: WideString);
  { Warning: The property MetadataFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.MetadataFileName := Value;
end;

function TProfileProperties.Get_MetaDataFileFormat: METADATAFORMAT;
begin
    Result := DefaultInterface.MetaDataFileFormat;
end;

procedure TProfileProperties.Set_MetaDataFileFormat(Value: METADATAFORMAT);
begin
  DefaultInterface.Set_MetaDataFileFormat(Value);
end;

function TProfileProperties.Get_OutputFormat: OUTPUT_FORMAT;
begin
    Result := DefaultInterface.OutputFormat;
end;

procedure TProfileProperties.Set_OutputFormat(Value: OUTPUT_FORMAT);
begin
  DefaultInterface.Set_OutputFormat(Value);
end;

function TProfileProperties.Get_OutputResolution: Integer;
begin
    Result := DefaultInterface.OutputResolution;
end;

procedure TProfileProperties.Set_OutputResolution(Value: Integer);
begin
  DefaultInterface.Set_OutputResolution(Value);
end;

function TProfileProperties.Get_PageFileName: WideString;
begin
    Result := DefaultInterface.PageFileName;
end;

procedure TProfileProperties.Set_PageFileName(const Value: WideString);
  { Warning: The property PageFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.PageFileName := Value;
end;

function TProfileProperties.Get_RestrictionDomains: WideString;
begin
    Result := DefaultInterface.RestrictionDomains;
end;

procedure TProfileProperties.Set_RestrictionDomains(const Value: WideString);
  { Warning: The property RestrictionDomains has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RestrictionDomains := Value;
end;

function TProfileProperties.Get_ParseLinks: WordBool;
begin
    Result := DefaultInterface.ParseLinks;
end;

procedure TProfileProperties.Set_ParseLinks(Value: WordBool);
begin
  DefaultInterface.Set_ParseLinks(Value);
end;

function TProfileProperties.Get_LinkTarget: WideString;
begin
    Result := DefaultInterface.LinkTarget;
end;

procedure TProfileProperties.Set_LinkTarget(const Value: WideString);
  { Warning: The property LinkTarget has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LinkTarget := Value;
end;

function TProfileProperties.Get_LinkTargetAuto: WordBool;
begin
    Result := DefaultInterface.LinkTargetAuto;
end;

procedure TProfileProperties.Set_LinkTargetAuto(Value: WordBool);
begin
  DefaultInterface.Set_LinkTargetAuto(Value);
end;

function TProfileProperties.Get_ExtractLinks: Integer;
begin
    Result := DefaultInterface.ExtractLinks;
end;

procedure TProfileProperties.Set_ExtractLinks(Value: Integer);
begin
  DefaultInterface.Set_ExtractLinks(Value);
end;

function TProfileProperties.Get_TEMPLATETYPE: TEMPLATETYPE;
begin
    Result := DefaultInterface.TEMPLATETYPE;
end;

procedure TProfileProperties.Set_TEMPLATETYPE(Value: TEMPLATETYPE);
begin
  DefaultInterface.Set_TEMPLATETYPE(Value);
end;

function TProfileProperties.Get_ASVersion: Integer;
begin
    Result := DefaultInterface.ASVersion;
end;

procedure TProfileProperties.Set_ASVersion(Value: Integer);
begin
  DefaultInterface.Set_ASVersion(Value);
end;

function TProfileProperties.Get_WATERMARKANCHOR: Integer;
begin
    Result := DefaultInterface.WATERMARKANCHOR;
end;

procedure TProfileProperties.Set_WATERMARKANCHOR(Value: Integer);
begin
  DefaultInterface.Set_WATERMARKANCHOR(Value);
end;

function TProfileProperties.Get_WatermarkXOffset: WideString;
begin
    Result := DefaultInterface.WatermarkXOffset;
end;

procedure TProfileProperties.Set_WatermarkXOffset(const Value: WideString);
  { Warning: The property WatermarkXOffset has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.WatermarkXOffset := Value;
end;

function TProfileProperties.Get_WatermarkYOffset: WideString;
begin
    Result := DefaultInterface.WatermarkYOffset;
end;

procedure TProfileProperties.Set_WatermarkYOffset(const Value: WideString);
  { Warning: The property WatermarkYOffset has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.WatermarkYOffset := Value;
end;

function TProfileProperties.Get_CompressionMethod: COMPRESSION_METHOD;
begin
    Result := DefaultInterface.CompressionMethod;
end;

procedure TProfileProperties.Set_CompressionMethod(Value: COMPRESSION_METHOD);
begin
  DefaultInterface.Set_CompressionMethod(Value);
end;

function TProfileProperties.Get_DocTemplateHeaderSize: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateHeaderSize;
end;

function TProfileProperties.Get_DocTemplateWidth: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateWidth;
end;

function TProfileProperties.Get_DocTemplateHeight: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateHeight;
end;

function TProfileProperties.Get_HTML5Options: IHTML5Options;
begin
    Result := DefaultInterface.HTML5Options;
end;

function TProfileProperties.Get_DocumentType: DOCUMENT_TYPE;
begin
    Result := DefaultInterface.DocumentType;
end;

procedure TProfileProperties.Set_DocumentType(Value: DOCUMENT_TYPE);
begin
  DefaultInterface.Set_DocumentType(Value);
end;

function TProfileProperties.Get_FrameWidth: Integer;
begin
    Result := DefaultInterface.FrameWidth;
end;

procedure TProfileProperties.Set_FrameWidth(Value: Integer);
begin
  DefaultInterface.Set_FrameWidth(Value);
end;

function TProfileProperties.Get_FrameHeight: Integer;
begin
    Result := DefaultInterface.FrameHeight;
end;

procedure TProfileProperties.Set_FrameHeight(Value: Integer);
begin
  DefaultInterface.Set_FrameHeight(Value);
end;

{$ENDIF}

class function CoBatchProcessingOptions.Create: IBatchProcessingOptions;
begin
  Result := CreateComObject(CLASS_BatchProcessingOptions) as IBatchProcessingOptions;
end;

class function CoBatchProcessingOptions.CreateRemote(const MachineName: string): IBatchProcessingOptions;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_BatchProcessingOptions) as IBatchProcessingOptions;
end;

procedure TBatchProcessingOptions.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{6A14D94E-35AA-4D66-BBEF-A26BEE498B9B}';
    IntfIID:   '{B5D31A0C-B37A-45B0-B855-52E9A8319839}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TBatchProcessingOptions.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IBatchProcessingOptions;
  end;
end;

procedure TBatchProcessingOptions.ConnectTo(svrIntf: IBatchProcessingOptions);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TBatchProcessingOptions.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TBatchProcessingOptions.GetDefaultInterface: IBatchProcessingOptions;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TBatchProcessingOptions.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TBatchProcessingOptionsProperties.Create(Self);
{$ENDIF}
end;

destructor TBatchProcessingOptions.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TBatchProcessingOptions.GetServerProperties: TBatchProcessingOptionsProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TBatchProcessingOptions.Get_BeforePrintingTimeout: Integer;
begin
    Result := DefaultInterface.BeforePrintingTimeout;
end;

procedure TBatchProcessingOptions.Set_BeforePrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_BeforePrintingTimeout(Value);
end;

function TBatchProcessingOptions.Get_PrintingTimeout: Integer;
begin
    Result := DefaultInterface.PrintingTimeout;
end;

procedure TBatchProcessingOptions.Set_PrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_PrintingTimeout(Value);
end;

function TBatchProcessingOptions.Get_AfterPrintingTimeout: Integer;
begin
    Result := DefaultInterface.AfterPrintingTimeout;
end;

procedure TBatchProcessingOptions.Set_AfterPrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_AfterPrintingTimeout(Value);
end;

function TBatchProcessingOptions.Get_PressPrintButton: ThreeStateFlag;
begin
    Result := DefaultInterface.PressPrintButton;
end;

procedure TBatchProcessingOptions.Set_PressPrintButton(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_PressPrintButton(Value);
end;

function TBatchProcessingOptions.Get_KillProcessIfTimeout: ThreeStateFlag;
begin
    Result := DefaultInterface.KillProcessIfTimeout;
end;

procedure TBatchProcessingOptions.Set_KillProcessIfTimeout(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_KillProcessIfTimeout(Value);
end;

function TBatchProcessingOptions.Get_CreateLogFile: WordBool;
begin
    Result := DefaultInterface.CreateLogFile;
end;

procedure TBatchProcessingOptions.Set_CreateLogFile(Value: WordBool);
begin
  DefaultInterface.Set_CreateLogFile(Value);
end;

function TBatchProcessingOptions.Get_LogFileName: WideString;
begin
    Result := DefaultInterface.LogFileName;
end;

procedure TBatchProcessingOptions.Set_LogFileName(const Value: WideString);
  { Warning: The property LogFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LogFileName := Value;
end;

function TBatchProcessingOptions.Get_LoggingLevel: Integer;
begin
    Result := DefaultInterface.LoggingLevel;
end;

procedure TBatchProcessingOptions.Set_LoggingLevel(Value: Integer);
begin
  DefaultInterface.Set_LoggingLevel(Value);
end;

function TBatchProcessingOptions.Get_PageRange: WideString;
begin
    Result := DefaultInterface.PageRange;
end;

procedure TBatchProcessingOptions.Set_PageRange(const Value: WideString);
  { Warning: The property PageRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.PageRange := Value;
end;

function TBatchProcessingOptions.Get_ActivityTimeout: Integer;
begin
    Result := DefaultInterface.ActivityTimeout;
end;

procedure TBatchProcessingOptions.Set_ActivityTimeout(Value: Integer);
begin
  DefaultInterface.Set_ActivityTimeout(Value);
end;

function TBatchProcessingOptions.Get_UseAutomation: Integer;
begin
    Result := DefaultInterface.UseAutomation;
end;

procedure TBatchProcessingOptions.Set_UseAutomation(Value: Integer);
begin
  DefaultInterface.Set_UseAutomation(Value);
end;

function TBatchProcessingOptions.Get_KillAllAutomationProcesses: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KillAllAutomationProcesses;
end;

procedure TBatchProcessingOptions.Set_KillAllAutomationProcesses(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KillAllAutomationProcesses(Value);
end;

function TBatchProcessingOptions.Get_KeepAutomationAppRef: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KeepAutomationAppRef;
end;

procedure TBatchProcessingOptions.Set_KeepAutomationAppRef(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KeepAutomationAppRef(Value);
end;

function TBatchProcessingOptions.Get_ExcelOptions: IExcelOptions;
begin
    Result := DefaultInterface.ExcelOptions;
end;

function TBatchProcessingOptions.Get_PowerPointOptions: IPowerPointOptions;
begin
    Result := DefaultInterface.PowerPointOptions;
end;

function TBatchProcessingOptions.Get_ExtractLinks: Integer;
begin
    Result := DefaultInterface.ExtractLinks;
end;

procedure TBatchProcessingOptions.Set_ExtractLinks(Value: Integer);
begin
  DefaultInterface.Set_ExtractLinks(Value);
end;

function TBatchProcessingOptions.Get_KillSplWOW64: ThreeStateFlag;
begin
    Result := DefaultInterface.KillSplWOW64;
end;

procedure TBatchProcessingOptions.Set_KillSplWOW64(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_KillSplWOW64(Value);
end;

function TBatchProcessingOptions.Get_GenerateExternalViewer: WordBool;
begin
    Result := DefaultInterface.GenerateExternalViewer;
end;

procedure TBatchProcessingOptions.Set_GenerateExternalViewer(Value: WordBool);
begin
  DefaultInterface.Set_GenerateExternalViewer(Value);
end;

function TBatchProcessingOptions.Get_SpecialProcessing: WideString;
begin
    Result := DefaultInterface.SpecialProcessing;
end;

procedure TBatchProcessingOptions.Set_SpecialProcessing(const Value: WideString);
  { Warning: The property SpecialProcessing has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SpecialProcessing := Value;
end;

function TBatchProcessingOptions.Get_KeepAutoAppRefStr: WideString;
begin
    Result := DefaultInterface.KeepAutoAppRefStr;
end;

procedure TBatchProcessingOptions.Set_KeepAutoAppRefStr(const Value: WideString);
  { Warning: The property KeepAutoAppRefStr has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.KeepAutoAppRefStr := Value;
end;

function TBatchProcessingOptions.Get_CheckPDFEncryption: ThreeStateFlag;
begin
    Result := DefaultInterface.CheckPDFEncryption;
end;

procedure TBatchProcessingOptions.Set_CheckPDFEncryption(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_CheckPDFEncryption(Value);
end;

function TBatchProcessingOptions.Get_KillAutoProcessBeforeConversion: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KillAutoProcessBeforeConversion;
end;

procedure TBatchProcessingOptions.Set_KillAutoProcessBeforeConversion(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KillAutoProcessBeforeConversion(Value);
end;

function TBatchProcessingOptions.Get_AccProvider: WideString;
begin
    Result := DefaultInterface.AccProvider;
end;

procedure TBatchProcessingOptions.Set_AccProvider(const Value: WideString);
  { Warning: The property AccProvider has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.AccProvider := Value;
end;

procedure TBatchProcessingOptions.ApplyChanges;
begin
  DefaultInterface.ApplyChanges;
end;

procedure TBatchProcessingOptions.Assign_(const bpo: IBatchProcessingOptions);
begin
  DefaultInterface.Assign_(bpo);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TBatchProcessingOptionsProperties.Create(AServer: TBatchProcessingOptions);
begin
  inherited Create;
  FServer := AServer;
end;

function TBatchProcessingOptionsProperties.GetDefaultInterface: IBatchProcessingOptions;
begin
  Result := FServer.DefaultInterface;
end;

function TBatchProcessingOptionsProperties.Get_BeforePrintingTimeout: Integer;
begin
    Result := DefaultInterface.BeforePrintingTimeout;
end;

procedure TBatchProcessingOptionsProperties.Set_BeforePrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_BeforePrintingTimeout(Value);
end;

function TBatchProcessingOptionsProperties.Get_PrintingTimeout: Integer;
begin
    Result := DefaultInterface.PrintingTimeout;
end;

procedure TBatchProcessingOptionsProperties.Set_PrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_PrintingTimeout(Value);
end;

function TBatchProcessingOptionsProperties.Get_AfterPrintingTimeout: Integer;
begin
    Result := DefaultInterface.AfterPrintingTimeout;
end;

procedure TBatchProcessingOptionsProperties.Set_AfterPrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_AfterPrintingTimeout(Value);
end;

function TBatchProcessingOptionsProperties.Get_PressPrintButton: ThreeStateFlag;
begin
    Result := DefaultInterface.PressPrintButton;
end;

procedure TBatchProcessingOptionsProperties.Set_PressPrintButton(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_PressPrintButton(Value);
end;

function TBatchProcessingOptionsProperties.Get_KillProcessIfTimeout: ThreeStateFlag;
begin
    Result := DefaultInterface.KillProcessIfTimeout;
end;

procedure TBatchProcessingOptionsProperties.Set_KillProcessIfTimeout(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_KillProcessIfTimeout(Value);
end;

function TBatchProcessingOptionsProperties.Get_CreateLogFile: WordBool;
begin
    Result := DefaultInterface.CreateLogFile;
end;

procedure TBatchProcessingOptionsProperties.Set_CreateLogFile(Value: WordBool);
begin
  DefaultInterface.Set_CreateLogFile(Value);
end;

function TBatchProcessingOptionsProperties.Get_LogFileName: WideString;
begin
    Result := DefaultInterface.LogFileName;
end;

procedure TBatchProcessingOptionsProperties.Set_LogFileName(const Value: WideString);
  { Warning: The property LogFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LogFileName := Value;
end;

function TBatchProcessingOptionsProperties.Get_LoggingLevel: Integer;
begin
    Result := DefaultInterface.LoggingLevel;
end;

procedure TBatchProcessingOptionsProperties.Set_LoggingLevel(Value: Integer);
begin
  DefaultInterface.Set_LoggingLevel(Value);
end;

function TBatchProcessingOptionsProperties.Get_PageRange: WideString;
begin
    Result := DefaultInterface.PageRange;
end;

procedure TBatchProcessingOptionsProperties.Set_PageRange(const Value: WideString);
  { Warning: The property PageRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.PageRange := Value;
end;

function TBatchProcessingOptionsProperties.Get_ActivityTimeout: Integer;
begin
    Result := DefaultInterface.ActivityTimeout;
end;

procedure TBatchProcessingOptionsProperties.Set_ActivityTimeout(Value: Integer);
begin
  DefaultInterface.Set_ActivityTimeout(Value);
end;

function TBatchProcessingOptionsProperties.Get_UseAutomation: Integer;
begin
    Result := DefaultInterface.UseAutomation;
end;

procedure TBatchProcessingOptionsProperties.Set_UseAutomation(Value: Integer);
begin
  DefaultInterface.Set_UseAutomation(Value);
end;

function TBatchProcessingOptionsProperties.Get_KillAllAutomationProcesses: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KillAllAutomationProcesses;
end;

procedure TBatchProcessingOptionsProperties.Set_KillAllAutomationProcesses(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KillAllAutomationProcesses(Value);
end;

function TBatchProcessingOptionsProperties.Get_KeepAutomationAppRef: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KeepAutomationAppRef;
end;

procedure TBatchProcessingOptionsProperties.Set_KeepAutomationAppRef(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KeepAutomationAppRef(Value);
end;

function TBatchProcessingOptionsProperties.Get_ExcelOptions: IExcelOptions;
begin
    Result := DefaultInterface.ExcelOptions;
end;

function TBatchProcessingOptionsProperties.Get_PowerPointOptions: IPowerPointOptions;
begin
    Result := DefaultInterface.PowerPointOptions;
end;

function TBatchProcessingOptionsProperties.Get_ExtractLinks: Integer;
begin
    Result := DefaultInterface.ExtractLinks;
end;

procedure TBatchProcessingOptionsProperties.Set_ExtractLinks(Value: Integer);
begin
  DefaultInterface.Set_ExtractLinks(Value);
end;

function TBatchProcessingOptionsProperties.Get_KillSplWOW64: ThreeStateFlag;
begin
    Result := DefaultInterface.KillSplWOW64;
end;

procedure TBatchProcessingOptionsProperties.Set_KillSplWOW64(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_KillSplWOW64(Value);
end;

function TBatchProcessingOptionsProperties.Get_GenerateExternalViewer: WordBool;
begin
    Result := DefaultInterface.GenerateExternalViewer;
end;

procedure TBatchProcessingOptionsProperties.Set_GenerateExternalViewer(Value: WordBool);
begin
  DefaultInterface.Set_GenerateExternalViewer(Value);
end;

function TBatchProcessingOptionsProperties.Get_SpecialProcessing: WideString;
begin
    Result := DefaultInterface.SpecialProcessing;
end;

procedure TBatchProcessingOptionsProperties.Set_SpecialProcessing(const Value: WideString);
  { Warning: The property SpecialProcessing has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SpecialProcessing := Value;
end;

function TBatchProcessingOptionsProperties.Get_KeepAutoAppRefStr: WideString;
begin
    Result := DefaultInterface.KeepAutoAppRefStr;
end;

procedure TBatchProcessingOptionsProperties.Set_KeepAutoAppRefStr(const Value: WideString);
  { Warning: The property KeepAutoAppRefStr has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.KeepAutoAppRefStr := Value;
end;

function TBatchProcessingOptionsProperties.Get_CheckPDFEncryption: ThreeStateFlag;
begin
    Result := DefaultInterface.CheckPDFEncryption;
end;

procedure TBatchProcessingOptionsProperties.Set_CheckPDFEncryption(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_CheckPDFEncryption(Value);
end;

function TBatchProcessingOptionsProperties.Get_KillAutoProcessBeforeConversion: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KillAutoProcessBeforeConversion;
end;

procedure TBatchProcessingOptionsProperties.Set_KillAutoProcessBeforeConversion(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KillAutoProcessBeforeConversion(Value);
end;

function TBatchProcessingOptionsProperties.Get_AccProvider: WideString;
begin
    Result := DefaultInterface.AccProvider;
end;

procedure TBatchProcessingOptionsProperties.Set_AccProvider(const Value: WideString);
  { Warning: The property AccProvider has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.AccProvider := Value;
end;

{$ENDIF}

class function CoPrintingPreferences.Create: IPrintingPreferences;
begin
  Result := CreateComObject(CLASS_PrintingPreferences) as IPrintingPreferences;
end;

class function CoPrintingPreferences.CreateRemote(const MachineName: string): IPrintingPreferences;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_PrintingPreferences) as IPrintingPreferences;
end;

procedure TPrintingPreferences.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{C82766EF-73F6-4A38-92C1-C0E2ECCDC1CB}';
    IntfIID:   '{C6556430-49E6-4E5E-913D-5B0A2A973B95}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TPrintingPreferences.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IPrintingPreferences;
  end;
end;

procedure TPrintingPreferences.ConnectTo(svrIntf: IPrintingPreferences);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TPrintingPreferences.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TPrintingPreferences.GetDefaultInterface: IPrintingPreferences;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TPrintingPreferences.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TPrintingPreferencesProperties.Create(Self);
{$ENDIF}
end;

destructor TPrintingPreferences.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TPrintingPreferences.GetServerProperties: TPrintingPreferencesProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TPrintingPreferences.Get_FormName: WideString;
begin
    Result := DefaultInterface.FormName;
end;

function TPrintingPreferences.Get_PaperWidth: Integer;
begin
    Result := DefaultInterface.PaperWidth;
end;

function TPrintingPreferences.Get_PaperLength: Integer;
begin
    Result := DefaultInterface.PaperLength;
end;

function TPrintingPreferences.Get_Resolution: Integer;
begin
    Result := DefaultInterface.Resolution;
end;

procedure TPrintingPreferences.Set_Resolution(Value: Integer);
begin
  DefaultInterface.Set_Resolution(Value);
end;

function TPrintingPreferences.Get_Orientation: PAPER_ORIENTATION;
begin
    Result := DefaultInterface.Orientation;
end;

procedure TPrintingPreferences.Set_Orientation(Value: PAPER_ORIENTATION);
begin
  DefaultInterface.Set_Orientation(Value);
end;

function TPrintingPreferences.Get_Actual: WordBool;
begin
    Result := DefaultInterface.Actual;
end;

procedure TPrintingPreferences.SetFormName(const sFormName: WideString);
begin
  DefaultInterface.SetFormName(sFormName);
end;

procedure TPrintingPreferences.SetCustomPaperSize(Width: Integer; Length: Integer);
begin
  DefaultInterface.SetCustomPaperSize(Width, Length);
end;

procedure TPrintingPreferences.ApplyChanges;
begin
  DefaultInterface.ApplyChanges;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TPrintingPreferencesProperties.Create(AServer: TPrintingPreferences);
begin
  inherited Create;
  FServer := AServer;
end;

function TPrintingPreferencesProperties.GetDefaultInterface: IPrintingPreferences;
begin
  Result := FServer.DefaultInterface;
end;

function TPrintingPreferencesProperties.Get_FormName: WideString;
begin
    Result := DefaultInterface.FormName;
end;

function TPrintingPreferencesProperties.Get_PaperWidth: Integer;
begin
    Result := DefaultInterface.PaperWidth;
end;

function TPrintingPreferencesProperties.Get_PaperLength: Integer;
begin
    Result := DefaultInterface.PaperLength;
end;

function TPrintingPreferencesProperties.Get_Resolution: Integer;
begin
    Result := DefaultInterface.Resolution;
end;

procedure TPrintingPreferencesProperties.Set_Resolution(Value: Integer);
begin
  DefaultInterface.Set_Resolution(Value);
end;

function TPrintingPreferencesProperties.Get_Orientation: PAPER_ORIENTATION;
begin
    Result := DefaultInterface.Orientation;
end;

procedure TPrintingPreferencesProperties.Set_Orientation(Value: PAPER_ORIENTATION);
begin
  DefaultInterface.Set_Orientation(Value);
end;

function TPrintingPreferencesProperties.Get_Actual: WordBool;
begin
    Result := DefaultInterface.Actual;
end;

{$ENDIF}

class function CoServer2.Create: IServer;
begin
  Result := CreateComObject(CLASS_Server2) as IServer;
end;

class function CoServer2.CreateRemote(const MachineName: string): IServer;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Server2) as IServer;
end;

procedure TServer2.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{466FAC17-24D2-4B37-A2C4-E2CFA0D3E1EB}';
    IntfIID:   '{B6FF280B-7540-45B4-B527-44945D9D2234}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TServer2.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IServer;
  end;
end;

procedure TServer2.ConnectTo(svrIntf: IServer);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TServer2.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TServer2.GetDefaultInterface: IServer;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TServer2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TServer2Properties.Create(Self);
{$ENDIF}
end;

destructor TServer2.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TServer2.GetServerProperties: TServer2Properties;
begin
  Result := FProps;
end;
{$ENDIF}

function TServer2.Get_Version: WideString;
begin
    Result := DefaultInterface.Version;
end;

function TServer2.Get_DefaultProfile: IProfile;
begin
    Result := DefaultInterface.DefaultProfile;
end;

function TServer2.Get_DefaultBatchProcessingOptions: IBatchProcessingOptions;
begin
    Result := DefaultInterface.DefaultBatchProcessingOptions;
end;

function TServer2.Get_DefaultPrintingPreferences: IPrintingPreferences;
begin
    Result := DefaultInterface.DefaultPrintingPreferences;
end;

function TServer2.Get_FilesConverted: Integer;
begin
    Result := DefaultInterface.FilesConverted;
end;

function TServer2.Get_DirsScanned: Integer;
begin
    Result := DefaultInterface.DirsScanned;
end;

function TServer2.Get_ErrorCount: Integer;
begin
    Result := DefaultInterface.ErrorCount;
end;

function TServer2.Get_Skins: ISkinCollection;
begin
    Result := DefaultInterface.Skins;
end;

function TServer2.Get_ConvertedPages: Integer;
begin
    Result := DefaultInterface.ConvertedPages;
end;

function TServer2.Get_TotalPages: Integer;
begin
    Result := DefaultInterface.TotalPages;
end;

function TServer2.Get_FlashFileCount: Integer;
begin
    Result := DefaultInterface.FlashFileCount;
end;

function TServer2.Get_ThumbnailFileCount: Integer;
begin
    Result := DefaultInterface.ThumbnailFileCount;
end;

function TServer2.Get_MetadataFileCount: Integer;
begin
    Result := DefaultInterface.MetadataFileCount;
end;

function TServer2.Get_SkippedPages: Integer;
begin
    Result := DefaultInterface.SkippedPages;
end;

function TServer2.Get_SVGFileCount: Integer;
begin
    Result := DefaultInterface.SVGFileCount;
end;

procedure TServer2.ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString);
begin
  DefaultInterface.ConvertFile(SourceFileName, OutputFileName, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TServer2.ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                               Profile: OleVariant);
begin
  DefaultInterface.ConvertFile(SourceFileName, OutputFileName, Profile, EmptyParam, EmptyParam);
end;

procedure TServer2.ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                               Profile: OleVariant; BatchProcessingOptions: OleVariant);
begin
  DefaultInterface.ConvertFile(SourceFileName, OutputFileName, Profile, BatchProcessingOptions, 
                               EmptyParam);
end;

procedure TServer2.ConvertFile(const SourceFileName: WideString; const OutputFileName: WideString; 
                               Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                               PrintingPreferences: OleVariant);
begin
  DefaultInterface.ConvertFile(SourceFileName, OutputFileName, Profile, BatchProcessingOptions, 
                               PrintingPreferences);
end;

procedure TServer2.ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                              const OutputDirName: WideString);
begin
  DefaultInterface.ConvertDir(SourceDirName, SourceFileMask, OutputDirName, EmptyParam, EmptyParam, 
                              EmptyParam, EmptyParam);
end;

procedure TServer2.ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                              const OutputDirName: WideString; bIncludeSubDirs: OleVariant);
begin
  DefaultInterface.ConvertDir(SourceDirName, SourceFileMask, OutputDirName, bIncludeSubDirs, 
                              EmptyParam, EmptyParam, EmptyParam);
end;

procedure TServer2.ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                              const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                              Profile: OleVariant);
begin
  DefaultInterface.ConvertDir(SourceDirName, SourceFileMask, OutputDirName, bIncludeSubDirs, 
                              Profile, EmptyParam, EmptyParam);
end;

procedure TServer2.ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                              const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                              Profile: OleVariant; BatchProcessingOptions: OleVariant);
begin
  DefaultInterface.ConvertDir(SourceDirName, SourceFileMask, OutputDirName, bIncludeSubDirs, 
                              Profile, BatchProcessingOptions, EmptyParam);
end;

procedure TServer2.ConvertDir(const SourceDirName: WideString; const SourceFileMask: WideString; 
                              const OutputDirName: WideString; bIncludeSubDirs: OleVariant; 
                              Profile: OleVariant; BatchProcessingOptions: OleVariant; 
                              PrintingPreferences: OleVariant);
begin
  DefaultInterface.ConvertDir(SourceDirName, SourceFileMask, OutputDirName, bIncludeSubDirs, 
                              Profile, BatchProcessingOptions, PrintingPreferences);
end;

procedure TServer2.StartJob(const OutputFileName: WideString);
begin
  DefaultInterface.StartJob(OutputFileName, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TServer2.StartJob(const OutputFileName: WideString; Profile: OleVariant);
begin
  DefaultInterface.StartJob(OutputFileName, Profile, EmptyParam, EmptyParam);
end;

procedure TServer2.StartJob(const OutputFileName: WideString; Profile: OleVariant; 
                            BatchProcessingOptions: OleVariant);
begin
  DefaultInterface.StartJob(OutputFileName, Profile, BatchProcessingOptions, EmptyParam);
end;

procedure TServer2.StartJob(const OutputFileName: WideString; Profile: OleVariant; 
                            BatchProcessingOptions: OleVariant; PrintingPreferences: OleVariant);
begin
  DefaultInterface.StartJob(OutputFileName, Profile, BatchProcessingOptions, PrintingPreferences);
end;

procedure TServer2.EndJob;
begin
  DefaultInterface.EndJob;
end;

procedure TServer2.CancelJob;
begin
  DefaultInterface.CancelJob;
end;

procedure TServer2.SetP2FPrinterAsDefault;
begin
  DefaultInterface.SetP2FPrinterAsDefault;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TServer2Properties.Create(AServer: TServer2);
begin
  inherited Create;
  FServer := AServer;
end;

function TServer2Properties.GetDefaultInterface: IServer;
begin
  Result := FServer.DefaultInterface;
end;

function TServer2Properties.Get_Version: WideString;
begin
    Result := DefaultInterface.Version;
end;

function TServer2Properties.Get_DefaultProfile: IProfile;
begin
    Result := DefaultInterface.DefaultProfile;
end;

function TServer2Properties.Get_DefaultBatchProcessingOptions: IBatchProcessingOptions;
begin
    Result := DefaultInterface.DefaultBatchProcessingOptions;
end;

function TServer2Properties.Get_DefaultPrintingPreferences: IPrintingPreferences;
begin
    Result := DefaultInterface.DefaultPrintingPreferences;
end;

function TServer2Properties.Get_FilesConverted: Integer;
begin
    Result := DefaultInterface.FilesConverted;
end;

function TServer2Properties.Get_DirsScanned: Integer;
begin
    Result := DefaultInterface.DirsScanned;
end;

function TServer2Properties.Get_ErrorCount: Integer;
begin
    Result := DefaultInterface.ErrorCount;
end;

function TServer2Properties.Get_Skins: ISkinCollection;
begin
    Result := DefaultInterface.Skins;
end;

function TServer2Properties.Get_ConvertedPages: Integer;
begin
    Result := DefaultInterface.ConvertedPages;
end;

function TServer2Properties.Get_TotalPages: Integer;
begin
    Result := DefaultInterface.TotalPages;
end;

function TServer2Properties.Get_FlashFileCount: Integer;
begin
    Result := DefaultInterface.FlashFileCount;
end;

function TServer2Properties.Get_ThumbnailFileCount: Integer;
begin
    Result := DefaultInterface.ThumbnailFileCount;
end;

function TServer2Properties.Get_MetadataFileCount: Integer;
begin
    Result := DefaultInterface.MetadataFileCount;
end;

function TServer2Properties.Get_SkippedPages: Integer;
begin
    Result := DefaultInterface.SkippedPages;
end;

function TServer2Properties.Get_SVGFileCount: Integer;
begin
    Result := DefaultInterface.SVGFileCount;
end;

{$ENDIF}

class function CoProfile2.Create: IProfile;
begin
  Result := CreateComObject(CLASS_Profile2) as IProfile;
end;

class function CoProfile2.CreateRemote(const MachineName: string): IProfile;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Profile2) as IProfile;
end;

procedure TProfile2.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{3AF2BD76-043E-442B-A34D-5DD8239C8A1B}';
    IntfIID:   '{85586141-D013-44D6-B771-090A201463C6}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TProfile2.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IProfile;
  end;
end;

procedure TProfile2.ConnectTo(svrIntf: IProfile);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TProfile2.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TProfile2.GetDefaultInterface: IProfile;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TProfile2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TProfile2Properties.Create(Self);
{$ENDIF}
end;

destructor TProfile2.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TProfile2.GetServerProperties: TProfile2Properties;
begin
  Result := FProps;
end;
{$ENDIF}

function TProfile2.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

procedure TProfile2.Set_Name(const Value: WideString);
  { Warning: The property Name has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Name := Value;
end;

function TProfile2.Get_InterfaceOptions: Integer;
begin
    Result := DefaultInterface.InterfaceOptions;
end;

procedure TProfile2.Set_InterfaceOptions(Value: Integer);
begin
  DefaultInterface.Set_InterfaceOptions(Value);
end;

function TProfile2.Get_ProtectionOptions: Integer;
begin
    Result := DefaultInterface.ProtectionOptions;
end;

procedure TProfile2.Set_ProtectionOptions(Value: Integer);
begin
  DefaultInterface.Set_ProtectionOptions(Value);
end;

function TProfile2.Get_FlashVersion: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FlashVersion;
end;

procedure TProfile2.Set_FlashVersion(Value: OleVariant);
begin
  DefaultInterface.Set_FlashVersion(Value);
end;

function TProfile2.Get_UseJpeg: WordBool;
begin
    Result := DefaultInterface.UseJpeg;
end;

procedure TProfile2.Set_UseJpeg(Value: WordBool);
begin
  DefaultInterface.Set_UseJpeg(Value);
end;

function TProfile2.Get_JpegQuality: Integer;
begin
    Result := DefaultInterface.JpegQuality;
end;

procedure TProfile2.Set_JpegQuality(Value: Integer);
begin
  DefaultInterface.Set_JpegQuality(Value);
end;

function TProfile2.Get_Language: WideString;
begin
    Result := DefaultInterface.Language;
end;

procedure TProfile2.Set_Language(const Value: WideString);
  { Warning: The property Language has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Language := Value;
end;

function TProfile2.Get_ColorAdjustment: WideString;
begin
    Result := DefaultInterface.ColorAdjustment;
end;

procedure TProfile2.Set_ColorAdjustment(const Value: WideString);
  { Warning: The property ColorAdjustment has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ColorAdjustment := Value;
end;

function TProfile2.Get_ThumbnailPageRange: WideString;
begin
    Result := DefaultInterface.ThumbnailPageRange;
end;

procedure TProfile2.Set_ThumbnailPageRange(const Value: WideString);
  { Warning: The property ThumbnailPageRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ThumbnailPageRange := Value;
end;

function TProfile2.Get_ThumbnailImageWidth: Integer;
begin
    Result := DefaultInterface.ThumbnailImageWidth;
end;

procedure TProfile2.Set_ThumbnailImageWidth(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailImageWidth(Value);
end;

function TProfile2.Get_ThumbnailImageHeight: Integer;
begin
    Result := DefaultInterface.ThumbnailImageHeight;
end;

procedure TProfile2.Set_ThumbnailImageHeight(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailImageHeight(Value);
end;

function TProfile2.Get_ThumbnailFormat: IMAGE_FORMAT;
begin
    Result := DefaultInterface.ThumbnailFormat;
end;

procedure TProfile2.Set_ThumbnailFormat(Value: IMAGE_FORMAT);
begin
  DefaultInterface.Set_ThumbnailFormat(Value);
end;

function TProfile2.Get_ThumbnailJpegQuality: Integer;
begin
    Result := DefaultInterface.ThumbnailJpegQuality;
end;

procedure TProfile2.Set_ThumbnailJpegQuality(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailJpegQuality(Value);
end;

function TProfile2.Get_ThumbnailFileName: WideString;
begin
    Result := DefaultInterface.ThumbnailFileName;
end;

procedure TProfile2.Set_ThumbnailFileName(const Value: WideString);
  { Warning: The property ThumbnailFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ThumbnailFileName := Value;
end;

function TProfile2.Get_WatermarkImage: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.WatermarkImage;
end;

procedure TProfile2.Set_WatermarkImage(Value: OleVariant);
begin
  DefaultInterface.Set_WatermarkImage(Value);
end;

function TProfile2.Get_WatermarkScale: Integer;
begin
    Result := DefaultInterface.WatermarkScale;
end;

procedure TProfile2.Set_WatermarkScale(Value: Integer);
begin
  DefaultInterface.Set_WatermarkScale(Value);
end;

function TProfile2.Get_WatermarkTransparency: Integer;
begin
    Result := DefaultInterface.WatermarkTransparency;
end;

procedure TProfile2.Set_WatermarkTransparency(Value: Integer);
begin
  DefaultInterface.Set_WatermarkTransparency(Value);
end;

function TProfile2.Get_Skin: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.Skin;
end;

procedure TProfile2.Set_Skin(Value: OleVariant);
begin
  DefaultInterface.Set_Skin(Value);
end;

function TProfile2.Get_DocTemplate: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.DocTemplate;
end;

procedure TProfile2.Set_DocTemplate(Value: OleVariant);
begin
  DefaultInterface.Set_DocTemplate(Value);
end;

function TProfile2.Get_DocTemplateASVersion: Integer;
begin
    Result := DefaultInterface.DocTemplateASVersion;
end;

function TProfile2.Get_DocTemplateMaxTagID: Integer;
begin
    Result := DefaultInterface.DocTemplateMaxTagID;
end;

function TProfile2.Get_DocTemplateFlashVersion: Integer;
begin
    Result := DefaultInterface.DocTemplateFlashVersion;
end;

function TProfile2.Get_DocTemplateFrameCount: Integer;
begin
    Result := DefaultInterface.DocTemplateFrameCount;
end;

function TProfile2.Get_CreateMetadataFile: WordBool;
begin
    Result := DefaultInterface.CreateMetadataFile;
end;

procedure TProfile2.Set_CreateMetadataFile(Value: WordBool);
begin
  DefaultInterface.Set_CreateMetadataFile(Value);
end;

function TProfile2.Get_MetadataFileName: WideString;
begin
    Result := DefaultInterface.MetadataFileName;
end;

procedure TProfile2.Set_MetadataFileName(const Value: WideString);
  { Warning: The property MetadataFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.MetadataFileName := Value;
end;

function TProfile2.Get_MetaDataFileFormat: METADATAFORMAT;
begin
    Result := DefaultInterface.MetaDataFileFormat;
end;

procedure TProfile2.Set_MetaDataFileFormat(Value: METADATAFORMAT);
begin
  DefaultInterface.Set_MetaDataFileFormat(Value);
end;

function TProfile2.Get_OutputFormat: OUTPUT_FORMAT;
begin
    Result := DefaultInterface.OutputFormat;
end;

procedure TProfile2.Set_OutputFormat(Value: OUTPUT_FORMAT);
begin
  DefaultInterface.Set_OutputFormat(Value);
end;

function TProfile2.Get_OutputResolution: Integer;
begin
    Result := DefaultInterface.OutputResolution;
end;

procedure TProfile2.Set_OutputResolution(Value: Integer);
begin
  DefaultInterface.Set_OutputResolution(Value);
end;

function TProfile2.Get_PageFileName: WideString;
begin
    Result := DefaultInterface.PageFileName;
end;

procedure TProfile2.Set_PageFileName(const Value: WideString);
  { Warning: The property PageFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.PageFileName := Value;
end;

function TProfile2.Get_RestrictionDomains: WideString;
begin
    Result := DefaultInterface.RestrictionDomains;
end;

procedure TProfile2.Set_RestrictionDomains(const Value: WideString);
  { Warning: The property RestrictionDomains has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RestrictionDomains := Value;
end;

function TProfile2.Get_ParseLinks: WordBool;
begin
    Result := DefaultInterface.ParseLinks;
end;

procedure TProfile2.Set_ParseLinks(Value: WordBool);
begin
  DefaultInterface.Set_ParseLinks(Value);
end;

function TProfile2.Get_LinkTarget: WideString;
begin
    Result := DefaultInterface.LinkTarget;
end;

procedure TProfile2.Set_LinkTarget(const Value: WideString);
  { Warning: The property LinkTarget has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LinkTarget := Value;
end;

function TProfile2.Get_LinkTargetAuto: WordBool;
begin
    Result := DefaultInterface.LinkTargetAuto;
end;

procedure TProfile2.Set_LinkTargetAuto(Value: WordBool);
begin
  DefaultInterface.Set_LinkTargetAuto(Value);
end;

function TProfile2.Get_ExtractLinks: Integer;
begin
    Result := DefaultInterface.ExtractLinks;
end;

procedure TProfile2.Set_ExtractLinks(Value: Integer);
begin
  DefaultInterface.Set_ExtractLinks(Value);
end;

function TProfile2.Get_TEMPLATETYPE: TEMPLATETYPE;
begin
    Result := DefaultInterface.TEMPLATETYPE;
end;

procedure TProfile2.Set_TEMPLATETYPE(Value: TEMPLATETYPE);
begin
  DefaultInterface.Set_TEMPLATETYPE(Value);
end;

function TProfile2.Get_ASVersion: Integer;
begin
    Result := DefaultInterface.ASVersion;
end;

procedure TProfile2.Set_ASVersion(Value: Integer);
begin
  DefaultInterface.Set_ASVersion(Value);
end;

function TProfile2.Get_WATERMARKANCHOR: Integer;
begin
    Result := DefaultInterface.WATERMARKANCHOR;
end;

procedure TProfile2.Set_WATERMARKANCHOR(Value: Integer);
begin
  DefaultInterface.Set_WATERMARKANCHOR(Value);
end;

function TProfile2.Get_WatermarkXOffset: WideString;
begin
    Result := DefaultInterface.WatermarkXOffset;
end;

procedure TProfile2.Set_WatermarkXOffset(const Value: WideString);
  { Warning: The property WatermarkXOffset has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.WatermarkXOffset := Value;
end;

function TProfile2.Get_WatermarkYOffset: WideString;
begin
    Result := DefaultInterface.WatermarkYOffset;
end;

procedure TProfile2.Set_WatermarkYOffset(const Value: WideString);
  { Warning: The property WatermarkYOffset has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.WatermarkYOffset := Value;
end;

function TProfile2.Get_CompressionMethod: COMPRESSION_METHOD;
begin
    Result := DefaultInterface.CompressionMethod;
end;

procedure TProfile2.Set_CompressionMethod(Value: COMPRESSION_METHOD);
begin
  DefaultInterface.Set_CompressionMethod(Value);
end;

function TProfile2.Get_DocTemplateHeaderSize: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateHeaderSize;
end;

function TProfile2.Get_DocTemplateWidth: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateWidth;
end;

function TProfile2.Get_DocTemplateHeight: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateHeight;
end;

function TProfile2.Get_HTML5Options: IHTML5Options;
begin
    Result := DefaultInterface.HTML5Options;
end;

function TProfile2.Get_DocumentType: DOCUMENT_TYPE;
begin
    Result := DefaultInterface.DocumentType;
end;

procedure TProfile2.Set_DocumentType(Value: DOCUMENT_TYPE);
begin
  DefaultInterface.Set_DocumentType(Value);
end;

function TProfile2.Get_FrameWidth: Integer;
begin
    Result := DefaultInterface.FrameWidth;
end;

procedure TProfile2.Set_FrameWidth(Value: Integer);
begin
  DefaultInterface.Set_FrameWidth(Value);
end;

function TProfile2.Get_FrameHeight: Integer;
begin
    Result := DefaultInterface.FrameHeight;
end;

procedure TProfile2.Set_FrameHeight(Value: Integer);
begin
  DefaultInterface.Set_FrameHeight(Value);
end;

procedure TProfile2.ApplyChanges;
begin
  DefaultInterface.ApplyChanges;
end;

procedure TProfile2.SaveToFile(const FileName: WideString);
begin
  DefaultInterface.SaveToFile(FileName);
end;

procedure TProfile2.LoadFromFile(const FileName: WideString);
begin
  DefaultInterface.LoadFromFile(FileName);
end;

function TProfile2.SaveToStr: WideString;
begin
  Result := DefaultInterface.SaveToStr;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TProfile2Properties.Create(AServer: TProfile2);
begin
  inherited Create;
  FServer := AServer;
end;

function TProfile2Properties.GetDefaultInterface: IProfile;
begin
  Result := FServer.DefaultInterface;
end;

function TProfile2Properties.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

procedure TProfile2Properties.Set_Name(const Value: WideString);
  { Warning: The property Name has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Name := Value;
end;

function TProfile2Properties.Get_InterfaceOptions: Integer;
begin
    Result := DefaultInterface.InterfaceOptions;
end;

procedure TProfile2Properties.Set_InterfaceOptions(Value: Integer);
begin
  DefaultInterface.Set_InterfaceOptions(Value);
end;

function TProfile2Properties.Get_ProtectionOptions: Integer;
begin
    Result := DefaultInterface.ProtectionOptions;
end;

procedure TProfile2Properties.Set_ProtectionOptions(Value: Integer);
begin
  DefaultInterface.Set_ProtectionOptions(Value);
end;

function TProfile2Properties.Get_FlashVersion: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FlashVersion;
end;

procedure TProfile2Properties.Set_FlashVersion(Value: OleVariant);
begin
  DefaultInterface.Set_FlashVersion(Value);
end;

function TProfile2Properties.Get_UseJpeg: WordBool;
begin
    Result := DefaultInterface.UseJpeg;
end;

procedure TProfile2Properties.Set_UseJpeg(Value: WordBool);
begin
  DefaultInterface.Set_UseJpeg(Value);
end;

function TProfile2Properties.Get_JpegQuality: Integer;
begin
    Result := DefaultInterface.JpegQuality;
end;

procedure TProfile2Properties.Set_JpegQuality(Value: Integer);
begin
  DefaultInterface.Set_JpegQuality(Value);
end;

function TProfile2Properties.Get_Language: WideString;
begin
    Result := DefaultInterface.Language;
end;

procedure TProfile2Properties.Set_Language(const Value: WideString);
  { Warning: The property Language has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Language := Value;
end;

function TProfile2Properties.Get_ColorAdjustment: WideString;
begin
    Result := DefaultInterface.ColorAdjustment;
end;

procedure TProfile2Properties.Set_ColorAdjustment(const Value: WideString);
  { Warning: The property ColorAdjustment has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ColorAdjustment := Value;
end;

function TProfile2Properties.Get_ThumbnailPageRange: WideString;
begin
    Result := DefaultInterface.ThumbnailPageRange;
end;

procedure TProfile2Properties.Set_ThumbnailPageRange(const Value: WideString);
  { Warning: The property ThumbnailPageRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ThumbnailPageRange := Value;
end;

function TProfile2Properties.Get_ThumbnailImageWidth: Integer;
begin
    Result := DefaultInterface.ThumbnailImageWidth;
end;

procedure TProfile2Properties.Set_ThumbnailImageWidth(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailImageWidth(Value);
end;

function TProfile2Properties.Get_ThumbnailImageHeight: Integer;
begin
    Result := DefaultInterface.ThumbnailImageHeight;
end;

procedure TProfile2Properties.Set_ThumbnailImageHeight(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailImageHeight(Value);
end;

function TProfile2Properties.Get_ThumbnailFormat: IMAGE_FORMAT;
begin
    Result := DefaultInterface.ThumbnailFormat;
end;

procedure TProfile2Properties.Set_ThumbnailFormat(Value: IMAGE_FORMAT);
begin
  DefaultInterface.Set_ThumbnailFormat(Value);
end;

function TProfile2Properties.Get_ThumbnailJpegQuality: Integer;
begin
    Result := DefaultInterface.ThumbnailJpegQuality;
end;

procedure TProfile2Properties.Set_ThumbnailJpegQuality(Value: Integer);
begin
  DefaultInterface.Set_ThumbnailJpegQuality(Value);
end;

function TProfile2Properties.Get_ThumbnailFileName: WideString;
begin
    Result := DefaultInterface.ThumbnailFileName;
end;

procedure TProfile2Properties.Set_ThumbnailFileName(const Value: WideString);
  { Warning: The property ThumbnailFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ThumbnailFileName := Value;
end;

function TProfile2Properties.Get_WatermarkImage: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.WatermarkImage;
end;

procedure TProfile2Properties.Set_WatermarkImage(Value: OleVariant);
begin
  DefaultInterface.Set_WatermarkImage(Value);
end;

function TProfile2Properties.Get_WatermarkScale: Integer;
begin
    Result := DefaultInterface.WatermarkScale;
end;

procedure TProfile2Properties.Set_WatermarkScale(Value: Integer);
begin
  DefaultInterface.Set_WatermarkScale(Value);
end;

function TProfile2Properties.Get_WatermarkTransparency: Integer;
begin
    Result := DefaultInterface.WatermarkTransparency;
end;

procedure TProfile2Properties.Set_WatermarkTransparency(Value: Integer);
begin
  DefaultInterface.Set_WatermarkTransparency(Value);
end;

function TProfile2Properties.Get_Skin: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.Skin;
end;

procedure TProfile2Properties.Set_Skin(Value: OleVariant);
begin
  DefaultInterface.Set_Skin(Value);
end;

function TProfile2Properties.Get_DocTemplate: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.DocTemplate;
end;

procedure TProfile2Properties.Set_DocTemplate(Value: OleVariant);
begin
  DefaultInterface.Set_DocTemplate(Value);
end;

function TProfile2Properties.Get_DocTemplateASVersion: Integer;
begin
    Result := DefaultInterface.DocTemplateASVersion;
end;

function TProfile2Properties.Get_DocTemplateMaxTagID: Integer;
begin
    Result := DefaultInterface.DocTemplateMaxTagID;
end;

function TProfile2Properties.Get_DocTemplateFlashVersion: Integer;
begin
    Result := DefaultInterface.DocTemplateFlashVersion;
end;

function TProfile2Properties.Get_DocTemplateFrameCount: Integer;
begin
    Result := DefaultInterface.DocTemplateFrameCount;
end;

function TProfile2Properties.Get_CreateMetadataFile: WordBool;
begin
    Result := DefaultInterface.CreateMetadataFile;
end;

procedure TProfile2Properties.Set_CreateMetadataFile(Value: WordBool);
begin
  DefaultInterface.Set_CreateMetadataFile(Value);
end;

function TProfile2Properties.Get_MetadataFileName: WideString;
begin
    Result := DefaultInterface.MetadataFileName;
end;

procedure TProfile2Properties.Set_MetadataFileName(const Value: WideString);
  { Warning: The property MetadataFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.MetadataFileName := Value;
end;

function TProfile2Properties.Get_MetaDataFileFormat: METADATAFORMAT;
begin
    Result := DefaultInterface.MetaDataFileFormat;
end;

procedure TProfile2Properties.Set_MetaDataFileFormat(Value: METADATAFORMAT);
begin
  DefaultInterface.Set_MetaDataFileFormat(Value);
end;

function TProfile2Properties.Get_OutputFormat: OUTPUT_FORMAT;
begin
    Result := DefaultInterface.OutputFormat;
end;

procedure TProfile2Properties.Set_OutputFormat(Value: OUTPUT_FORMAT);
begin
  DefaultInterface.Set_OutputFormat(Value);
end;

function TProfile2Properties.Get_OutputResolution: Integer;
begin
    Result := DefaultInterface.OutputResolution;
end;

procedure TProfile2Properties.Set_OutputResolution(Value: Integer);
begin
  DefaultInterface.Set_OutputResolution(Value);
end;

function TProfile2Properties.Get_PageFileName: WideString;
begin
    Result := DefaultInterface.PageFileName;
end;

procedure TProfile2Properties.Set_PageFileName(const Value: WideString);
  { Warning: The property PageFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.PageFileName := Value;
end;

function TProfile2Properties.Get_RestrictionDomains: WideString;
begin
    Result := DefaultInterface.RestrictionDomains;
end;

procedure TProfile2Properties.Set_RestrictionDomains(const Value: WideString);
  { Warning: The property RestrictionDomains has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RestrictionDomains := Value;
end;

function TProfile2Properties.Get_ParseLinks: WordBool;
begin
    Result := DefaultInterface.ParseLinks;
end;

procedure TProfile2Properties.Set_ParseLinks(Value: WordBool);
begin
  DefaultInterface.Set_ParseLinks(Value);
end;

function TProfile2Properties.Get_LinkTarget: WideString;
begin
    Result := DefaultInterface.LinkTarget;
end;

procedure TProfile2Properties.Set_LinkTarget(const Value: WideString);
  { Warning: The property LinkTarget has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LinkTarget := Value;
end;

function TProfile2Properties.Get_LinkTargetAuto: WordBool;
begin
    Result := DefaultInterface.LinkTargetAuto;
end;

procedure TProfile2Properties.Set_LinkTargetAuto(Value: WordBool);
begin
  DefaultInterface.Set_LinkTargetAuto(Value);
end;

function TProfile2Properties.Get_ExtractLinks: Integer;
begin
    Result := DefaultInterface.ExtractLinks;
end;

procedure TProfile2Properties.Set_ExtractLinks(Value: Integer);
begin
  DefaultInterface.Set_ExtractLinks(Value);
end;

function TProfile2Properties.Get_TEMPLATETYPE: TEMPLATETYPE;
begin
    Result := DefaultInterface.TEMPLATETYPE;
end;

procedure TProfile2Properties.Set_TEMPLATETYPE(Value: TEMPLATETYPE);
begin
  DefaultInterface.Set_TEMPLATETYPE(Value);
end;

function TProfile2Properties.Get_ASVersion: Integer;
begin
    Result := DefaultInterface.ASVersion;
end;

procedure TProfile2Properties.Set_ASVersion(Value: Integer);
begin
  DefaultInterface.Set_ASVersion(Value);
end;

function TProfile2Properties.Get_WATERMARKANCHOR: Integer;
begin
    Result := DefaultInterface.WATERMARKANCHOR;
end;

procedure TProfile2Properties.Set_WATERMARKANCHOR(Value: Integer);
begin
  DefaultInterface.Set_WATERMARKANCHOR(Value);
end;

function TProfile2Properties.Get_WatermarkXOffset: WideString;
begin
    Result := DefaultInterface.WatermarkXOffset;
end;

procedure TProfile2Properties.Set_WatermarkXOffset(const Value: WideString);
  { Warning: The property WatermarkXOffset has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.WatermarkXOffset := Value;
end;

function TProfile2Properties.Get_WatermarkYOffset: WideString;
begin
    Result := DefaultInterface.WatermarkYOffset;
end;

procedure TProfile2Properties.Set_WatermarkYOffset(const Value: WideString);
  { Warning: The property WatermarkYOffset has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.WatermarkYOffset := Value;
end;

function TProfile2Properties.Get_CompressionMethod: COMPRESSION_METHOD;
begin
    Result := DefaultInterface.CompressionMethod;
end;

procedure TProfile2Properties.Set_CompressionMethod(Value: COMPRESSION_METHOD);
begin
  DefaultInterface.Set_CompressionMethod(Value);
end;

function TProfile2Properties.Get_DocTemplateHeaderSize: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateHeaderSize;
end;

function TProfile2Properties.Get_DocTemplateWidth: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateWidth;
end;

function TProfile2Properties.Get_DocTemplateHeight: SYSUINT;
begin
    Result := DefaultInterface.DocTemplateHeight;
end;

function TProfile2Properties.Get_HTML5Options: IHTML5Options;
begin
    Result := DefaultInterface.HTML5Options;
end;

function TProfile2Properties.Get_DocumentType: DOCUMENT_TYPE;
begin
    Result := DefaultInterface.DocumentType;
end;

procedure TProfile2Properties.Set_DocumentType(Value: DOCUMENT_TYPE);
begin
  DefaultInterface.Set_DocumentType(Value);
end;

function TProfile2Properties.Get_FrameWidth: Integer;
begin
    Result := DefaultInterface.FrameWidth;
end;

procedure TProfile2Properties.Set_FrameWidth(Value: Integer);
begin
  DefaultInterface.Set_FrameWidth(Value);
end;

function TProfile2Properties.Get_FrameHeight: Integer;
begin
    Result := DefaultInterface.FrameHeight;
end;

procedure TProfile2Properties.Set_FrameHeight(Value: Integer);
begin
  DefaultInterface.Set_FrameHeight(Value);
end;

{$ENDIF}

class function CoBatchProcessingOptions2.Create: IBatchProcessingOptions;
begin
  Result := CreateComObject(CLASS_BatchProcessingOptions2) as IBatchProcessingOptions;
end;

class function CoBatchProcessingOptions2.CreateRemote(const MachineName: string): IBatchProcessingOptions;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_BatchProcessingOptions2) as IBatchProcessingOptions;
end;

procedure TBatchProcessingOptions2.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{185DCF25-B5F5-412D-883A-41B62BDBC03B}';
    IntfIID:   '{B5D31A0C-B37A-45B0-B855-52E9A8319839}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TBatchProcessingOptions2.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IBatchProcessingOptions;
  end;
end;

procedure TBatchProcessingOptions2.ConnectTo(svrIntf: IBatchProcessingOptions);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TBatchProcessingOptions2.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TBatchProcessingOptions2.GetDefaultInterface: IBatchProcessingOptions;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TBatchProcessingOptions2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TBatchProcessingOptions2Properties.Create(Self);
{$ENDIF}
end;

destructor TBatchProcessingOptions2.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TBatchProcessingOptions2.GetServerProperties: TBatchProcessingOptions2Properties;
begin
  Result := FProps;
end;
{$ENDIF}

function TBatchProcessingOptions2.Get_BeforePrintingTimeout: Integer;
begin
    Result := DefaultInterface.BeforePrintingTimeout;
end;

procedure TBatchProcessingOptions2.Set_BeforePrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_BeforePrintingTimeout(Value);
end;

function TBatchProcessingOptions2.Get_PrintingTimeout: Integer;
begin
    Result := DefaultInterface.PrintingTimeout;
end;

procedure TBatchProcessingOptions2.Set_PrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_PrintingTimeout(Value);
end;

function TBatchProcessingOptions2.Get_AfterPrintingTimeout: Integer;
begin
    Result := DefaultInterface.AfterPrintingTimeout;
end;

procedure TBatchProcessingOptions2.Set_AfterPrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_AfterPrintingTimeout(Value);
end;

function TBatchProcessingOptions2.Get_PressPrintButton: ThreeStateFlag;
begin
    Result := DefaultInterface.PressPrintButton;
end;

procedure TBatchProcessingOptions2.Set_PressPrintButton(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_PressPrintButton(Value);
end;

function TBatchProcessingOptions2.Get_KillProcessIfTimeout: ThreeStateFlag;
begin
    Result := DefaultInterface.KillProcessIfTimeout;
end;

procedure TBatchProcessingOptions2.Set_KillProcessIfTimeout(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_KillProcessIfTimeout(Value);
end;

function TBatchProcessingOptions2.Get_CreateLogFile: WordBool;
begin
    Result := DefaultInterface.CreateLogFile;
end;

procedure TBatchProcessingOptions2.Set_CreateLogFile(Value: WordBool);
begin
  DefaultInterface.Set_CreateLogFile(Value);
end;

function TBatchProcessingOptions2.Get_LogFileName: WideString;
begin
    Result := DefaultInterface.LogFileName;
end;

procedure TBatchProcessingOptions2.Set_LogFileName(const Value: WideString);
  { Warning: The property LogFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LogFileName := Value;
end;

function TBatchProcessingOptions2.Get_LoggingLevel: Integer;
begin
    Result := DefaultInterface.LoggingLevel;
end;

procedure TBatchProcessingOptions2.Set_LoggingLevel(Value: Integer);
begin
  DefaultInterface.Set_LoggingLevel(Value);
end;

function TBatchProcessingOptions2.Get_PageRange: WideString;
begin
    Result := DefaultInterface.PageRange;
end;

procedure TBatchProcessingOptions2.Set_PageRange(const Value: WideString);
  { Warning: The property PageRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.PageRange := Value;
end;

function TBatchProcessingOptions2.Get_ActivityTimeout: Integer;
begin
    Result := DefaultInterface.ActivityTimeout;
end;

procedure TBatchProcessingOptions2.Set_ActivityTimeout(Value: Integer);
begin
  DefaultInterface.Set_ActivityTimeout(Value);
end;

function TBatchProcessingOptions2.Get_UseAutomation: Integer;
begin
    Result := DefaultInterface.UseAutomation;
end;

procedure TBatchProcessingOptions2.Set_UseAutomation(Value: Integer);
begin
  DefaultInterface.Set_UseAutomation(Value);
end;

function TBatchProcessingOptions2.Get_KillAllAutomationProcesses: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KillAllAutomationProcesses;
end;

procedure TBatchProcessingOptions2.Set_KillAllAutomationProcesses(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KillAllAutomationProcesses(Value);
end;

function TBatchProcessingOptions2.Get_KeepAutomationAppRef: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KeepAutomationAppRef;
end;

procedure TBatchProcessingOptions2.Set_KeepAutomationAppRef(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KeepAutomationAppRef(Value);
end;

function TBatchProcessingOptions2.Get_ExcelOptions: IExcelOptions;
begin
    Result := DefaultInterface.ExcelOptions;
end;

function TBatchProcessingOptions2.Get_PowerPointOptions: IPowerPointOptions;
begin
    Result := DefaultInterface.PowerPointOptions;
end;

function TBatchProcessingOptions2.Get_ExtractLinks: Integer;
begin
    Result := DefaultInterface.ExtractLinks;
end;

procedure TBatchProcessingOptions2.Set_ExtractLinks(Value: Integer);
begin
  DefaultInterface.Set_ExtractLinks(Value);
end;

function TBatchProcessingOptions2.Get_KillSplWOW64: ThreeStateFlag;
begin
    Result := DefaultInterface.KillSplWOW64;
end;

procedure TBatchProcessingOptions2.Set_KillSplWOW64(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_KillSplWOW64(Value);
end;

function TBatchProcessingOptions2.Get_GenerateExternalViewer: WordBool;
begin
    Result := DefaultInterface.GenerateExternalViewer;
end;

procedure TBatchProcessingOptions2.Set_GenerateExternalViewer(Value: WordBool);
begin
  DefaultInterface.Set_GenerateExternalViewer(Value);
end;

function TBatchProcessingOptions2.Get_SpecialProcessing: WideString;
begin
    Result := DefaultInterface.SpecialProcessing;
end;

procedure TBatchProcessingOptions2.Set_SpecialProcessing(const Value: WideString);
  { Warning: The property SpecialProcessing has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SpecialProcessing := Value;
end;

function TBatchProcessingOptions2.Get_KeepAutoAppRefStr: WideString;
begin
    Result := DefaultInterface.KeepAutoAppRefStr;
end;

procedure TBatchProcessingOptions2.Set_KeepAutoAppRefStr(const Value: WideString);
  { Warning: The property KeepAutoAppRefStr has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.KeepAutoAppRefStr := Value;
end;

function TBatchProcessingOptions2.Get_CheckPDFEncryption: ThreeStateFlag;
begin
    Result := DefaultInterface.CheckPDFEncryption;
end;

procedure TBatchProcessingOptions2.Set_CheckPDFEncryption(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_CheckPDFEncryption(Value);
end;

function TBatchProcessingOptions2.Get_KillAutoProcessBeforeConversion: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KillAutoProcessBeforeConversion;
end;

procedure TBatchProcessingOptions2.Set_KillAutoProcessBeforeConversion(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KillAutoProcessBeforeConversion(Value);
end;

function TBatchProcessingOptions2.Get_AccProvider: WideString;
begin
    Result := DefaultInterface.AccProvider;
end;

procedure TBatchProcessingOptions2.Set_AccProvider(const Value: WideString);
  { Warning: The property AccProvider has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.AccProvider := Value;
end;

procedure TBatchProcessingOptions2.ApplyChanges;
begin
  DefaultInterface.ApplyChanges;
end;

procedure TBatchProcessingOptions2.Assign_(const bpo: IBatchProcessingOptions);
begin
  DefaultInterface.Assign_(bpo);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TBatchProcessingOptions2Properties.Create(AServer: TBatchProcessingOptions2);
begin
  inherited Create;
  FServer := AServer;
end;

function TBatchProcessingOptions2Properties.GetDefaultInterface: IBatchProcessingOptions;
begin
  Result := FServer.DefaultInterface;
end;

function TBatchProcessingOptions2Properties.Get_BeforePrintingTimeout: Integer;
begin
    Result := DefaultInterface.BeforePrintingTimeout;
end;

procedure TBatchProcessingOptions2Properties.Set_BeforePrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_BeforePrintingTimeout(Value);
end;

function TBatchProcessingOptions2Properties.Get_PrintingTimeout: Integer;
begin
    Result := DefaultInterface.PrintingTimeout;
end;

procedure TBatchProcessingOptions2Properties.Set_PrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_PrintingTimeout(Value);
end;

function TBatchProcessingOptions2Properties.Get_AfterPrintingTimeout: Integer;
begin
    Result := DefaultInterface.AfterPrintingTimeout;
end;

procedure TBatchProcessingOptions2Properties.Set_AfterPrintingTimeout(Value: Integer);
begin
  DefaultInterface.Set_AfterPrintingTimeout(Value);
end;

function TBatchProcessingOptions2Properties.Get_PressPrintButton: ThreeStateFlag;
begin
    Result := DefaultInterface.PressPrintButton;
end;

procedure TBatchProcessingOptions2Properties.Set_PressPrintButton(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_PressPrintButton(Value);
end;

function TBatchProcessingOptions2Properties.Get_KillProcessIfTimeout: ThreeStateFlag;
begin
    Result := DefaultInterface.KillProcessIfTimeout;
end;

procedure TBatchProcessingOptions2Properties.Set_KillProcessIfTimeout(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_KillProcessIfTimeout(Value);
end;

function TBatchProcessingOptions2Properties.Get_CreateLogFile: WordBool;
begin
    Result := DefaultInterface.CreateLogFile;
end;

procedure TBatchProcessingOptions2Properties.Set_CreateLogFile(Value: WordBool);
begin
  DefaultInterface.Set_CreateLogFile(Value);
end;

function TBatchProcessingOptions2Properties.Get_LogFileName: WideString;
begin
    Result := DefaultInterface.LogFileName;
end;

procedure TBatchProcessingOptions2Properties.Set_LogFileName(const Value: WideString);
  { Warning: The property LogFileName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LogFileName := Value;
end;

function TBatchProcessingOptions2Properties.Get_LoggingLevel: Integer;
begin
    Result := DefaultInterface.LoggingLevel;
end;

procedure TBatchProcessingOptions2Properties.Set_LoggingLevel(Value: Integer);
begin
  DefaultInterface.Set_LoggingLevel(Value);
end;

function TBatchProcessingOptions2Properties.Get_PageRange: WideString;
begin
    Result := DefaultInterface.PageRange;
end;

procedure TBatchProcessingOptions2Properties.Set_PageRange(const Value: WideString);
  { Warning: The property PageRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.PageRange := Value;
end;

function TBatchProcessingOptions2Properties.Get_ActivityTimeout: Integer;
begin
    Result := DefaultInterface.ActivityTimeout;
end;

procedure TBatchProcessingOptions2Properties.Set_ActivityTimeout(Value: Integer);
begin
  DefaultInterface.Set_ActivityTimeout(Value);
end;

function TBatchProcessingOptions2Properties.Get_UseAutomation: Integer;
begin
    Result := DefaultInterface.UseAutomation;
end;

procedure TBatchProcessingOptions2Properties.Set_UseAutomation(Value: Integer);
begin
  DefaultInterface.Set_UseAutomation(Value);
end;

function TBatchProcessingOptions2Properties.Get_KillAllAutomationProcesses: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KillAllAutomationProcesses;
end;

procedure TBatchProcessingOptions2Properties.Set_KillAllAutomationProcesses(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KillAllAutomationProcesses(Value);
end;

function TBatchProcessingOptions2Properties.Get_KeepAutomationAppRef: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KeepAutomationAppRef;
end;

procedure TBatchProcessingOptions2Properties.Set_KeepAutomationAppRef(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KeepAutomationAppRef(Value);
end;

function TBatchProcessingOptions2Properties.Get_ExcelOptions: IExcelOptions;
begin
    Result := DefaultInterface.ExcelOptions;
end;

function TBatchProcessingOptions2Properties.Get_PowerPointOptions: IPowerPointOptions;
begin
    Result := DefaultInterface.PowerPointOptions;
end;

function TBatchProcessingOptions2Properties.Get_ExtractLinks: Integer;
begin
    Result := DefaultInterface.ExtractLinks;
end;

procedure TBatchProcessingOptions2Properties.Set_ExtractLinks(Value: Integer);
begin
  DefaultInterface.Set_ExtractLinks(Value);
end;

function TBatchProcessingOptions2Properties.Get_KillSplWOW64: ThreeStateFlag;
begin
    Result := DefaultInterface.KillSplWOW64;
end;

procedure TBatchProcessingOptions2Properties.Set_KillSplWOW64(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_KillSplWOW64(Value);
end;

function TBatchProcessingOptions2Properties.Get_GenerateExternalViewer: WordBool;
begin
    Result := DefaultInterface.GenerateExternalViewer;
end;

procedure TBatchProcessingOptions2Properties.Set_GenerateExternalViewer(Value: WordBool);
begin
  DefaultInterface.Set_GenerateExternalViewer(Value);
end;

function TBatchProcessingOptions2Properties.Get_SpecialProcessing: WideString;
begin
    Result := DefaultInterface.SpecialProcessing;
end;

procedure TBatchProcessingOptions2Properties.Set_SpecialProcessing(const Value: WideString);
  { Warning: The property SpecialProcessing has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SpecialProcessing := Value;
end;

function TBatchProcessingOptions2Properties.Get_KeepAutoAppRefStr: WideString;
begin
    Result := DefaultInterface.KeepAutoAppRefStr;
end;

procedure TBatchProcessingOptions2Properties.Set_KeepAutoAppRefStr(const Value: WideString);
  { Warning: The property KeepAutoAppRefStr has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.KeepAutoAppRefStr := Value;
end;

function TBatchProcessingOptions2Properties.Get_CheckPDFEncryption: ThreeStateFlag;
begin
    Result := DefaultInterface.CheckPDFEncryption;
end;

procedure TBatchProcessingOptions2Properties.Set_CheckPDFEncryption(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_CheckPDFEncryption(Value);
end;

function TBatchProcessingOptions2Properties.Get_KillAutoProcessBeforeConversion: APPLICATIONTYPE;
begin
    Result := DefaultInterface.KillAutoProcessBeforeConversion;
end;

procedure TBatchProcessingOptions2Properties.Set_KillAutoProcessBeforeConversion(Value: APPLICATIONTYPE);
begin
  DefaultInterface.Set_KillAutoProcessBeforeConversion(Value);
end;

function TBatchProcessingOptions2Properties.Get_AccProvider: WideString;
begin
    Result := DefaultInterface.AccProvider;
end;

procedure TBatchProcessingOptions2Properties.Set_AccProvider(const Value: WideString);
  { Warning: The property AccProvider has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.AccProvider := Value;
end;

{$ENDIF}

class function CoPrintingPreferences2.Create: IPrintingPreferences;
begin
  Result := CreateComObject(CLASS_PrintingPreferences2) as IPrintingPreferences;
end;

class function CoPrintingPreferences2.CreateRemote(const MachineName: string): IPrintingPreferences;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_PrintingPreferences2) as IPrintingPreferences;
end;

procedure TPrintingPreferences2.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{B913F8C1-473A-4963-BE48-B6FE1181085B}';
    IntfIID:   '{C6556430-49E6-4E5E-913D-5B0A2A973B95}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TPrintingPreferences2.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IPrintingPreferences;
  end;
end;

procedure TPrintingPreferences2.ConnectTo(svrIntf: IPrintingPreferences);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TPrintingPreferences2.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TPrintingPreferences2.GetDefaultInterface: IPrintingPreferences;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TPrintingPreferences2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TPrintingPreferences2Properties.Create(Self);
{$ENDIF}
end;

destructor TPrintingPreferences2.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TPrintingPreferences2.GetServerProperties: TPrintingPreferences2Properties;
begin
  Result := FProps;
end;
{$ENDIF}

function TPrintingPreferences2.Get_FormName: WideString;
begin
    Result := DefaultInterface.FormName;
end;

function TPrintingPreferences2.Get_PaperWidth: Integer;
begin
    Result := DefaultInterface.PaperWidth;
end;

function TPrintingPreferences2.Get_PaperLength: Integer;
begin
    Result := DefaultInterface.PaperLength;
end;

function TPrintingPreferences2.Get_Resolution: Integer;
begin
    Result := DefaultInterface.Resolution;
end;

procedure TPrintingPreferences2.Set_Resolution(Value: Integer);
begin
  DefaultInterface.Set_Resolution(Value);
end;

function TPrintingPreferences2.Get_Orientation: PAPER_ORIENTATION;
begin
    Result := DefaultInterface.Orientation;
end;

procedure TPrintingPreferences2.Set_Orientation(Value: PAPER_ORIENTATION);
begin
  DefaultInterface.Set_Orientation(Value);
end;

function TPrintingPreferences2.Get_Actual: WordBool;
begin
    Result := DefaultInterface.Actual;
end;

procedure TPrintingPreferences2.SetFormName(const sFormName: WideString);
begin
  DefaultInterface.SetFormName(sFormName);
end;

procedure TPrintingPreferences2.SetCustomPaperSize(Width: Integer; Length: Integer);
begin
  DefaultInterface.SetCustomPaperSize(Width, Length);
end;

procedure TPrintingPreferences2.ApplyChanges;
begin
  DefaultInterface.ApplyChanges;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TPrintingPreferences2Properties.Create(AServer: TPrintingPreferences2);
begin
  inherited Create;
  FServer := AServer;
end;

function TPrintingPreferences2Properties.GetDefaultInterface: IPrintingPreferences;
begin
  Result := FServer.DefaultInterface;
end;

function TPrintingPreferences2Properties.Get_FormName: WideString;
begin
    Result := DefaultInterface.FormName;
end;

function TPrintingPreferences2Properties.Get_PaperWidth: Integer;
begin
    Result := DefaultInterface.PaperWidth;
end;

function TPrintingPreferences2Properties.Get_PaperLength: Integer;
begin
    Result := DefaultInterface.PaperLength;
end;

function TPrintingPreferences2Properties.Get_Resolution: Integer;
begin
    Result := DefaultInterface.Resolution;
end;

procedure TPrintingPreferences2Properties.Set_Resolution(Value: Integer);
begin
  DefaultInterface.Set_Resolution(Value);
end;

function TPrintingPreferences2Properties.Get_Orientation: PAPER_ORIENTATION;
begin
    Result := DefaultInterface.Orientation;
end;

procedure TPrintingPreferences2Properties.Set_Orientation(Value: PAPER_ORIENTATION);
begin
  DefaultInterface.Set_Orientation(Value);
end;

function TPrintingPreferences2Properties.Get_Actual: WordBool;
begin
    Result := DefaultInterface.Actual;
end;

{$ENDIF}

class function CoP2FApp.Create: IP2FApp;
begin
  Result := CreateComObject(CLASS_P2FApp) as IP2FApp;
end;

class function CoP2FApp.CreateRemote(const MachineName: string): IP2FApp;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_P2FApp) as IP2FApp;
end;

procedure TP2FApp.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{BC7C2AD0-10AC-4D9A-9DDC-573D34987AAB}';
    IntfIID:   '{CC994315-F509-407E-BF86-ACB391428640}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TP2FApp.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IP2FApp;
  end;
end;

procedure TP2FApp.ConnectTo(svrIntf: IP2FApp);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TP2FApp.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TP2FApp.GetDefaultInterface: IP2FApp;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TP2FApp.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TP2FAppProperties.Create(Self);
{$ENDIF}
end;

destructor TP2FApp.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TP2FApp.GetServerProperties: TP2FAppProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TP2FApp.StartDoc(const DocName: WideString; JobID: Integer): WordBool;
begin
  Result := DefaultInterface.StartDoc(DocName, JobID);
end;

function TP2FApp.OnProgress(PageNumber: Integer; TotalPages: Integer; Flag: P2F_PROGRESS): WordBool;
begin
  Result := DefaultInterface.OnProgress(PageNumber, TotalPages, Flag);
end;

function TP2FApp.EndDoc(bCancelled: Integer; const szDocName: WideString): WordBool;
begin
  Result := DefaultInterface.EndDoc(bCancelled, szDocName);
end;

function TP2FApp.ShowDialog: WordBool;
begin
  Result := DefaultInterface.ShowDialog;
end;

function TP2FApp.GetProfileStr: WideString;
begin
  Result := DefaultInterface.GetProfileStr;
end;

function TP2FApp.GetSkinStr: WideString;
begin
  Result := DefaultInterface.GetSkinStr;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TP2FAppProperties.Create(AServer: TP2FApp);
begin
  inherited Create;
  FServer := AServer;
end;

function TP2FAppProperties.GetDefaultInterface: IP2FApp;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function CoSkinCollection.Create: ISkinCollection;
begin
  Result := CreateComObject(CLASS_SkinCollection) as ISkinCollection;
end;

class function CoSkinCollection.CreateRemote(const MachineName: string): ISkinCollection;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_SkinCollection) as ISkinCollection;
end;

procedure TSkinCollection.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{27376BF0-84EF-4A7E-B1E8-ED03D99527FB}';
    IntfIID:   '{44B39C5D-9B7A-4715-8052-ED653D36F1BA}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TSkinCollection.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ISkinCollection;
  end;
end;

procedure TSkinCollection.ConnectTo(svrIntf: ISkinCollection);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TSkinCollection.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TSkinCollection.GetDefaultInterface: ISkinCollection;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TSkinCollection.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TSkinCollectionProperties.Create(Self);
{$ENDIF}
end;

destructor TSkinCollection.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSkinCollection.GetServerProperties: TSkinCollectionProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TSkinCollection.Get_item(Index: OleVariant): OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.item[Index];
end;

function TSkinCollection.Get_Count: Integer;
begin
    Result := DefaultInterface.Count;
end;

function TSkinCollection.Add(const Name: WideString): ISkin;
begin
  Result := DefaultInterface.Add(Name);
end;

procedure TSkinCollection.Delete(Index: OleVariant);
begin
  DefaultInterface.Delete(Index);
end;

procedure TSkinCollection.RenameSkin(const Skin: ISkin; const NewName: WideString);
begin
  DefaultInterface.RenameSkin(Skin, NewName);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSkinCollectionProperties.Create(AServer: TSkinCollection);
begin
  inherited Create;
  FServer := AServer;
end;

function TSkinCollectionProperties.GetDefaultInterface: ISkinCollection;
begin
  Result := FServer.DefaultInterface;
end;

function TSkinCollectionProperties.Get_item(Index: OleVariant): OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.item[Index];
end;

function TSkinCollectionProperties.Get_Count: Integer;
begin
    Result := DefaultInterface.Count;
end;

{$ENDIF}

class function CoExcelOptions.Create: IExcelOptions;
begin
  Result := CreateComObject(CLASS_ExcelOptions) as IExcelOptions;
end;

class function CoExcelOptions.CreateRemote(const MachineName: string): IExcelOptions;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_ExcelOptions) as IExcelOptions;
end;

procedure TExcelOptions.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{B320BFC0-2D5C-457F-AF02-47F7E0B7F4BB}';
    IntfIID:   '{76F313A0-D328-44CE-B680-31896F2CC56E}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TExcelOptions.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IExcelOptions;
  end;
end;

procedure TExcelOptions.ConnectTo(svrIntf: IExcelOptions);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TExcelOptions.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TExcelOptions.GetDefaultInterface: IExcelOptions;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TExcelOptions.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TExcelOptionsProperties.Create(Self);
{$ENDIF}
end;

destructor TExcelOptions.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TExcelOptions.GetServerProperties: TExcelOptionsProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TExcelOptions.Get_SheetRange: WideString;
begin
    Result := DefaultInterface.SheetRange;
end;

procedure TExcelOptions.Set_SheetRange(const Value: WideString);
  { Warning: The property SheetRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SheetRange := Value;
end;

function TExcelOptions.Get_OverridePrintQuality: WordBool;
begin
    Result := DefaultInterface.OverridePrintQuality;
end;

procedure TExcelOptions.Set_OverridePrintQuality(Value: WordBool);
begin
  DefaultInterface.Set_OverridePrintQuality(Value);
end;

function TExcelOptions.Get_SkipEmptySheets: WordBool;
begin
    Result := DefaultInterface.SkipEmptySheets;
end;

procedure TExcelOptions.Set_SkipEmptySheets(Value: WordBool);
begin
  DefaultInterface.Set_SkipEmptySheets(Value);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TExcelOptionsProperties.Create(AServer: TExcelOptions);
begin
  inherited Create;
  FServer := AServer;
end;

function TExcelOptionsProperties.GetDefaultInterface: IExcelOptions;
begin
  Result := FServer.DefaultInterface;
end;

function TExcelOptionsProperties.Get_SheetRange: WideString;
begin
    Result := DefaultInterface.SheetRange;
end;

procedure TExcelOptionsProperties.Set_SheetRange(const Value: WideString);
  { Warning: The property SheetRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SheetRange := Value;
end;

function TExcelOptionsProperties.Get_OverridePrintQuality: WordBool;
begin
    Result := DefaultInterface.OverridePrintQuality;
end;

procedure TExcelOptionsProperties.Set_OverridePrintQuality(Value: WordBool);
begin
  DefaultInterface.Set_OverridePrintQuality(Value);
end;

function TExcelOptionsProperties.Get_SkipEmptySheets: WordBool;
begin
    Result := DefaultInterface.SkipEmptySheets;
end;

procedure TExcelOptionsProperties.Set_SkipEmptySheets(Value: WordBool);
begin
  DefaultInterface.Set_SkipEmptySheets(Value);
end;

{$ENDIF}

class function CoPowerPointOptions.Create: IPowerPointOptions;
begin
  Result := CreateComObject(CLASS_PowerPointOptions) as IPowerPointOptions;
end;

class function CoPowerPointOptions.CreateRemote(const MachineName: string): IPowerPointOptions;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_PowerPointOptions) as IPowerPointOptions;
end;

procedure TPowerPointOptions.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{A1D2FAD1-A450-44A1-B9A8-21E7C77EC29B}';
    IntfIID:   '{7A3E353C-B57D-42CF-BE25-400444E85A6B}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TPowerPointOptions.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IPowerPointOptions;
  end;
end;

procedure TPowerPointOptions.ConnectTo(svrIntf: IPowerPointOptions);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TPowerPointOptions.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TPowerPointOptions.GetDefaultInterface: IPowerPointOptions;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TPowerPointOptions.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TPowerPointOptionsProperties.Create(Self);
{$ENDIF}
end;

destructor TPowerPointOptions.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TPowerPointOptions.GetServerProperties: TPowerPointOptionsProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TPowerPointOptions.Get_FitToPage: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FitToPage;
end;

procedure TPowerPointOptions.Set_FitToPage(Value: OleVariant);
begin
  DefaultInterface.Set_FitToPage(Value);
end;

function TPowerPointOptions.Get_PrintHiddenSlides: ThreeStateFlag;
begin
    Result := DefaultInterface.PrintHiddenSlides;
end;

procedure TPowerPointOptions.Set_PrintHiddenSlides(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_PrintHiddenSlides(Value);
end;

function TPowerPointOptions.Get_OutputType: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.OutputType;
end;

procedure TPowerPointOptions.Set_OutputType(Value: OleVariant);
begin
  DefaultInterface.Set_OutputType(Value);
end;

function TPowerPointOptions.Get_FrameSlides: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FrameSlides;
end;

procedure TPowerPointOptions.Set_FrameSlides(Value: OleVariant);
begin
  DefaultInterface.Set_FrameSlides(Value);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TPowerPointOptionsProperties.Create(AServer: TPowerPointOptions);
begin
  inherited Create;
  FServer := AServer;
end;

function TPowerPointOptionsProperties.GetDefaultInterface: IPowerPointOptions;
begin
  Result := FServer.DefaultInterface;
end;

function TPowerPointOptionsProperties.Get_FitToPage: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FitToPage;
end;

procedure TPowerPointOptionsProperties.Set_FitToPage(Value: OleVariant);
begin
  DefaultInterface.Set_FitToPage(Value);
end;

function TPowerPointOptionsProperties.Get_PrintHiddenSlides: ThreeStateFlag;
begin
    Result := DefaultInterface.PrintHiddenSlides;
end;

procedure TPowerPointOptionsProperties.Set_PrintHiddenSlides(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_PrintHiddenSlides(Value);
end;

function TPowerPointOptionsProperties.Get_OutputType: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.OutputType;
end;

procedure TPowerPointOptionsProperties.Set_OutputType(Value: OleVariant);
begin
  DefaultInterface.Set_OutputType(Value);
end;

function TPowerPointOptionsProperties.Get_FrameSlides: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FrameSlides;
end;

procedure TPowerPointOptionsProperties.Set_FrameSlides(Value: OleVariant);
begin
  DefaultInterface.Set_FrameSlides(Value);
end;

{$ENDIF}

class function CoSkin.Create: ISkin;
begin
  Result := CreateComObject(CLASS_Skin) as ISkin;
end;

class function CoSkin.CreateRemote(const MachineName: string): ISkin;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Skin) as ISkin;
end;

procedure TSkin.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{BFA7C6D9-B701-466E-8F79-AAA61981C67B}';
    IntfIID:   '{7C0BBF6C-4E9F-438F-A4FE-92BB705EE1A1}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TSkin.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ISkin;
  end;
end;

procedure TSkin.ConnectTo(svrIntf: ISkin);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TSkin.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TSkin.GetDefaultInterface: ISkin;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TSkin.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TSkinProperties.Create(Self);
{$ENDIF}
end;

destructor TSkin.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSkin.GetServerProperties: TSkinProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TSkin.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TSkin.Get_ToolbarBgrColor: Integer;
begin
    Result := DefaultInterface.ToolbarBgrColor;
end;

procedure TSkin.Set_ToolbarBgrColor(Value: Integer);
begin
  DefaultInterface.Set_ToolbarBgrColor(Value);
end;

function TSkin.Get_OverButColor: Integer;
begin
    Result := DefaultInterface.OverButColor;
end;

procedure TSkin.Set_OverButColor(Value: Integer);
begin
  DefaultInterface.Set_OverButColor(Value);
end;

function TSkin.Get_OverRectColor: Integer;
begin
    Result := DefaultInterface.OverRectColor;
end;

procedure TSkin.Set_OverRectColor(Value: Integer);
begin
  DefaultInterface.Set_OverRectColor(Value);
end;

function TSkin.Get_DownButColor: Integer;
begin
    Result := DefaultInterface.DownButColor;
end;

procedure TSkin.Set_DownButColor(Value: Integer);
begin
  DefaultInterface.Set_DownButColor(Value);
end;

function TSkin.Get_DownRectColor: Integer;
begin
    Result := DefaultInterface.DownRectColor;
end;

procedure TSkin.Set_DownRectColor(Value: Integer);
begin
  DefaultInterface.Set_DownRectColor(Value);
end;

function TSkin.Get_DocBgrColor: Integer;
begin
    Result := DefaultInterface.DocBgrColor;
end;

procedure TSkin.Set_DocBgrColor(Value: Integer);
begin
  DefaultInterface.Set_DocBgrColor(Value);
end;

function TSkin.Get_ScrollBarColor: Integer;
begin
    Result := DefaultInterface.ScrollBarColor;
end;

procedure TSkin.Set_ScrollBarColor(Value: Integer);
begin
  DefaultInterface.Set_ScrollBarColor(Value);
end;

function TSkin.Get_ColorAdjustment: WideString;
begin
    Result := DefaultInterface.ColorAdjustment;
end;

procedure TSkin.Set_ColorAdjustment(const Value: WideString);
  { Warning: The property ColorAdjustment has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ColorAdjustment := Value;
end;

function TSkin.Get_ZoomHandleOffset: Integer;
begin
    Result := DefaultInterface.ZoomHandleOffset;
end;

procedure TSkin.Set_ZoomHandleOffset(Value: Integer);
begin
  DefaultInterface.Set_ZoomHandleOffset(Value);
end;

function TSkin.Get_LogoURL: WideString;
begin
    Result := DefaultInterface.LogoURL;
end;

procedure TSkin.Set_LogoURL(const Value: WideString);
  { Warning: The property LogoURL has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LogoURL := Value;
end;

function TSkin.Get_HelpButtonURL: WideString;
begin
    Result := DefaultInterface.HelpButtonURL;
end;

procedure TSkin.Set_HelpButtonURL(const Value: WideString);
  { Warning: The property HelpButtonURL has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.HelpButtonURL := Value;
end;

function TSkin.Get_TBBgrImgBehavior: IMGBEHAVIOR;
begin
    Result := DefaultInterface.TBBgrImgBehavior;
end;

procedure TSkin.Set_TBBgrImgBehavior(Value: IMGBEHAVIOR);
begin
  DefaultInterface.Set_TBBgrImgBehavior(Value);
end;

function TSkin.Get_FileName: WideString;
begin
    Result := DefaultInterface.FileName;
end;

function TSkin.Get_ID: TGUID;
begin
    Result := DefaultInterface.ID;
end;

function TSkin.Get_btnColorAdj: WordBool;
begin
    Result := DefaultInterface.btnColorAdj;
end;

procedure TSkin.Set_btnColorAdj(Value: WordBool);
begin
  DefaultInterface.Set_btnColorAdj(Value);
end;

function TSkin.Get_TextHighlightColor: Integer;
begin
    Result := DefaultInterface.TextHighlightColor;
end;

procedure TSkin.Set_TextHighlightColor(Value: Integer);
begin
  DefaultInterface.Set_TextHighlightColor(Value);
end;

procedure TSkin.SetToolbarImage(Img: TOOLBAR_IMAGE; sFileName: OleVariant);
begin
  DefaultInterface.SetToolbarImage(Img, sFileName);
end;

function TSkin.GetToolbarImage(Image: TOOLBAR_IMAGE): OleVariant;
begin
  Result := DefaultInterface.GetToolbarImage(Image);
end;

procedure TSkin.ApplyChanges;
begin
  DefaultInterface.ApplyChanges;
end;

procedure TSkin.LoadFromFile(const FileName: WideString);
begin
  DefaultInterface.LoadFromFile(FileName);
end;

procedure TSkin.SaveToFile(const FileName: WideString);
begin
  DefaultInterface.SaveToFile(FileName);
end;

function TSkin.SaveToStr: WideString;
begin
  Result := DefaultInterface.SaveToStr;
end;

procedure TSkin.Assign_(const _skin: ISkin);
begin
  DefaultInterface.Assign_(_skin);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSkinProperties.Create(AServer: TSkin);
begin
  inherited Create;
  FServer := AServer;
end;

function TSkinProperties.GetDefaultInterface: ISkin;
begin
  Result := FServer.DefaultInterface;
end;

function TSkinProperties.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TSkinProperties.Get_ToolbarBgrColor: Integer;
begin
    Result := DefaultInterface.ToolbarBgrColor;
end;

procedure TSkinProperties.Set_ToolbarBgrColor(Value: Integer);
begin
  DefaultInterface.Set_ToolbarBgrColor(Value);
end;

function TSkinProperties.Get_OverButColor: Integer;
begin
    Result := DefaultInterface.OverButColor;
end;

procedure TSkinProperties.Set_OverButColor(Value: Integer);
begin
  DefaultInterface.Set_OverButColor(Value);
end;

function TSkinProperties.Get_OverRectColor: Integer;
begin
    Result := DefaultInterface.OverRectColor;
end;

procedure TSkinProperties.Set_OverRectColor(Value: Integer);
begin
  DefaultInterface.Set_OverRectColor(Value);
end;

function TSkinProperties.Get_DownButColor: Integer;
begin
    Result := DefaultInterface.DownButColor;
end;

procedure TSkinProperties.Set_DownButColor(Value: Integer);
begin
  DefaultInterface.Set_DownButColor(Value);
end;

function TSkinProperties.Get_DownRectColor: Integer;
begin
    Result := DefaultInterface.DownRectColor;
end;

procedure TSkinProperties.Set_DownRectColor(Value: Integer);
begin
  DefaultInterface.Set_DownRectColor(Value);
end;

function TSkinProperties.Get_DocBgrColor: Integer;
begin
    Result := DefaultInterface.DocBgrColor;
end;

procedure TSkinProperties.Set_DocBgrColor(Value: Integer);
begin
  DefaultInterface.Set_DocBgrColor(Value);
end;

function TSkinProperties.Get_ScrollBarColor: Integer;
begin
    Result := DefaultInterface.ScrollBarColor;
end;

procedure TSkinProperties.Set_ScrollBarColor(Value: Integer);
begin
  DefaultInterface.Set_ScrollBarColor(Value);
end;

function TSkinProperties.Get_ColorAdjustment: WideString;
begin
    Result := DefaultInterface.ColorAdjustment;
end;

procedure TSkinProperties.Set_ColorAdjustment(const Value: WideString);
  { Warning: The property ColorAdjustment has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ColorAdjustment := Value;
end;

function TSkinProperties.Get_ZoomHandleOffset: Integer;
begin
    Result := DefaultInterface.ZoomHandleOffset;
end;

procedure TSkinProperties.Set_ZoomHandleOffset(Value: Integer);
begin
  DefaultInterface.Set_ZoomHandleOffset(Value);
end;

function TSkinProperties.Get_LogoURL: WideString;
begin
    Result := DefaultInterface.LogoURL;
end;

procedure TSkinProperties.Set_LogoURL(const Value: WideString);
  { Warning: The property LogoURL has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LogoURL := Value;
end;

function TSkinProperties.Get_HelpButtonURL: WideString;
begin
    Result := DefaultInterface.HelpButtonURL;
end;

procedure TSkinProperties.Set_HelpButtonURL(const Value: WideString);
  { Warning: The property HelpButtonURL has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.HelpButtonURL := Value;
end;

function TSkinProperties.Get_TBBgrImgBehavior: IMGBEHAVIOR;
begin
    Result := DefaultInterface.TBBgrImgBehavior;
end;

procedure TSkinProperties.Set_TBBgrImgBehavior(Value: IMGBEHAVIOR);
begin
  DefaultInterface.Set_TBBgrImgBehavior(Value);
end;

function TSkinProperties.Get_FileName: WideString;
begin
    Result := DefaultInterface.FileName;
end;

function TSkinProperties.Get_ID: TGUID;
begin
    Result := DefaultInterface.ID;
end;

function TSkinProperties.Get_btnColorAdj: WordBool;
begin
    Result := DefaultInterface.btnColorAdj;
end;

procedure TSkinProperties.Set_btnColorAdj(Value: WordBool);
begin
  DefaultInterface.Set_btnColorAdj(Value);
end;

function TSkinProperties.Get_TextHighlightColor: Integer;
begin
    Result := DefaultInterface.TextHighlightColor;
end;

procedure TSkinProperties.Set_TextHighlightColor(Value: Integer);
begin
  DefaultInterface.Set_TextHighlightColor(Value);
end;

{$ENDIF}

class function CoSkinCollection2.Create: ISkinCollection;
begin
  Result := CreateComObject(CLASS_SkinCollection2) as ISkinCollection;
end;

class function CoSkinCollection2.CreateRemote(const MachineName: string): ISkinCollection;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_SkinCollection2) as ISkinCollection;
end;

procedure TSkinCollection2.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{59FB2BAA-F8A4-486F-B206-C04C52467F6B}';
    IntfIID:   '{44B39C5D-9B7A-4715-8052-ED653D36F1BA}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TSkinCollection2.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ISkinCollection;
  end;
end;

procedure TSkinCollection2.ConnectTo(svrIntf: ISkinCollection);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TSkinCollection2.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TSkinCollection2.GetDefaultInterface: ISkinCollection;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TSkinCollection2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TSkinCollection2Properties.Create(Self);
{$ENDIF}
end;

destructor TSkinCollection2.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSkinCollection2.GetServerProperties: TSkinCollection2Properties;
begin
  Result := FProps;
end;
{$ENDIF}

function TSkinCollection2.Get_item(Index: OleVariant): OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.item[Index];
end;

function TSkinCollection2.Get_Count: Integer;
begin
    Result := DefaultInterface.Count;
end;

function TSkinCollection2.Add(const Name: WideString): ISkin;
begin
  Result := DefaultInterface.Add(Name);
end;

procedure TSkinCollection2.Delete(Index: OleVariant);
begin
  DefaultInterface.Delete(Index);
end;

procedure TSkinCollection2.RenameSkin(const Skin: ISkin; const NewName: WideString);
begin
  DefaultInterface.RenameSkin(Skin, NewName);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSkinCollection2Properties.Create(AServer: TSkinCollection2);
begin
  inherited Create;
  FServer := AServer;
end;

function TSkinCollection2Properties.GetDefaultInterface: ISkinCollection;
begin
  Result := FServer.DefaultInterface;
end;

function TSkinCollection2Properties.Get_item(Index: OleVariant): OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.item[Index];
end;

function TSkinCollection2Properties.Get_Count: Integer;
begin
    Result := DefaultInterface.Count;
end;

{$ENDIF}

class function CoExcelOptions2.Create: IExcelOptions;
begin
  Result := CreateComObject(CLASS_ExcelOptions2) as IExcelOptions;
end;

class function CoExcelOptions2.CreateRemote(const MachineName: string): IExcelOptions;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_ExcelOptions2) as IExcelOptions;
end;

procedure TExcelOptions2.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{8BBA0E11-7670-4866-81E6-6A173C49D54B}';
    IntfIID:   '{76F313A0-D328-44CE-B680-31896F2CC56E}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TExcelOptions2.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IExcelOptions;
  end;
end;

procedure TExcelOptions2.ConnectTo(svrIntf: IExcelOptions);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TExcelOptions2.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TExcelOptions2.GetDefaultInterface: IExcelOptions;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TExcelOptions2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TExcelOptions2Properties.Create(Self);
{$ENDIF}
end;

destructor TExcelOptions2.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TExcelOptions2.GetServerProperties: TExcelOptions2Properties;
begin
  Result := FProps;
end;
{$ENDIF}

function TExcelOptions2.Get_SheetRange: WideString;
begin
    Result := DefaultInterface.SheetRange;
end;

procedure TExcelOptions2.Set_SheetRange(const Value: WideString);
  { Warning: The property SheetRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SheetRange := Value;
end;

function TExcelOptions2.Get_OverridePrintQuality: WordBool;
begin
    Result := DefaultInterface.OverridePrintQuality;
end;

procedure TExcelOptions2.Set_OverridePrintQuality(Value: WordBool);
begin
  DefaultInterface.Set_OverridePrintQuality(Value);
end;

function TExcelOptions2.Get_SkipEmptySheets: WordBool;
begin
    Result := DefaultInterface.SkipEmptySheets;
end;

procedure TExcelOptions2.Set_SkipEmptySheets(Value: WordBool);
begin
  DefaultInterface.Set_SkipEmptySheets(Value);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TExcelOptions2Properties.Create(AServer: TExcelOptions2);
begin
  inherited Create;
  FServer := AServer;
end;

function TExcelOptions2Properties.GetDefaultInterface: IExcelOptions;
begin
  Result := FServer.DefaultInterface;
end;

function TExcelOptions2Properties.Get_SheetRange: WideString;
begin
    Result := DefaultInterface.SheetRange;
end;

procedure TExcelOptions2Properties.Set_SheetRange(const Value: WideString);
  { Warning: The property SheetRange has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SheetRange := Value;
end;

function TExcelOptions2Properties.Get_OverridePrintQuality: WordBool;
begin
    Result := DefaultInterface.OverridePrintQuality;
end;

procedure TExcelOptions2Properties.Set_OverridePrintQuality(Value: WordBool);
begin
  DefaultInterface.Set_OverridePrintQuality(Value);
end;

function TExcelOptions2Properties.Get_SkipEmptySheets: WordBool;
begin
    Result := DefaultInterface.SkipEmptySheets;
end;

procedure TExcelOptions2Properties.Set_SkipEmptySheets(Value: WordBool);
begin
  DefaultInterface.Set_SkipEmptySheets(Value);
end;

{$ENDIF}

class function CoPowerPointOptions2.Create: IPowerPointOptions;
begin
  Result := CreateComObject(CLASS_PowerPointOptions2) as IPowerPointOptions;
end;

class function CoPowerPointOptions2.CreateRemote(const MachineName: string): IPowerPointOptions;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_PowerPointOptions2) as IPowerPointOptions;
end;

procedure TPowerPointOptions2.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{C3AD97D1-FF33-4C51-B3D4-256DF543980B}';
    IntfIID:   '{7A3E353C-B57D-42CF-BE25-400444E85A6B}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TPowerPointOptions2.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IPowerPointOptions;
  end;
end;

procedure TPowerPointOptions2.ConnectTo(svrIntf: IPowerPointOptions);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TPowerPointOptions2.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TPowerPointOptions2.GetDefaultInterface: IPowerPointOptions;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TPowerPointOptions2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TPowerPointOptions2Properties.Create(Self);
{$ENDIF}
end;

destructor TPowerPointOptions2.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TPowerPointOptions2.GetServerProperties: TPowerPointOptions2Properties;
begin
  Result := FProps;
end;
{$ENDIF}

function TPowerPointOptions2.Get_FitToPage: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FitToPage;
end;

procedure TPowerPointOptions2.Set_FitToPage(Value: OleVariant);
begin
  DefaultInterface.Set_FitToPage(Value);
end;

function TPowerPointOptions2.Get_PrintHiddenSlides: ThreeStateFlag;
begin
    Result := DefaultInterface.PrintHiddenSlides;
end;

procedure TPowerPointOptions2.Set_PrintHiddenSlides(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_PrintHiddenSlides(Value);
end;

function TPowerPointOptions2.Get_OutputType: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.OutputType;
end;

procedure TPowerPointOptions2.Set_OutputType(Value: OleVariant);
begin
  DefaultInterface.Set_OutputType(Value);
end;

function TPowerPointOptions2.Get_FrameSlides: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FrameSlides;
end;

procedure TPowerPointOptions2.Set_FrameSlides(Value: OleVariant);
begin
  DefaultInterface.Set_FrameSlides(Value);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TPowerPointOptions2Properties.Create(AServer: TPowerPointOptions2);
begin
  inherited Create;
  FServer := AServer;
end;

function TPowerPointOptions2Properties.GetDefaultInterface: IPowerPointOptions;
begin
  Result := FServer.DefaultInterface;
end;

function TPowerPointOptions2Properties.Get_FitToPage: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FitToPage;
end;

procedure TPowerPointOptions2Properties.Set_FitToPage(Value: OleVariant);
begin
  DefaultInterface.Set_FitToPage(Value);
end;

function TPowerPointOptions2Properties.Get_PrintHiddenSlides: ThreeStateFlag;
begin
    Result := DefaultInterface.PrintHiddenSlides;
end;

procedure TPowerPointOptions2Properties.Set_PrintHiddenSlides(Value: ThreeStateFlag);
begin
  DefaultInterface.Set_PrintHiddenSlides(Value);
end;

function TPowerPointOptions2Properties.Get_OutputType: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.OutputType;
end;

procedure TPowerPointOptions2Properties.Set_OutputType(Value: OleVariant);
begin
  DefaultInterface.Set_OutputType(Value);
end;

function TPowerPointOptions2Properties.Get_FrameSlides: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.FrameSlides;
end;

procedure TPowerPointOptions2Properties.Set_FrameSlides(Value: OleVariant);
begin
  DefaultInterface.Set_FrameSlides(Value);
end;

{$ENDIF}

class function CoSkin2.Create: ISkin;
begin
  Result := CreateComObject(CLASS_Skin2) as ISkin;
end;

class function CoSkin2.CreateRemote(const MachineName: string): ISkin;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Skin2) as ISkin;
end;

procedure TSkin2.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{8E45F671-B29D-460A-928A-522D5164704B}';
    IntfIID:   '{7C0BBF6C-4E9F-438F-A4FE-92BB705EE1A1}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TSkin2.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ISkin;
  end;
end;

procedure TSkin2.ConnectTo(svrIntf: ISkin);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TSkin2.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TSkin2.GetDefaultInterface: ISkin;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TSkin2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TSkin2Properties.Create(Self);
{$ENDIF}
end;

destructor TSkin2.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSkin2.GetServerProperties: TSkin2Properties;
begin
  Result := FProps;
end;
{$ENDIF}

function TSkin2.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TSkin2.Get_ToolbarBgrColor: Integer;
begin
    Result := DefaultInterface.ToolbarBgrColor;
end;

procedure TSkin2.Set_ToolbarBgrColor(Value: Integer);
begin
  DefaultInterface.Set_ToolbarBgrColor(Value);
end;

function TSkin2.Get_OverButColor: Integer;
begin
    Result := DefaultInterface.OverButColor;
end;

procedure TSkin2.Set_OverButColor(Value: Integer);
begin
  DefaultInterface.Set_OverButColor(Value);
end;

function TSkin2.Get_OverRectColor: Integer;
begin
    Result := DefaultInterface.OverRectColor;
end;

procedure TSkin2.Set_OverRectColor(Value: Integer);
begin
  DefaultInterface.Set_OverRectColor(Value);
end;

function TSkin2.Get_DownButColor: Integer;
begin
    Result := DefaultInterface.DownButColor;
end;

procedure TSkin2.Set_DownButColor(Value: Integer);
begin
  DefaultInterface.Set_DownButColor(Value);
end;

function TSkin2.Get_DownRectColor: Integer;
begin
    Result := DefaultInterface.DownRectColor;
end;

procedure TSkin2.Set_DownRectColor(Value: Integer);
begin
  DefaultInterface.Set_DownRectColor(Value);
end;

function TSkin2.Get_DocBgrColor: Integer;
begin
    Result := DefaultInterface.DocBgrColor;
end;

procedure TSkin2.Set_DocBgrColor(Value: Integer);
begin
  DefaultInterface.Set_DocBgrColor(Value);
end;

function TSkin2.Get_ScrollBarColor: Integer;
begin
    Result := DefaultInterface.ScrollBarColor;
end;

procedure TSkin2.Set_ScrollBarColor(Value: Integer);
begin
  DefaultInterface.Set_ScrollBarColor(Value);
end;

function TSkin2.Get_ColorAdjustment: WideString;
begin
    Result := DefaultInterface.ColorAdjustment;
end;

procedure TSkin2.Set_ColorAdjustment(const Value: WideString);
  { Warning: The property ColorAdjustment has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ColorAdjustment := Value;
end;

function TSkin2.Get_ZoomHandleOffset: Integer;
begin
    Result := DefaultInterface.ZoomHandleOffset;
end;

procedure TSkin2.Set_ZoomHandleOffset(Value: Integer);
begin
  DefaultInterface.Set_ZoomHandleOffset(Value);
end;

function TSkin2.Get_LogoURL: WideString;
begin
    Result := DefaultInterface.LogoURL;
end;

procedure TSkin2.Set_LogoURL(const Value: WideString);
  { Warning: The property LogoURL has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LogoURL := Value;
end;

function TSkin2.Get_HelpButtonURL: WideString;
begin
    Result := DefaultInterface.HelpButtonURL;
end;

procedure TSkin2.Set_HelpButtonURL(const Value: WideString);
  { Warning: The property HelpButtonURL has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.HelpButtonURL := Value;
end;

function TSkin2.Get_TBBgrImgBehavior: IMGBEHAVIOR;
begin
    Result := DefaultInterface.TBBgrImgBehavior;
end;

procedure TSkin2.Set_TBBgrImgBehavior(Value: IMGBEHAVIOR);
begin
  DefaultInterface.Set_TBBgrImgBehavior(Value);
end;

function TSkin2.Get_FileName: WideString;
begin
    Result := DefaultInterface.FileName;
end;

function TSkin2.Get_ID: TGUID;
begin
    Result := DefaultInterface.ID;
end;

function TSkin2.Get_btnColorAdj: WordBool;
begin
    Result := DefaultInterface.btnColorAdj;
end;

procedure TSkin2.Set_btnColorAdj(Value: WordBool);
begin
  DefaultInterface.Set_btnColorAdj(Value);
end;

function TSkin2.Get_TextHighlightColor: Integer;
begin
    Result := DefaultInterface.TextHighlightColor;
end;

procedure TSkin2.Set_TextHighlightColor(Value: Integer);
begin
  DefaultInterface.Set_TextHighlightColor(Value);
end;

procedure TSkin2.SetToolbarImage(Img: TOOLBAR_IMAGE; sFileName: OleVariant);
begin
  DefaultInterface.SetToolbarImage(Img, sFileName);
end;

function TSkin2.GetToolbarImage(Image: TOOLBAR_IMAGE): OleVariant;
begin
  Result := DefaultInterface.GetToolbarImage(Image);
end;

procedure TSkin2.ApplyChanges;
begin
  DefaultInterface.ApplyChanges;
end;

procedure TSkin2.LoadFromFile(const FileName: WideString);
begin
  DefaultInterface.LoadFromFile(FileName);
end;

procedure TSkin2.SaveToFile(const FileName: WideString);
begin
  DefaultInterface.SaveToFile(FileName);
end;

function TSkin2.SaveToStr: WideString;
begin
  Result := DefaultInterface.SaveToStr;
end;

procedure TSkin2.Assign_(const _skin: ISkin);
begin
  DefaultInterface.Assign_(_skin);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSkin2Properties.Create(AServer: TSkin2);
begin
  inherited Create;
  FServer := AServer;
end;

function TSkin2Properties.GetDefaultInterface: ISkin;
begin
  Result := FServer.DefaultInterface;
end;

function TSkin2Properties.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TSkin2Properties.Get_ToolbarBgrColor: Integer;
begin
    Result := DefaultInterface.ToolbarBgrColor;
end;

procedure TSkin2Properties.Set_ToolbarBgrColor(Value: Integer);
begin
  DefaultInterface.Set_ToolbarBgrColor(Value);
end;

function TSkin2Properties.Get_OverButColor: Integer;
begin
    Result := DefaultInterface.OverButColor;
end;

procedure TSkin2Properties.Set_OverButColor(Value: Integer);
begin
  DefaultInterface.Set_OverButColor(Value);
end;

function TSkin2Properties.Get_OverRectColor: Integer;
begin
    Result := DefaultInterface.OverRectColor;
end;

procedure TSkin2Properties.Set_OverRectColor(Value: Integer);
begin
  DefaultInterface.Set_OverRectColor(Value);
end;

function TSkin2Properties.Get_DownButColor: Integer;
begin
    Result := DefaultInterface.DownButColor;
end;

procedure TSkin2Properties.Set_DownButColor(Value: Integer);
begin
  DefaultInterface.Set_DownButColor(Value);
end;

function TSkin2Properties.Get_DownRectColor: Integer;
begin
    Result := DefaultInterface.DownRectColor;
end;

procedure TSkin2Properties.Set_DownRectColor(Value: Integer);
begin
  DefaultInterface.Set_DownRectColor(Value);
end;

function TSkin2Properties.Get_DocBgrColor: Integer;
begin
    Result := DefaultInterface.DocBgrColor;
end;

procedure TSkin2Properties.Set_DocBgrColor(Value: Integer);
begin
  DefaultInterface.Set_DocBgrColor(Value);
end;

function TSkin2Properties.Get_ScrollBarColor: Integer;
begin
    Result := DefaultInterface.ScrollBarColor;
end;

procedure TSkin2Properties.Set_ScrollBarColor(Value: Integer);
begin
  DefaultInterface.Set_ScrollBarColor(Value);
end;

function TSkin2Properties.Get_ColorAdjustment: WideString;
begin
    Result := DefaultInterface.ColorAdjustment;
end;

procedure TSkin2Properties.Set_ColorAdjustment(const Value: WideString);
  { Warning: The property ColorAdjustment has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ColorAdjustment := Value;
end;

function TSkin2Properties.Get_ZoomHandleOffset: Integer;
begin
    Result := DefaultInterface.ZoomHandleOffset;
end;

procedure TSkin2Properties.Set_ZoomHandleOffset(Value: Integer);
begin
  DefaultInterface.Set_ZoomHandleOffset(Value);
end;

function TSkin2Properties.Get_LogoURL: WideString;
begin
    Result := DefaultInterface.LogoURL;
end;

procedure TSkin2Properties.Set_LogoURL(const Value: WideString);
  { Warning: The property LogoURL has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.LogoURL := Value;
end;

function TSkin2Properties.Get_HelpButtonURL: WideString;
begin
    Result := DefaultInterface.HelpButtonURL;
end;

procedure TSkin2Properties.Set_HelpButtonURL(const Value: WideString);
  { Warning: The property HelpButtonURL has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.HelpButtonURL := Value;
end;

function TSkin2Properties.Get_TBBgrImgBehavior: IMGBEHAVIOR;
begin
    Result := DefaultInterface.TBBgrImgBehavior;
end;

procedure TSkin2Properties.Set_TBBgrImgBehavior(Value: IMGBEHAVIOR);
begin
  DefaultInterface.Set_TBBgrImgBehavior(Value);
end;

function TSkin2Properties.Get_FileName: WideString;
begin
    Result := DefaultInterface.FileName;
end;

function TSkin2Properties.Get_ID: TGUID;
begin
    Result := DefaultInterface.ID;
end;

function TSkin2Properties.Get_btnColorAdj: WordBool;
begin
    Result := DefaultInterface.btnColorAdj;
end;

procedure TSkin2Properties.Set_btnColorAdj(Value: WordBool);
begin
  DefaultInterface.Set_btnColorAdj(Value);
end;

function TSkin2Properties.Get_TextHighlightColor: Integer;
begin
    Result := DefaultInterface.TextHighlightColor;
end;

procedure TSkin2Properties.Set_TextHighlightColor(Value: Integer);
begin
  DefaultInterface.Set_TextHighlightColor(Value);
end;

{$ENDIF}

class function CoHTML5Options.Create: IHTML5Options;
begin
  Result := CreateComObject(CLASS_HTML5Options) as IHTML5Options;
end;

class function CoHTML5Options.CreateRemote(const MachineName: string): IHTML5Options;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_HTML5Options) as IHTML5Options;
end;

procedure THTML5Options.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{581A7B7C-BC4C-427C-826F-D2D44F14FB4B}';
    IntfIID:   '{00BDBB8E-1669-432C-AB0E-75F323118129}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure THTML5Options.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IHTML5Options;
  end;
end;

procedure THTML5Options.ConnectTo(svrIntf: IHTML5Options);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure THTML5Options.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function THTML5Options.GetDefaultInterface: IHTML5Options;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor THTML5Options.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := THTML5OptionsProperties.Create(Self);
{$ENDIF}
end;

destructor THTML5Options.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function THTML5Options.GetServerProperties: THTML5OptionsProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function THTML5Options.Get_Compression: WordBool;
begin
    Result := DefaultInterface.Compression;
end;

procedure THTML5Options.Set_Compression(Value: WordBool);
begin
  DefaultInterface.Set_Compression(Value);
end;

function THTML5Options.Get_Compatibility: BROWSER_TYPE;
begin
    Result := DefaultInterface.Compatibility;
end;

procedure THTML5Options.Set_Compatibility(Value: BROWSER_TYPE);
begin
  DefaultInterface.Set_Compatibility(Value);
end;

function THTML5Options.Get_VersionIE: WideString;
begin
    Result := DefaultInterface.VersionIE;
end;

procedure THTML5Options.Set_VersionIE(const Value: WideString);
  { Warning: The property VersionIE has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.VersionIE := Value;
end;

function THTML5Options.Get_VersionFireFox: WideString;
begin
    Result := DefaultInterface.VersionFireFox;
end;

procedure THTML5Options.Set_VersionFireFox(const Value: WideString);
  { Warning: The property VersionFireFox has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.VersionFireFox := Value;
end;

function THTML5Options.Get_VersionSafari: WideString;
begin
    Result := DefaultInterface.VersionSafari;
end;

procedure THTML5Options.Set_VersionSafari(const Value: WideString);
  { Warning: The property VersionSafari has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.VersionSafari := Value;
end;

function THTML5Options.Get_VersionChrome: WideString;
begin
    Result := DefaultInterface.VersionChrome;
end;

procedure THTML5Options.Set_VersionChrome(const Value: WideString);
  { Warning: The property VersionChrome has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.VersionChrome := Value;
end;

function THTML5Options.Get_VersionOpera: WideString;
begin
    Result := DefaultInterface.VersionOpera;
end;

procedure THTML5Options.Set_VersionOpera(const Value: WideString);
  { Warning: The property VersionOpera has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.VersionOpera := Value;
end;

function THTML5Options.Get_ViewMode: VIEW_MODE;
begin
    Result := DefaultInterface.ViewMode;
end;

procedure THTML5Options.Set_ViewMode(Value: VIEW_MODE);
begin
  DefaultInterface.Set_ViewMode(Value);
end;

function THTML5Options.Get_SinglePageModeThreshold: Integer;
begin
    Result := DefaultInterface.SinglePageModeThreshold;
end;

procedure THTML5Options.Set_SinglePageModeThreshold(Value: Integer);
begin
  DefaultInterface.Set_SinglePageModeThreshold(Value);
end;

function THTML5Options.Get_DocTemplate: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.DocTemplate;
end;

procedure THTML5Options.Set_DocTemplate(Value: OleVariant);
begin
  DefaultInterface.Set_DocTemplate(Value);
end;

function THTML5Options.Get_EmbedResources: WordBool;
begin
    Result := DefaultInterface.EmbedResources;
end;

procedure THTML5Options.Set_EmbedResources(Value: WordBool);
begin
  DefaultInterface.Set_EmbedResources(Value);
end;

function THTML5Options.Get_SubsetFonts: WordBool;
begin
    Result := DefaultInterface.SubsetFonts;
end;

procedure THTML5Options.Set_SubsetFonts(Value: WordBool);
begin
  DefaultInterface.Set_SubsetFonts(Value);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor THTML5OptionsProperties.Create(AServer: THTML5Options);
begin
  inherited Create;
  FServer := AServer;
end;

function THTML5OptionsProperties.GetDefaultInterface: IHTML5Options;
begin
  Result := FServer.DefaultInterface;
end;

function THTML5OptionsProperties.Get_Compression: WordBool;
begin
    Result := DefaultInterface.Compression;
end;

procedure THTML5OptionsProperties.Set_Compression(Value: WordBool);
begin
  DefaultInterface.Set_Compression(Value);
end;

function THTML5OptionsProperties.Get_Compatibility: BROWSER_TYPE;
begin
    Result := DefaultInterface.Compatibility;
end;

procedure THTML5OptionsProperties.Set_Compatibility(Value: BROWSER_TYPE);
begin
  DefaultInterface.Set_Compatibility(Value);
end;

function THTML5OptionsProperties.Get_VersionIE: WideString;
begin
    Result := DefaultInterface.VersionIE;
end;

procedure THTML5OptionsProperties.Set_VersionIE(const Value: WideString);
  { Warning: The property VersionIE has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.VersionIE := Value;
end;

function THTML5OptionsProperties.Get_VersionFireFox: WideString;
begin
    Result := DefaultInterface.VersionFireFox;
end;

procedure THTML5OptionsProperties.Set_VersionFireFox(const Value: WideString);
  { Warning: The property VersionFireFox has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.VersionFireFox := Value;
end;

function THTML5OptionsProperties.Get_VersionSafari: WideString;
begin
    Result := DefaultInterface.VersionSafari;
end;

procedure THTML5OptionsProperties.Set_VersionSafari(const Value: WideString);
  { Warning: The property VersionSafari has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.VersionSafari := Value;
end;

function THTML5OptionsProperties.Get_VersionChrome: WideString;
begin
    Result := DefaultInterface.VersionChrome;
end;

procedure THTML5OptionsProperties.Set_VersionChrome(const Value: WideString);
  { Warning: The property VersionChrome has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.VersionChrome := Value;
end;

function THTML5OptionsProperties.Get_VersionOpera: WideString;
begin
    Result := DefaultInterface.VersionOpera;
end;

procedure THTML5OptionsProperties.Set_VersionOpera(const Value: WideString);
  { Warning: The property VersionOpera has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.VersionOpera := Value;
end;

function THTML5OptionsProperties.Get_ViewMode: VIEW_MODE;
begin
    Result := DefaultInterface.ViewMode;
end;

procedure THTML5OptionsProperties.Set_ViewMode(Value: VIEW_MODE);
begin
  DefaultInterface.Set_ViewMode(Value);
end;

function THTML5OptionsProperties.Get_SinglePageModeThreshold: Integer;
begin
    Result := DefaultInterface.SinglePageModeThreshold;
end;

procedure THTML5OptionsProperties.Set_SinglePageModeThreshold(Value: Integer);
begin
  DefaultInterface.Set_SinglePageModeThreshold(Value);
end;

function THTML5OptionsProperties.Get_DocTemplate: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.DocTemplate;
end;

procedure THTML5OptionsProperties.Set_DocTemplate(Value: OleVariant);
begin
  DefaultInterface.Set_DocTemplate(Value);
end;

function THTML5OptionsProperties.Get_EmbedResources: WordBool;
begin
    Result := DefaultInterface.EmbedResources;
end;

procedure THTML5OptionsProperties.Set_EmbedResources(Value: WordBool);
begin
  DefaultInterface.Set_EmbedResources(Value);
end;

function THTML5OptionsProperties.Get_SubsetFonts: WordBool;
begin
    Result := DefaultInterface.SubsetFonts;
end;

procedure THTML5OptionsProperties.Set_SubsetFonts(Value: WordBool);
begin
  DefaultInterface.Set_SubsetFonts(Value);
end;

{$ENDIF}

procedure Register;
begin
  RegisterComponents(dtlServerPage, [TServer, TProfile, TBatchProcessingOptions, TPrintingPreferences, 
    TServer2, TProfile2, TBatchProcessingOptions2, TPrintingPreferences2, TP2FApp, 
    TSkinCollection, TExcelOptions, TPowerPointOptions, TSkin, TSkinCollection2, 
    TExcelOptions2, TPowerPointOptions2, TSkin2, THTML5Options]);
end;

end.
