WinBatch® Technical Support Forum

All Things WinBatch => WinBatch => Topic started by: Jeff on July 08, 2015, 04:29:11 AM

Title: tiff files
Post by: Jeff on July 08, 2015, 04:29:11 AM
Does the pixe extender support tiff images? I get the following error with the script below.

Wil Externder Error: 667 (420) Tiff Library is not available....


;Image Attributes
;Load Appropriate Extender
AddExtender("WWFAF44I.DLL") ; 32-bit
AddExtender("WWIMG44I.DLL")

imgrpt = strCat(DirScript(),"images_report.csv")
flags=1|2
dir=AskDirectory("Select FDM Image Store", "D:\AFIMAGES", "","Are you sure?",flags)


handle=FileOpen(imgrpt, "write")
FileWrite(handle,"File, Width, Height, Color Count, Size, Image Type, Gray Scale, Mono Chrome,Palette, File Format")
FileClose(handle)



; Initialize flags for readability
fHidden = 1      ; Include hidden files
fSystem = 2      ; Include system files
fFolders = 4     ; Inspect  subfolder names also
fFindFolders = 8 ; Only inspect subfolder names not file names
fRecurse = 16    ; Recurse through subfolders
fNoPathInfo = 32 ; Do not return path information to files or folders found
fNoRedirect = 64 ; Do not turn off file redirection for x64 windows
; Open a search handle
fhandle = fafOpen( dir, "*.tif", fRecurse)
; Perform the search
While @TRUE
   sFound = fafFind( fHandle )
   If sFound == "" Then Break
      fSize = FileSizeEx("*.*")
      typestrings="Bilevel Grayscale GrayscaleMatte Palette PaletteMatte TrueColor TrueColorMatte ColorSeparation ColorSeparationMatte"

      info=ImgInfo(sFound)
      width=ItemExtract(1,info,@TAB)
      height=ItemExtract(2,info,@TAB)
      colorcnt=ItemExtract(3,info,@TAB)
      imgtypenum=ItemExtract(4,info,@TAB)
      isgrayscale=ItemExtract(5,info,@TAB)
      ismono=ItemExtract(6,info,@TAB)
      ispalette=ItemExtract(7,info,@TAB)
      fileformat=ItemExtract(8,info,@TAB)
      imgtype=ItemExtract(imgtypenum,typestrings," ")

     ;,Message("Image Info:",StrCat("Width=", width, @CRLF, "Height=", height, @CRLF, "Color Count=", colorcnt))
     ; Message("More Image Info",StrCat("Image Type=", imgtype, @CRLF, "Grayscale=", isgrayscale, @CRLF, "Monochrome=", ismono, @CRLF, "Palette=", ispalette,@CRLF,"File Format=",fileformat))
     handle=FileOpen(imgrpt, "append")
     FileWrite(handle,strcat(sfound ,",", width, ",", height, ",", colorcnt,",",fsize,",", imgtype, ",", isgrayscale, ",", ismono, ",", ispalette,",",fileformat ))
     FileClose(handle)
       
EndWhile
; Close the search handle
fafClose( fHandle )
Exit
Title: Re: tiff files
Post by: td on July 08, 2015, 07:51:22 AM
The Pixie extender is deprecated and no longer supported.  You can find examples of using the COM Automation interface to the ImageMagick DLL, which is the code base of the old Pixie extender, in the Tech Database.  The advantage of using the DLL is that you can use the latest version of the product instead of the older version of the code used by the extender.

Search on  ImageMagick in the Tech Database to find examples.
Title: Re: tiff files
Post by: td on July 08, 2015, 01:16:53 PM
Here is a link to the Imagemagick site:

http://www.imagemagick.org/script/index.php (http://www.imagemagick.org/script/index.php)


It is distributed under the Apache 2.0 license so you don't have to give them any money unless you want to.
Title: Re: tiff files
Post by: DAG_P6 on July 13, 2015, 01:39:13 PM
Quote from: td on July 08, 2015, 01:16:53 PM
Here is a link to the Imagemagick site:

http://www.imagemagick.org/script/index.php (http://www.imagemagick.org/script/index.php)


It is distributed under the Apache 2.0 license so you don't have to give them any money unless you want to.

Though it's been a few years since I used it, the last time I did so, ImageMagick rocked!