#include #notrayicon FileDelete(@Tempdir&"\image.bmp") $pdfquestion=Msgbox(4,"ocr","Will you be working with pdf files?") if $pdfquestion=6 then $pdf=1 else $pdf=0 endif if $pdf=1 then $infile=FileOpenDialog("Select Input",@UserProfileDir,"Pdf Files (*.pdf)",0) $outfile=FileSaveDialog("Select Output",@UserProfileDir,"Text Files (*.txt)",0) if not fileexists(@scriptdir&"\data\pdf") Then dircreate(@scriptdir&"\data\pdf") EndIf FileCopy($infile,@scriptdir&"\data\pdf\pdf.pdf") RunWait(@scriptdir&"\data\bin\bash.exe -c /bin/ocr") FileMove(@scriptdir&"\data\pdf\pdf.txt",$outfile) ShellExecute($outfile) DirRemove(@scriptdir&"\data\pdf",1) exit Else $infile=FileOpenDialog("Select Input",@UserProfileDir,"Image Files (*.bmp;*.dib;*.jpg;*.jpeg;*.jpe;*.jfif;*.gif;*.tif;*.tiff;*.png)",0) $outfile=FileSaveDialog("Select Output",@UserProfileDir,"Text Files (*.txt)",0) $procanswer=msgbox(4,"ocr","Is this image optimized for ocr (2x scale)? If unsure, answer no.") if $procanswer=6 then RunWait(@scriptdir&"\data\tesseract\tesseract.exe "&'"'&$infile&'"'&' "'&$outfile&'"') ShellExecute($outfile&".txt") Else _GDIPlus_Startup() $hImage=_GDIPlus_BitmapCreateFromFile($infile) $newImage=_GDIPlus_ImageScale($hImage,2.00,2.00,"") _GDIPlus_ImageSaveToFile($newImage, @Tempdir & "\image.bmp") RunWait(@scriptdir&"\data\tesseract\tesseract.exe "&'"'&@TempDir&"\image.bmp"&'"'&' "'&$outfile&'"') ShellExecute($outfile&".txt") EndIf Exit endif