Differences

This shows you the differences between two versions of the page.

--- software:pdfprocessing:flattenandcompactpdf_a4size [2011/08/07 18:14] – [Usage] admin
+++ software:pdfprocessing:flattenandcompactpdf_a4size [2011/08/22 22:31] (current) – removed admin
@@ Line 1: / Line 1: @@
-====== FlattenANDCompactPDF_a4size ======
-^  [[software:pdfprocessing|Click here to go back to the main page]]  ^
-Please see for the source code below.
-===== Installation =====
-The program has been written for and tested on a Microsoft Windows XP system with the script language [[http://www.autoitscript.com/autoit3/|autoit3]]. In order to function it needs to cooperate with a few other applications, which need to be installed as well. These are Ghostscript and ImageMagick.\\ NB 1. Microsoft Visual C++ 2008 SP1 should be installed due to incompatibility issues with the script.\\ NB 2. During installation of ImageMagick you have to enable manually the option "Install ImageMagickObject: OLE Control for VBscript, Visual Basic, and WSH."\\ \\ Download and install following files:
-  * Ghostscript: [[http://www.auditeon.com/xyz/projects/gs856w32.exe]]
-  * Microsoft Visual C++ 2008 SP1: [[http://www.microsoft.com/downloads/details.aspx?familyid=A5C84275-3B97-4AB7-A40D-3802B2AF5FC2|search there for vcredist_x86.exe]]((Alternatively, when not found, click here: [[http://www.auditeon.com/xyz/projects/vcredist_x86.exe|vcredist_x86.exe]]))
-  * ImageMagick: [[http://www.auditeon.com/xyz/projects/ImageMagick-6.5.6-10-Q16-windows-dll.exe|ImageMagick]]
-Once all files have been downloaded and installed, finally download:
-  * The application FlattenANDCompactPDF_A4Size: [[http://www.auditeon.com/xyz/projects/FlattenANDCompactPDF_A4Size.exe|FlattenANDCompactPDF_A4Size.exe]]
-  * crc32 code: 0xa42de0ae
-===== Usage =====
-Either use drag and drop with your pdf or tif file(s) onto the exe, or add the file(s) as argument.\\ \\ Nb. It is possible to run several instances of the same exe file. There will be no conflicts between them. With this you are able to process several files simultaneously, reducing the total processing time -assuming your computer has multiple cores-.
-==== (Program filename) Options ====
-  * To specify the resolution, add either **-rNNN** or **-rNNNN** to your program name. For example if your exe file is called FlattenANDCompactPDF_A4Size.exe, rename it to FlattenANDCompactPDF_A4Size -r600.exe
-  * To add automatically empty pages at the end of the document when the amount of pages is not a multiple of 4, add **-q** to your program name. For example if your exe file is called FlattenANDCompactPDF_A4Size -r600.exe, rename it to FlattenANDCompactPDF_A4Size -r600 -q.exe
-===== History =====
-  * Changes in v0.8c, 7th of August 2011
-    * Added option to specify the output resolution((not fully tested)).
-    * Added option to automatically add empty pages at the end of the document when the amount of pages is not a multiple of 4. If enabled, it will only add pages when the total amount of pages is at least 3.
-  * Changes in v0.8b, 29th of July 2011
-    * Cleaning up code of the main process due to similarity between processing of tiff and pdf.
-    * Fixed a minor bug with page sizes which were almost a4 and did not caused the algorithm to correct for rasterization rounding errors.
-    * changed comments in the code.
-  * Changes in v0.8, 28th of July 2011
-    * New feature: apart from pdf files, it now also accepts per drag and drop one or more .tif files, which are rescaled and converted so that the resulting file will be a pdf file with exactly a4 page dimensions.
-  * Changes in v0.7, Februari 2010
-    * Optimize pdf conversion algorithm to increase speed.
-===== Source code =====
-Please note: the code is as is. No warranty is given, nor any support.
-<code>; FlattenANDCompactPDF_A4Size, flatten one or more pdf files with multiple layers into compact black & white pdf files.
-; Alternatively tif files which are supplied per drag and drop are converted to pdf as well.
-; Copyright (C) Februari 2010, August 2011 by Marc Nijdam
-;
-; This program is free software: you can redistribute it and/or modify
-; it under the terms of the GNU General Public License as published by
-; the Free Software Foundation, either version 3 of the License, or
-; any later version.
-;
-; This program is distributed in the hope that it will be useful,
-; but WITHOUT ANY WARRANTY; without even the implied warranty of
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-; GNU General Public License for more details.
-;
-; You should have received a copy of the GNU General Public License
-; along with this program.  If not, see <http://www.gnu.org/licenses/>
-;
-; Contact details: http://www.nijdam.de/marc.html
-;
-#requireadmin ; This program should have proper rights to start external applications. Presumably this behaviour requires user admin rights
-#include <Constants.au3> ; Used for registry constants like REG_SZ, REG_DWORD etc.
-#include <Process.au3>
-#include <file.au3>
-#include <GUIConstantsEx.au3>
-#include <EditConstants.au3>
-#include <Math.au3>
-#Include <String.au3>
-#Include <Array.au3>
-Global Const $ThisProgramVersion = "0.8c" ; Current release of this software
-Global Const $ThisProgramDate = "07-08-2011" ; Release date
-Global Const $ThisProgramName = "FlattenANDCompactPDF_A4Size" ; full filename without spaces and without exe extension
-; Dependencies constants
-Global Const $Ghostscript_name = "gs\gs" ; unique string to search for in %PATH% whether Ghostscript is installed or not
-Global Const $Ghostscript_RegPath = "HKEY_LOCAL_MACHINE\SOFTWARE\GPL Ghostscript" ; registry path for Ghostscript
-Global Const $imagemagick_name = "imagemagick" ; unique string to search for in %PATH% whether ImageMagick is installed or not
-Global Const $imagemagick_RegPath = "HKEY_LOCAL_MACHINE\SOFTWARE\ImageMagick\Current" ; registry path for ImageMagick
-; Requires Imagemagick installation from http://www.imagemagick.org (See over there. Choose the dynamic, 16 bit images version)
-; Path environment variable should be pointing to imagemagick, (default installation will add this to the %PATH% environment variable, which is persistant)
-; If not there, this script adds the following temporarily: %PROGRAMFILES%\imagemagick
-;
-; This program requires Ghostscript, which may be found at http://sourceforge.net/projects/ghostscript/
-; Path environment variable should be pointing to: %PROGRAMFILES%\gs\gs8.xx\bin;%PROGRAMFILES%\gs\gs8.xx\lib
-;
-; The following solves a R6034 (AutoIt3 related) error:
-; http://www.microsoft.com/downloads/details.aspx?familyid=A5C84275-3B97-4AB7-A40D-3802B2AF5FC2
-;
-; Nb.:
-; Write an environment variable: EnvSet ( "envvariable" [, "value"] )
-; ControlClick($parentWindowName,"ViewPages", ,2, 12, 81)
-; $CmdLine[0] = number of parameters
-; $CmdLine[1] = first parameter
-; Current temporary filename: pdf2tif00000_etcetera
-; Optional parameters which can be added at the last part of the filename:
-; -q  ->   This will make sure the pdf file has a multiple of 4 pages (Only if the document contains at
-;          least 3 pages). This option is a practical way to correct page layout with odd and even pages.
-;          It adds as many as necessary white pages at the end. For example, if your document consists
-;          of 7 pages, it will add one empty page at the end. The only necesary thing to do then is
-;          verify if the white page is at the correct location. A way to check this if page numbers
-;          appear on the inside instead of the outside of pages.
-; -r300 -> Set resolution of your images in the pdf document. If not specified, it will default to 300dpi
-; Error constants
-Global Const $_ERROR_MissingImageMagickObject = -1
-Global Const $_ERROR_PdfInputFileIsNotValid = -2
-Global Const $_ERROR_ShowHelp = -3
-Global Const $_ERROR_PdfImageSizeTooLarge = -4
-Global Const $_ERROR_CannotFindGhostscript = -5
-Global Const $_ERROR_imagemagickNotInstalled = -6
-Global Const $_ERROR_MSVisualCPlusPlus2008RedistNotInstalled = -7
-Global Const $_ERROR_PDF_FileInconsistent = -8
-; Gui constants
-Global Const $Gui_Title = $ThisProgramName
-Global $nEdit
-; program options
-; $cmdOptions[$_QuadPages] -> False means no quadruple pages
-; $cmdOptions[$_Resolution] -> resolution. All Files and all pages within a batch should have the same resolution.
-; Initialize with adding empty pages disabled and a resolution of 300dpi
-Global Const $_OptionChr = '-'
-Global Const $_QuadPages = 0
-Global Const $_Resolution = 1
-Dim $cmdOptions[2] = [	False, _
-]
-parseCmdOptions(@ScriptName,$cmdOptions) ; Parse the name of the program, check for 'embedded' commands and reinitialize
-; tif and pdf constants
-Global Const $rastering = 72 ; PDF rastering value
-Global Const $img_width = ($cmdOptions[$_Resolution]/3)*(2480/100); 2480 for a4, constant in pixels, defining what the page width may be at most when portrait modus is used
-Global Const $img_height = ($cmdOptions[$_Resolution]/3)*(3508/100) ; 3508 for a4, constant in pixels, defining what the page height may be at most when portrait modus is used
-Global Const $pdfdims[2] = [String(Int(($rastering*$img_width/$cmdOptions[$_Resolution])+0.5)),String(Int(($rastering*$img_height/$cmdOptions[$_Resolution])+0.5))] ; Array holding pdf rastering sizes a4 should be 595x842
-Global Const $bitmaperror = int($cmdOptions[$_Resolution]/300) ; To compensate for apparent errors during rasterization of pdf files with ghostscript, a deviation of 1 pixel per 300 dpi will use some quantization
-Global Const $tif = ".tif" ; File extensie voor tif files
-Global Const $ps = ".ps" ; File extensie voor ps files
-Global Const $pdf = ".pdf" ; File extensie voor pdf files
-; program specific constants
-Global Const $Delay=400 ; Short waiting time necessary to retreive console output.
-Global Const $tempname = @TempDir & "\" & $ThisProgramName & String(StringFormat("%05s",  @AutoItPID )) ; Unique name for temporary files
-Global Const $QQ = '"'
-Dim $szDrive, $szDir, $szFName, $szExt
-Dim $i , $j, $k
-Dim $Pdf_ListOfFiles2Proces = $tempname & "lst.txt" ; Filename for file with list holding each filename for a single pdf page
-Dim $Pdf_tmp_FileName = $tempname & "Processed" & $pdf
-; ######################################################################################################
-; # main
-; ######################################################################################################
-CheckAndSetEnv() ; Check dependencies and set environment variables
-GarbageControl($ThisProgramName) ; Cleanup temporary files in $TempDir, but only if no other instances of this program are running.
-; Iterate through all via the command line or per 'drag and drop' supplied files
-$nEdit = CreateGUI($ThisProgramName) ; Create window with info
-Dim $TotalPages ; Counted pdf pages for each document
-Dim $tmp
-Dim $GetFileName
-Dim $LandscapePages[1] ; Array which holds per page landscape or portrait rotation
-Dim $PageFitsExact[1] ; Array which holds per page whether it is exactly a4 dimension
-Dim $FileListArray = SortIfArrayContainsOnlyTiff(GetFileListArray($CmdLine[0]))
-Const $isPDF = (GetExtension($FileListArray[1]) == $pdf) ; check if first (and thus all the rest as well) file is pdf file. True means all the supplied files are pdf.
-; differentiate below between supplied tiff or pdf files. The same code can't be simply used for either tiff or pdf files, since it contains many optimalizations specifically for pdf
-If $isPDF Then
-	For $i = 1 to UBound($FileListArray)-1
-		$GetFileName = $FileListArray[$i]
-		GUICtrlSetData($nEdit, "###### Processing file " & String($i) & " of " & String(UBound($FileListArray)-1) & " ######" & @CRLF, 1)
-		GUICtrlSetData($nEdit, "Current file: " & RemovePath($GetFileName) & @CRLF & @CRLF, 1)
-		GUICtrlSetData($nEdit, "Analyzing document..." & @CRLF, 1)
-		$TotalPages = Number(CountPdfPages($GetFileName,$tempname))
-		If $TotalPages == 0 Then ; pdf file contains 0 pages (means wrong type of file)
-			GUICtrlSetData($nEdit, "->Found 0 pages, skipping this file." & @CRLF & @CRLF, 1)
-		Else
-			GUICtrlSetData($nEdit, "->Found " & $TotalPages & " page(s)" & @CRLF, 1)
-			ProcessPages($TotalPages, $pdf, $GetFileName, $tempname, $Pdf_ListOfFiles2Proces, $FileListArray, $cmdOptions[$_QuadPages])
-		EndIf
-	Next
-Else ; process below tiff files
-		GUICtrlSetData($nEdit, "###### Processing tiff files ######" & @CRLF, 1)
-		$TotalPages = UBound($FileListArray)-1 ; number of suppplied tif files.
-		GUICtrlSetData($nEdit, "->Found " & $TotalPages & " image(s)" & @CRLF, 1)
-		ProcessPages($TotalPages, $tif, $GetFileName, $tempname, $Pdf_ListOfFiles2Proces, $FileListArray, $cmdOptions[$_QuadPages])
-EndIf
-Exit
-; ######################################################################################################
-; # Below are functions
-; ######################################################################################################
-;
-; Receives the amount of arguments, create a list of files to process. As such Array[0] contains the
-; number of supplied files and check if this program is invoked through Scite.
-Func GetFileListArray(Const $count)
-	If @Compiled <> 0 Then
-		If $count == 0 Then ShowError($_ERROR_ShowHelp) ; number of parameters
-		Return $CmdLine
-	Else ; When invoking this program from within the Scite compiler, use some preset variables for which file to use
-		Local $dbg=$tif ; Choose either $tif or $pdf
-		If $dbg == $pdf Then
-			Local $FileNames = StringSplit("test_size-error-2481x3507_page.01.pdf",",")
-;			Local $FileNames = StringSplit("test_GS_NotA4_IM_AlmostA4.pdf,a4_2480x3508BWtest.pdf",",")
-;			Local $FileNames = StringSplit("test_GS_NotA4_IM_AlmostA4.pdf,a4_2480x3508BWtest.pdf,test_4_pages_oversized_grey.pdf",",")
-;			Local $FileNames = StringSplit("test_GS_NotA4_IM_AlmostA4.pdf,a4_2480x3508BWtest.pdf,test_4_pages_oversized_grey.pdf,test_size-error-2481x3507.pdf",",")
-;			Local $FileNames = StringSplit("test_GS_NotA4_IM_AlmostA4.pdf,a4_2480x3508BWtest.pdf,test_4_pages_oversized_grey.pdf,test_size-error-2481x3507.pdf,test_2_pages_landscape.pdf",",")
-;			Local $FileNames = StringSplit("test_GS_NotA4_IM_AlmostA4.pdf,a4_2480x3508BWtest.pdf,test_4_pages_oversized_grey.pdf,test_size-error-2481x3507.pdf,test_2_pages_landscape.pdf,test_4_pages_oversized_grey.pdf",",")
-;			Local $FileNames = StringSplit("test_GS_NotA4_IM_AlmostA4.pdf,a4_2480x3508BWtest.pdf,test_4_pages_oversized_grey.pdf,test_size-error-2481x3507.pdf,test_2_pages_landscape.pdf,test_4_pages_oversized_grey.pdf,buggyfile_2pages_instead_of_18pages.pdf",",")
-		Else
-;			Local $FileNames = StringSplit("0002_bartok_2.tiff,0001_bartok_1.tiff,0003_bartok_3.tiff,0005_bartok_5.tiff,0004_bartok_4.tiff,test_size-error-2481x3507.pdf",",")
-;			Local $FileNames = StringSplit("0002_bartok_2.tiff,0001_bartok_1.tiff,0003_bartok_3.tiff,0005_bartok_5.tiff,0004_bartok_4.tiff",",")
-			Local $FileNames = StringSplit("0002_bartok_2.tiff,0001_bartok_1.tiff,0003_bartok_3.tiff",",")
-;			Local $FileNames = StringSplit("0002_bartok_2.tiff,0001_bartok_1.tiff",",")
-		EndIf
-		Return $FileNames ; return amount of files.
-	EndIf
-EndFunc
-Func parseCmdOptions(Const $cmdstrFull, ByRef $cmdOptions)
-	Local $cmdstr = StripExtension(StringRegExpReplace($cmdstrFull, '[ ]', ''))
-	Local $cmdpos = stringlen($cmdstr)
-	If ($cmdpos>0) Then
-		Do
-			Local $cmds = ""
-			Do
-				$cmdchr = stringmid($cmdstr,$cmdpos,1)
-				If ($cmdchr <> $_OptionChr) Then $cmds = $cmdchr & $cmds
-				$cmdpos = $cmdpos - 1
-			Until (($cmdpos == 0) Or ($cmdchr == $_OptionChr))
-				If ($cmdchr == $_OptionChr) Then
-					Switch (StringLower(StringLeft($cmds,1)))
-						Case 'q'
-							If (StringLen($cmds) == 1) Then
-								$cmdOptions[$_QuadPages] = True
-							EndIf
-						Case 'r'
-							If ((StringLen($cmds) == 4) Or (StringLen($cmds) == 5)) Then ; Allow 3 and 4 digits numbers, like 300 or 1200
-								If (StringRegExp(StringTrimLeft($cmds,1), '[^0-9]') == 0) Then ; Check if there are exclusively digits next to the cmd character
-								$cmdOptions[$_Resolution] = Int(Number(StringTrimLeft($cmds,1)))
-								EndIf
-							EndIf
-						Case Else
-					EndSwitch
-				EndIf
-		Until ($cmdpos == 0)
-	EndIf
-EndFunc
-; Convert accurately a single page from a pdf file into a bitmap tif
-; For each page:
-;     GS_Get_PDF_BoundingBoxes()
-;     BoundingBox=[lower left x, lower left y, upper right x, upper right y] ; if not available, get [0,0,0,0]
-;     HiResBoundingBox=[lower left x, lower left y, upper right x, upper right y] ; if not available, get [0,0,0,0]
-;     When gswin32c outputs error text, indicate with 1, otherwise 0
-;
-;     A4Quantization=False
-;     If HiResBoundingBox(lower left x + upper right x, lower left y + upper right y) < BoundingBox(lower left x + upper right x, lower left y + upper right y) Then
-;        If -1 < Pixel Error < 1 Then
-;           A4Quantization=True
-;        EndIf
-;     Else
-;        gswin32c -sDEVICE=tiffgray -r300 -dNOPAUSE -dQUIET -dBATCH -dAutoFilterGrayImages=false -dGrayImageFilter=/LZWEncode -dFirstPage=1 -dLastPage=1 -sOutputFile=output.tif input
-;        IM_Get_Image_Dimension()
-;        If -1 < Pixel Error < 1 Then
-;           If IM_Get_PDF_BoundingBox() == 595x842 OR IM_Get_PDF_BoundingBox() == 842x595 Then
-;              A4Quantization=True
-;           EndIf
-;        EndIf
-;     EndIf
-;     If A4Quantization=True Then
-;          gswin32c -sDEVICE=tiffg4 -r300 (-g2480x3508|-g3508x2480) -dMaxStripSize=8192 -dFirstPage=1 -dLastPage=1 -sOutputFile=output.tif input
-;     EndIf
-;     Return this_page.pdf
-Func ExtractPageAsTif(Const $GetFileName, Const $j, Const $tempname)
-	Local $tmpbase = $tempname & "_" & String(StringFormat("%05s", $j)) & "tmp"
-	Local $GSResults[9], $IMDims[2]
-	Local $x, $y, $xx, $yy, $quantize, $command
-	Local $pagedims[2] ; String holding page dimensions. With a4 at 300 dpi, it is 2480x3508, with landscape 3508x2480
-	$GSResults = GS_Get_PDF_BoundingBoxes($GetFileName, $j); Array holding page dimensions from Ghostscript bbox command and error flag
-	If $GSResults[8] Then ShowError($_ERROR_PDF_FileInconsistent) ; If ghostscript threw an error, maybe not all pages can be retreived. Stopping now is the best option.
-	; Check for portrait or landscape orientation.
-	If ($GSResults[0] + $GSResults[2]) < ($GSResults[1] + $GSResults[3]) Then
-		$pagedims[0] = $img_width ; page is portrait
-		$pagedims[1] = $img_height
-	Else
-		$pagedims[0] = $img_height ; page is landscape
-		$pagedims[1] = $img_width
-	EndIf
-	; Check if quantization with 1 pixel necessary
-	If ($GSResults[4] + $GSResults[6]) < ($GSResults[0] + $GSResults[2]) AND _ ; Adding [4] + [6] is not what you would expect when calculating dimensions with coordinates
-	   ($GSResults[5] + $GSResults[7]) < ($GSResults[1] + $GSResults[3]) Then ; But either GS or IM is wrong in this. For now it gives accurate results of the page size
-		$x = int($cmdOptions[$_Resolution]/$rastering * ($GSResults[4] + $GSResults[6])+0.5) ; Width in pixels
-		$y = int($cmdOptions[$_Resolution]/$rastering * ($GSResults[5] + $GSResults[7])+0.5) ; height in pixels
-		$xx = _Min($x,$y) ; shortest side of image
-		$yy = _Max($x,$y) ; widest side of image
-		If $xx >= ($img_width-$bitmaperror) AND $xx <= ($img_width+$bitmaperror) AND _ ; 1 pixel error at 300 dpi between 2479 and 2481 pixels.
-		   $yy >= ($img_height-$bitmaperror) AND $yy <= ($img_height+$bitmaperror) Then
-			$quantize = True
-			$Command = "gswin32c " & _ ; convert file to tif, Mind that you should correct the pixel aspect ratio, which is not shown properly within PSCS4
-				"-sDEVICE=tiffg4" & " " & _
-				"-r" & String($cmdOptions[$_Resolution]) & " " & _
-				"-g" & String($pagedims[0]) & "x" & String($pagedims[1]) & " " & _
-				"-dBATCH" & " " & _
-				"-dNOPAUSE" & " " & _
-				"-dQUIET" & " " & _
-				"-dFirstPage=" & Number($j) & " " & _
-				"-dLastPage=" & Number($j) & " " & _
-				"-sOutputFile=" & $QQ & $tmpbase & $tif & $QQ & " " & _
-				$QQ & $GetFileName & $QQ
-			RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-		EndIf
-	EndIf
-	If Not $quantize Then
-		$Command = "gswin32c " & _ ; convert file to tif. Use grayscale: If size exceeds a4, then additonal high quality resizing will be necessary
-			"-sDEVICE=tiffgray" & " " & _
-			"-r" & String($cmdOptions[$_Resolution]) & " " & _
-			"-dBATCH" & " " & _
-			"-dNOPAUSE" & " " & _
-			"-dQUIET" & " " & _
-			"-dAutoFilterGrayImages=false" & " " & _
-			"-dGrayImageFilter=/LZWEncode" & " " & _
-			"-dFirstPage=" & Number($j) & " " & _
-			"-dLastPage=" & Number($j) & " " & _
-			"-sOutputFile=" & $QQ & $tmpbase & $tif & $QQ & " " & _
-			$QQ & $GetFileName & $QQ
-		RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-	EndIf
-	$IMDims = IM_Get_Dims($tmpbase & $tif)
-	If $quantize = False Then
-		$x = $IMDims[0] ; Width in pixels
-		$y = $IMDims[1] ; height in pixels
-		$xx = _Min($x,$y) ; shortest side of image
-		$yy = _Max($x,$y) ; widest side of image
-		If $xx >= ($img_width-$bitmaperror) AND $xx <= ($img_width+$bitmaperror) AND _ ; 1 pixel error at 300 dpi between 2479 and 2481 pixels wide.
-		   $yy >= ($img_height-$bitmaperror) AND $yy <= ($img_height+$bitmaperror) Then
-			$quantize = True
-			$Command = "gswin32c " & _ ; convert file to tif
-				"-sDEVICE=tiffg4" & " " & _
-				"-r" & String($cmdOptions[$_Resolution]) & " " & _
-				"-g" & String($pagedims[0]) & "x" & String($pagedims[1]) & " " & _
-				"-dBATCH" & " " & _
-				"-dNOPAUSE" & " " & _
-				"-dQUIET" & " " & _
-				"-dFirstPage=" & Number($j) & " " & _
-				"-dLastPage=" & Number($j) & " " & _
-				"-sOutputFile=" & $QQ & $tmpbase & $tif & $QQ & " " & _
-				$QQ & $GetFileName & $QQ
-			RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-			Return $pagedims
-		EndIf
-	EndIf
-	Return $IMDims
-EndFunc
-; function to process one or more pages. Will do either pdf or tiff
-Func ProcessPages(Const $TotalPages, Const $imgType, ByRef $GetFileName, Const $tempname, Const $Pdf_ListOfFiles2Proces, Const $FileListArray, Const $q)
-	If (($q) AND ($TotalPages > 2)) Then GUICtrlSetData($nEdit, "(+) Option enabled to add empty pages. Will add " & CalcEmptyPages($TotalPages) & " page(s) at the end." & @CRLF, 1)
-	local $LandscapePages[$TotalPages], $PageFitsExact[$TotalPages]
-	local $FilePagesLargestDim[2] ; Dimensions of the largest page found in a current file.
-	local $FilePagesProperties[2] ; $FilePagesProperties[0]=width in pixels, $FilePagesProperties[1]=height in pixels
-	$FilePagesLargestDim[0]=0
-	$FilePagesLargestDim[1]=0
-	Local $j, $tmp
-	For $j = 1 to $TotalPages
-		If ($imgType == $pdf) Then
-			GUICtrlSetData($nEdit, "-->Extracting page " & String($j) & " out of " & String($TotalPages) & @CRLF, 1)
-			$FilePagesProperties = ExtractPageAsTif($GetFileName, $j, $tempname) ; Convert single pdf page to tif, retreive page dimensions
-		Else
-			GUICtrlSetData($nEdit, "-->processing image " & String($j) & " out of " & String($TotalPages) & @CRLF, 1)
-			$GetFileName = $FileListArray[$j]
-			$FilePagesProperties = IM_Get_Dims($GetFileName) ; get dimensions from tiff file
-			FileCopy($GetFileName,$tempname & "_" & String(StringFormat("%05s", $j)) & "tmp" & $tif)
-		EndIf
-		If $FilePagesProperties[0] < $FilePagesProperties[1] Then ; Keep track of page orientation and largest page dimensions
-			$LandscapePages[$j-1] = False
-			If $FilePagesProperties[0] == $img_width AND $FilePagesProperties[1] == $img_height Then
-				$PageFitsExact[$j-1] = True
-			Else
-				$PageFitsExact[$j-1] = False
-			EndIf
-		Else
-			$LandscapePages[$j-1] = True
-			If $FilePagesProperties[0] == $img_height AND $FilePagesProperties[1] == $img_width Then
-				$PageFitsExact[$j-1] = True
-			Else
-				$PageFitsExact[$j-1] = False
-			EndIf
-		EndIf
-		$FilePagesLargestDim[0] = _Max($FilePagesLargestDim[0],$FilePagesProperties[0])
-		$FilePagesLargestDim[1] = _Max($FilePagesLargestDim[1],$FilePagesProperties[1])
-	Next
-	If FileExists($Pdf_ListOfFiles2Proces) Then FileDelete($Pdf_ListOfFiles2Proces) ; Empty this file before adding filenames as text to it. Will be used to merge several pdf files into one.
-	$FHandle = FileOpen($Pdf_ListOfFiles2Proces,1) ; $Pdf_ListOfFiles2Proces is a text file containg file names. (1 = Write mode append to the end of file)
-	Const $ScaleFactor = Calc_scalingfactor($FilePagesLargestDim[0], $FilePagesLargestDim[1], $img_width, $img_height) ; resizing factor to make sure largest page fits within an a4 page.
-	If $ScaleFactor < 100 Then
-		GUICtrlSetData($nEdit, "-->(Some) pages exceed the targeted page output size." & @CRLF & "Resize factor for pages is set to " & String($ScaleFactor) & " percent" & @CRLF, 1)
-		For $j = 1 to $TotalPages ; Resize image
-			GUICtrlSetData($nEdit, "-->Converting page " & String($j) & " out of " & String($TotalPages) & " to pdf" & @CRLF, 1)
-			$tmp = $tempname & "_" & String(StringFormat("%05s", $j)) & "tmp"
-			ConvertScaleTif2Pdf($tmp, $j, $ScaleFactor, $LandscapePages[$j-1]) ; Convert single tif page to pdf, retreive page dimensions
-			FileWriteLine($FHandle,$tmp & $pdf & @CRLF)
-		Next
-	Else
-		For $j = 1 to $TotalPages ; Do not resize image
-			GUICtrlSetData($nEdit, "-->Converting page " & String($j) & " out of " & String($TotalPages) & " to pdf" & @CRLF, 1)
-			$tmp = $tempname & "_" & String(StringFormat("%05s", $j)) & "tmp"
-			ConvertTif2Pdf($tmp, $j, $PageFitsExact[$j-1], $LandscapePages[$j-1]) ; Convert single tif page to pdf, retreive page dimensions
-			FileWriteLine($FHandle,$tmp & $pdf & @CRLF)
-		Next
-	EndIf
-	If (($q) AND ($TotalPages > 2) AND (CalcEmptyPages($TotalPages)>=1)) Then ; If required add empty pages at the end.
-		For $j = 1 to CalcEmptyPages($TotalPages)
-			$tmp = $tempname & "_" & String(StringFormat("%05s", $j+$TotalPages)) & "tmp" ; temporary filename without extension
-			AddEmptyPage($tmp,$LandscapePages[0]) ; use landscape/portrait orientation from first page
-			FileWriteLine($FHandle,$tmp & $pdf & @CRLF)
-		Next
-	EndIf
-	FileClose($FHandle)
-	MergePDF_BW($Pdf_tmp_FileName, $Pdf_ListOfFiles2Proces)
-	If $isPDF Then
-		FileCopy($Pdf_tmp_FileName, UniqueFileName(ModifyFileName($GetFileName)))
-	Else
-		FileCopy($Pdf_tmp_FileName, UniqueFileName(ModifyFileName(StripExtension($FileListArray[1]) & $pdf )))
-	EndIf
-	FileDelete($Pdf_tmp_FileName)
-	IndirectDelete($Pdf_ListOfFiles2Proces)
-	FileDelete($Pdf_ListOfFiles2Proces)
-EndFunc
-; find the pdf HiResBoundingBox with ghostscript. GS String: gswin32c -sDEVICE=bbox -dQUIET -dNOPAUSE -dBATCH file
-Func GS_Get_PDF_BoundingBoxes(Const $PDFFile, Const $j)
-	Local $line, $GSResult[9], $Command, $Result = ""
-	$Command = "gswin32c.exe " & _
-			"-sDEVICE=bbox" & " " & _ ; Ghostview command to get details like HiResBoundingBox
-			"-dQUIET" & " " & _
-			"-dNOPAUSE"& " " & _
-			"-dBATCH" & " " & _
-			"-dFirstPage=" & Number($j) & " " & _
-			"-dLastPage=" & Number($j) & " " & _
-			$QQ & $PDFFile & $QQ
-	Local $console = Run(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
-	While 1
-		Sleep($Delay)
-		$line = StderrRead($console)
-		If @error Then ExitLoop
-		$Result = $line
-	WEnd
-	$GSResult[0] = Number(StringRegExpReplace($Result, '(?s)%%BoundingBox:[\s]*([\d]+)[\s]+([\d]+)[\s]+([\d]+)[\s]+([\d]+)(.*)', '$1'))
-	$GSResult[1] = Number(StringRegExpReplace($Result, '(?s)%%BoundingBox:[\s]*([\d]+)[\s]+([\d]+)[\s]+([\d]+)[\s]+([\d]+)(.*)', '$2'))
-	$GSResult[2] = Number(StringRegExpReplace($Result, '(?s)%%BoundingBox:[\s]*([\d]+)[\s]+([\d]+)[\s]+([\d]+)[\s]+([\d]+)(.*)', '$3'))
-	$GSResult[3] = Number(StringRegExpReplace($Result, '(?s)%%BoundingBox:[\s]*([\d]+)[\s]+([\d]+)[\s]+([\d]+)[\s]+([\d]+)(.*)', '$4'))
-	$GSResult[4] = Number(StringRegExpReplace($Result, '(?s).*HiResBoundingBox:.*\s(\d+\.\d+).*\s(\d+\.\d+).*\s(\d+\.\d+).*\s(\d+\.\d+).*', '$1'))
-	$GSResult[5] = Number(StringRegExpReplace($Result, '(?s).*HiResBoundingBox:.*\s(\d+\.\d+).*\s(\d+\.\d+).*\s(\d+\.\d+).*\s(\d+\.\d+).*', '$2'))
-	$GSResult[6] = Number(StringRegExpReplace($Result, '(?s).*HiResBoundingBox:.*\s(\d+\.\d+).*\s(\d+\.\d+).*\s(\d+\.\d+).*\s(\d+\.\d+).*', '$3'))
-	$GSResult[7] = Number(StringRegExpReplace($Result, '(?s).*HiResBoundingBox:.*\s(\d+\.\d+).*\s(\d+\.\d+).*\s(\d+\.\d+).*\s(\d+\.\d+).*', '$4'))
-	$GSResult[8] = StringRegExp($Result, '(?s).*error.*')
-	Return $GSResult
-EndFunc
-; find the image dimensions with imagemagick: identify -format "%[fx:w]x%[fx:h]"
-Func IM_Get_Dims(Const $GetFileName)
-	Local $line, $this_dims[2], $Result = ""
-	Local $Command = "identify " & _
-			$QQ & "-format" & $QQ & " " & _ ; Ghostview command to get details like HiResBoundingBox
-			$QQ & "%[fx:w]x%[fx:h]" & $QQ & " " & _ ; ImageMagick command to find page dimensions
-			$QQ & $GetFileName & $QQ
-	Local $console = Run(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
-	While 1
-		Sleep($Delay)
-		$line = StdoutRead($console)
-		If @error Then ExitLoop
-		$Result = $line
-	WEnd
-	$this_dims[0] = Number(StringRegExpReplace($result, "([0-9]+)x([0-9]+)", "$1")) ; From string holding dimensions (for example "1800x1600") extract first number
-	$this_dims[1] = Number(StringRegExpReplace($result, "([0-9]+)x([0-9]+)", "$2")) ; From string holding dimensions (for example "1800x1600") extract second number
-	Return $this_dims
-EndFunc
-Func IM_Get_Type(Const $GetFileName)
-	Local $line, $this_dims[2], $Result = ""
-	Local $Command = "identify " & _
-			$QQ & "-format" & $QQ & " " & _ ; Ghostview command to get details like HiResBoundingBox
-			$QQ & "%m" & $QQ & " " & _ ; ImageMagick command to find page dimensions
-			$QQ & $GetFileName & $QQ
-	Local $console = Run(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
-	While 1
-		Sleep($Delay)
-		$line = StdoutRead($console)
-		If @error Then ExitLoop
-		$Result = $line
-	WEnd
-	If StringLen($Result) >= 3 Then
-		Return "." & StringLower(StringLeft($Result,3))
-	EndIf
-	Return
-EndFunc
-Func ConvertScaleTif2Pdf(Const $tmpbase,Const $j, Const $Scale, Const $LandscapePage)
-	Local $Command, $pagedims[2]
-	$Command =  "mogrify " & _ ; convert tif to ps. (Converting directly to pdf would causes accuracy errors, therefore intermediate step with tif2ps is obligatory)
-				$QQ & $tmpbase & $tif & $QQ & " " & _
-				"-density " & String($cmdOptions[$_Resolution]) & " " & _
-				"-units PixelsPerInch" & " " & _
-				"-resize " & String($Scale) & "% " & _
-				$QQ & $tmpbase & $tif & $QQ
-	RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-	If $LandscapePage Then ; make sure page with landscape size has proper dimension
-		$pagedims[0] = $img_height
-		$pagedims[1] = $img_width
-	Else
-		$pagedims[0] = $img_width
-		$pagedims[1] = $img_height
-	EndIf
-	$Command =  "convert " & _ ; create canvas with a4 size
-				"-size " & String($pagedims[0]) & "x" & String($pagedims[1]) & " " & _
-				"xc:white" & " " & _
-				$QQ & $tmpbase & "B" & $tif & $QQ
-	RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-	$Command =  "composite " & _ ; combine a4 canvas with extracted (and resized) tif
-				$QQ & $tmpbase & $tif & $QQ & " " & _
-				"-density " & String($cmdOptions[$_Resolution]) & " " & _
-				"-units PixelsPerInch" & " " & _
-				"-compose atop" & " " & _
-				"-gravity Center" & " " & _
-				"-type Bilevel" & " " & _
-				"-compress lzw" & " " & _
-				$QQ & $tmpbase & "B" & $tif & $QQ & " " & _
-				$QQ & $tmpbase & "C" & $tif & $QQ
-	RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-	If FileExists($tmpbase & "B" & $tif) Then FileDelete($tmpbase & "B" & $tif) ; Delete temp file
-	If FileExists($tmpbase & $tif) Then FileDelete($tmpbase & $tif) ; Delete temp file
-	$Command =  "convert " & _ ; convert tif to ps. (Converting directly to pdf would causes accuracy errors, therefore intermediate step with tif2ps is obligatory)
-				"-density " & String($cmdOptions[$_Resolution]) & " " & _
-				"-units PixelsPerInch" & " " & _
-				$QQ & $tmpbase & "C" & $tif & $QQ & " " & _
-				"-page " & String($pagedims[0]) & "x" & String($pagedims[1]) & "+0+0" & " " & _
-				$QQ & $tmpbase & $ps & $QQ
-	RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-	If FileExists($tmpbase & "C" & $tif) Then FileDelete($tmpbase & "C" & $tif) ; Delete temp file
-	$Command = 	"gswin32c " & _ ; convert ps to pdf
-				"-sDEVICE=pdfwrite" & " " & _
-				"-r" & String($rastering) & " " & _
-				"-dBATCH" & " " & _
-				"-dNOPAUSE" & " " & _
-				"-dQUIET" & " " & _
-				"-sOutputFile=" & $QQ & $tmpbase & $pdf & $QQ & " " & _
-				"-dDEVICEWIDTHPOINTS=" & String(Int(($rastering*$pagedims[0]/$cmdOptions[$_Resolution])+0.5)) & " " & _
-				"-dDEVICEHEIGHTPOINTS=" & String(Int(($rastering*$pagedims[1]/$cmdOptions[$_Resolution])+0.5)) & " " & _
-				$QQ & $tmpbase & $ps & $QQ
-	RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-	If FileExists($tmpbase & $ps) Then FileDelete($tmpbase & $ps) ; Delete temp file
-EndFunc
-Func AddEmptyPage(Const $tmp,Const $LandscapePage)
-Local $Command, $tf, $pagedims[2]
-	If $LandscapePage Then ; make sure page with landscape size has proper dimension
-		$pagedims[0] = $img_height
-		$pagedims[1] = $img_width
-	Else
-		$pagedims[0] = $img_width
-		$pagedims[1] = $img_height
-	EndIf
-	$Command =  "convert " & _ ; create canvas with a4 size
-				"-size " & String($pagedims[0]) & "x" & String($pagedims[1]) & " " & _
-				"xc:white" & " " & _
-				$QQ & $tmp & "B" & $tif & $QQ
-	RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-	$Command =  "convert " & _ ; convert tif to ps. (Converting directly to pdf would causes accuracy errors, therefore intermediate step with tif2ps is obligatory)
-				"-density " & String($cmdOptions[$_Resolution]) & " " & _
-				"-units PixelsPerInch" & " " & _
-				$QQ & $tmp & "B" & $tif & $QQ & " " & _
-				"-page " & String($pagedims[0]) & "x" & String($pagedims[1]) & "+0+0" & " " & _
-				$QQ & $tmp & $ps & $QQ
-	RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-	If FileExists($tmp & "B" & $tif) Then FileDelete($tmp & "B" & $tif) ; Delete temp file
-	$Command = 	"gswin32c " & _ ; convert ps to pdf
-				"-sDEVICE=pdfwrite" & " " & _
-				"-r" & String($rastering) & " " & _
-				"-dBATCH" & " " & _
-				"-dNOPAUSE" & " " & _
-				"-dQUIET" & " " & _
-				"-sOutputFile=" & $QQ & $tmp & $pdf & $QQ & " " & _
-				"-dDEVICEWIDTHPOINTS=" & String(Int(($rastering*$pagedims[0]/$cmdOptions[$_Resolution])+0.5)) & " " & _
-				"-dDEVICEHEIGHTPOINTS=" & String(Int(($rastering*$pagedims[1]/$cmdOptions[$_Resolution])+0.5)) & " " & _
-				$QQ & $tmp & $ps & $QQ
-	RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-	If FileExists($tmp & $ps) Then FileDelete($tmp & $ps) ; Delete temp file
-EndFunc
-Func ConvertTif2Pdf(Const $tmpbase, Const $j, Const $PageFitsExactly, Const $LandscapePage)
-	Local $Command, $tf, $pagedims[2]
-	If $LandscapePage Then ; make sure page with landscape size has proper dimension
-		$pagedims[0] = $img_height
-		$pagedims[1] = $img_width
-	Else
-		$pagedims[0] = $img_width
-		$pagedims[1] = $img_height
-	EndIf
-	If $PageFitsExactly Then
-		$Command =  "mogrify " & _ ; convert a4 tif file to proper format and compression
-					$QQ & $tmpbase & $tif & $QQ & " " & _
-					"-density " & String($cmdOptions[$_Resolution]) & " " & _
-					"-units PixelsPerInch" & " " & _
-					"-type Bilevel" & " " & _
-					"-compress lzw" & " " & _
-		RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-		$tf = $tmpbase
-	Else
-		$Command =  "convert " & _ ; create canvas with a4 size
-					"-size " & String($pagedims[0]) & "x" & String($pagedims[1]) & " " & _
-					"xc:white" & " " & _
-					$QQ & $tmpbase & "B" & $tif & $QQ
-		RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-		$tf = $tmpbase & "C"
-		$Command =  "composite " & _ ; combine a4 canvas with extracted (and resized) tif
-					$QQ & $tmpbase & $tif & $QQ & " " & _
-					"-density " & String($cmdOptions[$_Resolution]) & " " & _
-					"-units PixelsPerInch" & " " & _
-					"-compose atop" & " " & _
-					"-gravity Center" & " " & _
-					"-type Bilevel" & " " & _
-					"-compress lzw" & " " & _
-					$QQ & $tmpbase & "B" & $tif & $QQ & " " & _
-					$QQ & $tf & $tif & $QQ
-		RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-		If FileExists($tmpbase & "B" & $tif) Then FileDelete($tmpbase & "B" & $tif) ; Delete temp file
-		If FileExists($tmpbase & $tif) Then FileDelete($tmpbase & $tif) ; Delete temp file
-	EndIf
-	$Command =  "convert " & _ ; convert tif to ps. (Converting directly to pdf would causes accuracy errors, therefore intermediate step with tif2ps is obligatory)
-				"-density " & String($cmdOptions[$_Resolution]) & " " & _
-				"-units PixelsPerInch" & " " & _
-				$QQ & $tf & $tif & $QQ & " " & _
-				"-page " & String($pagedims[0]) & "x" & String($pagedims[1]) & "+0+0" & " " & _
-				$QQ & $tmpbase & $ps & $QQ
-	RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-	If FileExists($tf & $tif) Then FileDelete($tf & $tif) ; Delete temp file
-	$Command = 	"gswin32c " & _ ; convert ps to pdf
-				"-sDEVICE=pdfwrite" & " " & _
-				"-r" & String($rastering) & " " & _
-				"-dBATCH" & " " & _
-				"-dNOPAUSE" & " " & _
-				"-dQUIET" & " " & _
-				"-sOutputFile=" & $QQ & $tmpbase & $pdf & $QQ & " " & _
-				"-dDEVICEWIDTHPOINTS=" & String(Int(($rastering*$pagedims[0]/$cmdOptions[$_Resolution])+0.5)) & " " & _
-				"-dDEVICEHEIGHTPOINTS=" & String(Int(($rastering*$pagedims[1]/$cmdOptions[$_Resolution])+0.5)) & " " & _
-				$QQ & $tmpbase & $ps & $QQ
-	RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-	If FileExists($tmpbase & $ps) Then FileDelete($tmpbase & $ps) ; Delete temp file
-EndFunc
-; merge pdf pages into one pdf page and deletes intermediate files
-Func MergePDF_BW(Const $Pdf_tmp_FileName, Const $Pdf_ListOfFiles2Proces)
-Local $Command = "gswin32c " & _ ; Merges pdf pages into one pdf file
-				"-sDEVICE=pdfwrite" & " " & _
-				"-dBATCH" & " " & _
-				"-dNOPAUSE" & " " & _
-				"-dQUIET" & " " & _
-				"-sOutputFile=" & $QQ & $Pdf_tmp_FileName & $QQ & " " & _
-				$QQ & "@" & $Pdf_ListOfFiles2Proces & $QQ
-	RunWait(@ComSpec & " /c " & $Command, @ScriptDir, @SW_HIDE)
-EndFunc
-; Find scaling factor to a4
-Func Calc_scalingfactor(Const $x1, Const $y1, Const $img_width, Const $img_height)
-	Local $Scale = 1
-	If _Min($x1,$y1) > $img_width Then
-		$Scale = $img_width/_Min($x1,$y1)
-	EndIf
-	If _Max($x1,$y1) > $img_height Then
-		$Scale = _Min($img_height/_Max($x1,$y1),$Scale)
-	EndIf
-	Return Int($Scale*100) ; Scalingfactor is between 0 and 100; 100 means no change.
-EndFunc
-Func CalcEmptyPages($count)
-	Return Abs(BitAND(mod($count+3,4),3)-3)
-EndFunc
-; Extract file name from path
-Func RemovePath(Const $OutputFile)
-	If FileExists(RemoveDoubleQuotes($OutputFile)) Then
-		Local $szDrive, $szDir, $szFName, $szExt
-		_PathSplit(RemoveDoubleQuotes($OutputFile), $szDrive, $szDir, $szFName, $szExt)
-		Return $szFName & $szExt
-	Else
-		ShowError("Cannot find working directory")
-	EndIf
-EndFunc
-; This function will remove a trailing slash to a windows file path
-Func RemoveDoubleQuotes(Const $var)
-	Return StringRegExpReplace($var, "^""(.*)""$","$1")
-EndFunc
-Func ModifyFileName(Const $GetFileName)
-	Local $szDrive, $szDir, $szFName, $szExt
-	_PathSplit($GetFileName, $szDrive, $szDir, $szFName, $szExt)
-	Return  $szDrive & $szDir & $szFName & "_Processed" & $szExt
-EndFunc
-; Prevent overwriting a file, when it already exists. This function will find the 'first' free filename.
-Func UniqueFileName(Const $OutputFile)
-	If FileExists(RemoveDoubleQuotes($OutputFile)) Then
-		Local $i = 1
-		Local $szDrive, $szDir, $szFName, $szExt
-		_PathSplit(RemoveDoubleQuotes($OutputFile), $szDrive, $szDir, $szFName, $szExt)
-		While FileExists($szDrive & $szDir & $szFName & "(" & String($i) & ")" & $szExt)
-			$i += 1
-		WEnd
-		Return $szDrive & $szDir & $szFName & "(" & String($i) & ")" & $szExt
-	Else
-		Return $OutputFile
-	EndIf
-EndFunc
-; This function will add a trailing slash to a windows file path
-Func AddSlash(Const $var)
-	Return StringRegExpReplace($var, "(.)\\*$","$1\\")
-EndFunc
-; Create GUI window with console like output
-Func CreateGUI(Const $ThisProgramName)
-	Const $Gui_Xpos = 140
-	Const $Gui_Ypos = 23
-	Const $Gui_Width = 518
-	Const $Gui_Height = 200
-	Const $Gui_Border = 15
-	Const $Gui_HeightButton = 20
-	Const $Gui_WidthButton = 75
-	Const $Gui_WidthSlider = 20
-	Opt("GUIOnEventMode", 1); GUI should be in OnEvent Mode, otherwise our cancelbutton event is not captured
-	HotKeySet("{Esc}", "CancelButton"); Pressing the Escape button cancels operation
-	GUICreate($Gui_Title,$Gui_Width,$Gui_Height,$Gui_Xpos,$Gui_Ypos)  ; will create a dialog box that when displayed is centered
-	$nEdit = GUICtrlCreateEdit ("",$Gui_Border,$Gui_Border,$Gui_Width-$Gui_Border-$Gui_WidthSlider,$Gui_Height-$Gui_Border-2*$Gui_HeightButton, BitOr($ES_AUTOVSCROLL,$ES_READONLY,$ES_MULTILINE))
-	GUICtrlSetBkColor($nEdit, 0xffffff)
-	$hButton = GUICtrlCreateButton ("Cancel", ($Gui_Width-$Gui_WidthButton)/2,$Gui_Height-$Gui_HeightButton*1.5, $Gui_WidthButton, $Gui_HeightButton)
-	GUICtrlSetOnEvent($hButton, "CancelButton") ; Function executed when cancel button is pressed
-	GUISetState()
-	Return $nEdit
-EndFunc
-; Strip path and extension
-Func StripExtension(Const $OutputFile)
-	Local $szDrive, $szDir, $szFName, $szExt
-	_PathSplit(RemoveDoubleQuotes($OutputFile), $szDrive, $szDir, $szFName, $szExt)
-	Return $szDrive & $szDir & $szFName
-EndFunc
-; Strip everything but the file extension
-Func GetExtension(Const $OutputFile)
-	If FileExists(RemoveDoubleQuotes($OutputFile)) Then
-		Local $szDrive, $szDir, $szFName, $szExt
-		_PathSplit(RemoveDoubleQuotes($OutputFile), $szDrive, $szDir, $szFName, $szExt)
-		Return StringLower($szExt)
-	Else
-		ShowError("Cannot find working directory")
-	EndIf
-EndFunc
-Func IndirectDelete(Const $Pdf_ListOfFiles2Proces)
-	Local $Handle = FileOpen($Pdf_ListOfFiles2Proces, 0)
-	Local $line
-	While 1
-		$line = FileReadLine($Handle)
-		If @error = -1 Then ExitLoop
-		If FileExists($line) Then FileDelete($line) ; Delete temp file
-	Wend
-	FileClose($Handle)
-EndFunc
-; Find number of PDF pages in document
-Func CountPdfPages(Const $GetFileName, Const $tempname)
-	Local $Command
-	$Command =	$QQ & $GetFileName & $QQ & " " & _ ; Use pdf2dsc to find out the number of pages. E.g. %%Pages: 1
-				$QQ & $tempname & "info.dsc" & $QQ
-	_RunDos("pdf2dsc " & $Command)
-	$Command = OpenFileAndGrep($tempname & "info.dsc", "%%Pages:")
-	If FileExists($tempname & "info.dsc") Then FileDelete($tempname & "info.dsc") ; Delete dsc file
-	If Not $Command Then Return(0); The supplied file is not a pdf file, in order to skip this file, 0 (pages) will be returned
-	Return(Number(StringReplace($Command, "%%Pages: ", "")))
-EndFunc
-; Check if first array item is a tiff file, if yes, check all other files for validity as well. If all are tiff files, sort them.
-; Sort tif files only on filename, without path
-Func SortIfArrayContainsOnlyTiff(Const $FileListArray)
-	Local $testfull = False ; False means file will only be tested for occurence of .tif or .tiff in filename. True means each file will be tested by ImageMagick (This is slow)
-	If $testfull Then
-		if IM_Get_Type($FileListArray[1]) == $pdf Then Return $FileListArray ; Test at least the first file comprehensive.
-	Else
-		if StringLeft(GetExtension($FileListArray[1]),4) == $pdf Then Return $FileListArray ; Simple test for pdf or tiff file
-	EndIf
-	Local $i = 1
-	Local $ft
-	Local $temp1[UBound($FileListArray)-1][2]
-	Local $temp2[UBound($FileListArray)]
-	If $testfull Then GUICtrlSetData($nEdit, "###### Now verifying if all supplied files are tif files ######" & @CRLF, 1) ; Display only progression text when
-	Do
-		If $testfull Then
-			GUICtrlSetData($nEdit, "Checking file " & String($i) & " of " & String(UBound($FileListArray)-1) & " ... ", 1)
-			$ft = IM_Get_Type($FileListArray[$i]) ; Comprehensive test
-			GUICtrlSetData($nEdit, $ft & @CRLF, 1)
-		Else
-			$ft = StringLeft(GetExtension($FileListArray[$i]),4) ; Either select this line, or the following to check for tif validity.
-		EndIf
-		If $ft <> $tif Then ShowError("Not all files are tif files. Please supply either only pdf or only tif files.")
-		$temp1[$i-1][0] = RemovePath($FileListArray[$i])
-		$temp1[$i-1][1] = $FileListArray[$i]
-		$i = $i + 1
-	Until  ($i >= UBound($FileListArray))
-	_ArraySort($temp1)
-;	$temp2[0] = UBound($temp1)
-	For $i=1 to UBound($temp1)
-		$temp2[$i] = $temp1[$i-1][1]
-	Next
-	Return $temp2
-EndFunc
-; Opens a file and returns a line which contains a grep alike specified keyword
-Func OpenFileAndGrep(Const $OFAG_path,Const $OFAG_query)
-	Local $OFAG_file = FileOpen($OFAG_path,0)
-	Local $OFAG_result = FileRead($OFAG_file)
-	FileClose($OFAG_file)
-	If $OFAG_result = "" Then ; If string is empty, return empty string as well
-		Return
-	Else
-		Local $OFAG_q = ""
-		Local $OFAG_stdinArray = StringSplit($OFAG_result, @LF, 1) ; put read data, separated by LineFeed characters, in an array
-		Local $OFAG_i
-		For $OFAG_i In $OFAG_stdinArray
-			If StringInStr($OFAG_i,$OFAG_query) Then
-				$OFAG_q &= $OFAG_i
-				ExitLoop
-			EndIf
-		Next
-	EndIf
-	return $OFAG_q
-EndFunc
-; Cleanup temporary files in $TempDir, but only if no other instances of this program are running.
-Func GarbageControl(Const $ThisProgramName)
-	Local $i
-	Local $count = 0
-	Local $list = ProcessList()
-	For $i = 1 to $list[0][0]
-		If $list[$i][0] = $ThisProgramName & ".exe" Then $count = $count+1
-	Next
-	If $count == 1 Then
-		If FileExists(@TempDir & "\" & $ThisProgramName & "*") Then FileDelete(@TempDir & "\" & $ThisProgramName & "*") ; Delete temporary files
-	EndIf
-EndFunc
-; Check MS dependencies and set environment variables for Imagemagick, Ghostscript
-Func CheckAndSetEnv()
-	If Not Find_MS_Visual_C_PlusPlus_2008_SP1_Redist() Then ShowError($_ERROR_MSVisualCPlusPlus2008RedistNotInstalled)
-	If Not FileExists(Find_imagemagick_Path("HKEY_LOCAL_MACHINE\SOFTWARE\ImageMagick\Current","BinPath") & "\ImageMagickObject.dll") Then ShowError ($_ERROR_Need_ImageMagickObject_OLE)
-;	If Not FileExists(@SystemDir & "\ImageMagickObject.dll") Then FileInstall("ImageMagickObject.dll",@SystemDir&"\ImageMagickObject.dll",0)
-	If Not EnvPathExists(Find_Ghostscript_Path($Ghostscript_RegPath,"GS_LIB")) Then SetEnvPath(Find_Ghostscript_Path($Ghostscript_RegPath,"GS_LIB")) ; Check if gs path should be added to %PATH% if it's not there already
-	If Not EnvPathExists(Find_imagemagick_Path($imagemagick_RegPath,"BinPath")) Then SetEnvPath(Find_imagemagick_Path($imagemagick_RegPath,"BinPath")) ; Check if imagemagick path should be added to %PATH% if it's not there already
-;	If Not ObjectIsRegistered("HKEY_CLASSES_ROOT\ImageMagickObject.MagickImage\CurVer", "") Then RunWait(@ComSpec & " /c regsvr32 /s MagickObject.dll",@SystemDir,@SW_HIDE)
-EndFunc
-; Find Microsoft Visual C++ 2008 SP1 Redistributable Package
-Func Find_MS_Visual_C_PlusPlus_2008_SP1_Redist()
-	Local $var
-	$var = RegRead("HKEY_CLASSES_ROOT\Installer\Products\D20352A90C039D93DBF6126ECE614057","PackageCode")
-	If @error <> 0 Or $var == "" Then Return False
-	Return True
-EndFunc
-; This function makes sure that the to be added $EnvironmentVariablePath is only added once to the environment path. For this it differentiates between Ghostscript and ImageMagick
-Func SetEnvPath(Const $EnvVarApplication)
-	If StringRight(EnvGet("PATH"),1) <> ";" Then EnvSet("PATH",EnvGet("PATH") & ";") ; Add a ; separator between path if it's not there already
-	Local $i
-	Local $SplitEnvVarApplication = StringSplit($EnvVarApplication,";")
-	If @error == 1 Then
-		EnvSet("PATH", EnvGet("PATH") & $EnvVarApplication)
-	Else
-		For $i = 1 To $SplitEnvVarApplication[0]
-			If Not StringInStr(EnvGet("PATH"),$SplitEnvVarApplication[$i]) Then EnvSet("PATH", EnvGet("PATH") & $SplitEnvVarApplication[$i] & ";")
-		Next
-	EndIf
-EndFunc
-; This function checks whether the (part of the) $EnvVarApplication already exists in the %PATH% environment.
-Func EnvPathExists(Const $EnvVarApplication)
-	Local $i
-	Local $found = True
-	Local $SplitEnvVarApplication = StringSplit($EnvVarApplication,";")
-	If @error == 1 Then
-		If StringInStr(EnvGet("PATH"), $EnvVarApplication) Then Return $found ; The delimiter character ; had not been found
-		Else
-			For $i = 1 To $SplitEnvVarApplication[0]
-				If Not StringInStr(EnvGet("PATH"),$SplitEnvVarApplication[$i]) Then $found=False ; One or more applications in the path had been found
-			Next
-	EndIf
-	Return $found
-EndFunc
-; Find Ghostscript Path
-Func Find_Ghostscript_Path(Const $Ghostscript_RegHive, Const $Ghostscript_EnvKey)
-	Local $var
-	Local $var_read
-	Local $i = 1
-	Local $GhostscriptVersion
-	Local $GhostscriptPath
-	Local $GhostscriptFound = False
-	Local $GhostscriptPathFound = False
-	While 1
-		$var = RegEnumKey($Ghostscript_RegHive, $i)
-		If @error <> 0 Then ExitLoop
-			If StringRegExp($var,"^[0-9]+\.[0-9]+") Then
-				$GhostscriptVersion = String($var)
-				$GhostscriptFound = True
-			EndIf
-		$i += 1
-	WEnd
-	$i = 1
-	If $GhostscriptFound Then
-		While 1
-			$var = RegEnumVal($Ghostscript_RegHive & "\" & $GhostscriptVersion, $i)
-			If @error <> 0 Then ExitLoop
-				If $var == $Ghostscript_EnvKey Then
-					$GhostscriptPath = RegRead($Ghostscript_RegHive & "\" & $GhostscriptVersion, $Ghostscript_EnvKey) & ";"
-					$GhostscriptPath &= StringRegExpReplace($GhostscriptPath, "(?i)(.*)(c:\\.*)lib;.*", "$2bin") ; Add also the ghostscript bin path
-					$GhostscriptPathFound = True
-					ExitLoop
-				EndIf
-			$i += 1
-		WEnd
-	EndIf
-	If $GhostscriptPathFound Then
-		Return $GhostscriptPath
-	Else
-		ShowError ($_ERROR_CannotFindGhostscript)
-	EndIf
-	Return
-EndFunc
-; Find imagemagick Path
-Func Find_imagemagick_Path(Const $imagemagick_RegHive, Const $imagemagick_EnvKey)
-	Local $var
-	$var = RegRead($imagemagick_RegHive,$imagemagick_EnvKey)
-	If @error <> 0 Or $var == "" Or StringInStr($var,$imagemagick_name) == 0 Then ShowError ($_ERROR_imagemagickNotInstalled)
-	Return $var
-EndFunc
-; Find if object is already registered
-Func ObjectIsRegistered(Const $Obj_RegHive, Const $Obj_Key)
-	Local $var
-	$var = RegRead($Obj_RegHive,$Obj_Key)
-	If @error <> 0 Or $var <> "ImageMagickObject.MagickImage.1" Then Return False
-	Return True
-EndFunc
-; Cancel button had been pressed. A few cleanup steps should take place.
-Func CancelButton()
-	GUIDelete()
-	If FileExists($tempname & "*") Then FileDelete(AddSlash(@TempDir) & $tempname & "*") ; Delete temporary files
-	Exit
-EndFunc
-; Show related error, try to terminate program properly
-Func ShowError(Const $_ERROR_Number)
-	Switch $_ERROR_Number
-;		Case $_ERROR_MissingImageMagickObject
-;		MsgBox(0,"Error", 	"ImageMagickObject cannot be registered." & _
-;							"Maybe it is already registered.")
-		Case $_ERROR_PdfInputFileIsNotValid
-		MsgBox(0,"Error", 	"Supplied PDF file is invalid." & @CRLF & @CRLF & _
-							"Please check your pdf file.")
-		Case $_ERROR_ShowHelp
-		MsgBox(0,"Help",	$Gui_Title & " v" & $ThisProgramVersion & @CRLF & _
-							"Written by Marc Nijdam, " & $ThisProgramDate & @CRLF & @CRLF & _
-							"Process one or more pdf/tiff files to black and white pdf files with G4 encoding." & @CRLF & @CRLF & _
-							"Usage:" & @CRLF & _
-							StringRegExpReplace(@ScriptName, "(?i)(.*)(\.)(au3|exe)(.*)", "$1$4 ") & "<inputfile1> [<inputfile 2> ... <inputfile n>]"& @CRLF & _
-							"[...] is optional"& @CRLF & _
-							"Current resolution is: " & $cmdOptions[$_Resolution] & "dpi" & @CRLF & _
-							"(filename) options:" & @CRLF & _
-							"  -rNNN or -rNNNN" & @CRLF & _
-							"Specify resolution NNN or NNNN (in dpi)" & @CRLF & _
-							"  -q" & @CRLF & _
-							"Add empty pages at the end of the pdf file," & @CRLF & _
-							"so that the total amount of pages is exactly" & @CRLF & _
-							"a fourfold of 4." & @CRLF & @CRLF & _
-							"Example: FlattenAndCompact -q -r600.exe")
-		Case $_ERROR_PdfImageSizeTooLarge
-		MsgBox(0,"Error", 	"Image size of PDF file is too large." & @CRLF & @CRLF & _
-							"Processing would not make much sense.")
-		Case $_ERROR_CannotFindGhostscript
-		MsgBox(0,"Error", 	"Ghostscript is not installed." & @CRLF & @CRLF & _
-							"Please go to:" & @CRLF & _
-							"http://sourceforge.net/projects/ghostscript/" & @CRLF & @CRLF & _
-							"From there, download and install Ghostscript.")
-		Case $_ERROR_imagemagickNotInstalled
-		MsgBox(0,"Error", 	"ImageMagick is missing." & @CRLF & @CRLF & _
-							"Please go to:" & @CRLF & _
-							"http://www.imagemagick.org/script/binary-releases.php#windows" & @CRLF & @CRLF & _
-							"From there, download the Q16-windows-dll version." & @CRLF & @CRLF & _
-							"Make sure the installation option " & $QQ & "Install ImageMagickObject" & @CRLF & _
-							"OLE Control for VBscript, Visual Basic, and WSH." & $QQ & " is enabled.")
-		Case $_ERROR_MSVisualCPlusPlus2008RedistNotInstalled
-		MsgBox(0,"Error", 	"Microsoft Visual C++ 2008 SP1 is not available." & @CRLF & @CRLF & _
-							"Please go to:" & @CRLF & _
-							"http://www.microsoft.com/downloads/details.aspx?familyid=A5C84275-3B97-4AB7-A40D-3802B2AF5FC2" & @CRLF & @CRLF & _
-							"From there, download and install vcredist_x86.")
-		Case $_ERROR_PDF_FileInconsistent
-		MsgBox(0,"Error", 	"The current processed pdf file contains some errors." & @CRLF & @CRLF & _
-							"To prevent further bad results, you could" & @CRLF & _
-							"try to open the file with a pdf viewer and" & @CRLF & _
-							"print from there to a pdf file to get a" & @CRLF & _
-							"new and more consistent pdf file.")
-		Case Else
-		MsgBox(0,"Error", String($_ERROR_Number))
-	EndSwitch
-Exit
-EndFunc</code>

Auditeon

User Tools

Site Tools

Differences

Page Tools