Debenu Quick PDF Library - PDF SDK Community Forum : Example - AutoIt - Debenu PDF Viewer SDK http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 08 May 2026 06:08:31 +0000 Thu, 05 Jun 2014 12:38:03 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=2913 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[Example - AutoIt - Debenu PDF Viewer SDK : AutoIt Example forDebenu PDF Viewer...]]> http://www.quickpdf.org/forum/example-autoit-debenu-pdf-viewer-sdk_topic2913_post11764.html#11764 Author: mLipok
Subject: 2913
Posted: 05 Jun 14 at 12:38PM

AutoIt Example for Debenu PDF Viewer SDK:
{this is very similar to VisualBasic so I think it is useful}

#Region QuickPDF Include
#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <File.au3>
#include <WinAPIFiles.au3>
#EndRegion QuickPDF Include

Example(FileOpenDialog('Select PDF File','c:\','PDF File (*.pdf)'))

Func Example($sPDF_FileFullPath)

; Create ActivX object
Local $oQPV = ObjCreate('DPVACTIVEX.Viewer')
$oQPV.LibraryPath = @ScriptDir & '\DebenuPDFLibraryDLL1014.dll'
$oQPV.RendererPath = @ScriptDir & '\DebenuPDFRendererDLL1014.dll'
$oQPV.LicenseKey = 'ENTER YOUR KEY HERE'
$oQPV.ScrollbarsEnabled = True
$oQPV.ToolbarEnabled = True
$oQPV.OpenFile($sPDF_FileFullPath)
$oQPV.SetZoom(1)
$oQPV.GotoPage(1)

; Create a simple GUI for our output
GUICreate("Embedded Web control Test", 800, 600, (@DesktopWidth - 800) / 2, (@DesktopHeight - 600) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
GUICtrlCreateObj($oQPV, 10, 10, 780, 500)
$oQPV.ZoomFitPage()
Local $idButton_Back = GUICtrlCreateButton("Back", 10, 520, 100, 30)
Local $idButton_Forward = GUICtrlCreateButton("Forward", 120, 520, 100, 30)
Local $idButton_Home = GUICtrlCreateButton("Home", 230, 520, 100, 30)

GUISetState(@SW_SHOW) ;Show GUI

; Loop until the user exits.
Local $iMsg
While 1
$iMsg = GUIGetMsg()

Select
Case $iMsg = $GUI_EVENT_CLOSE
ExitLoop
Case $iMsg = $idButton_Back
$oQPV.PrevPage()
Case $iMsg = $idButton_Forward
$oQPV.NextPage()
Case $iMsg = $idButton_Home
$oQPV.GotoPage(1)

EndSelect

WEnd
$oQPV = '' ; CleanUp

GUIDelete()
EndFunc   ;==>Example

Cheers
mLipok




Edited by mLipok - 15 Sep 14 at 9:28AM]]> Thu, 05 Jun 2014 12:38:03 +0000 http://www.quickpdf.org/forum/example-autoit-debenu-pdf-viewer-sdk_topic2913_post11764.html#11764