tiff files

Started by Jeff, July 08, 2015, 04:29:11 AM

Previous topic - Next topic

Jeff

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
Jeff

td

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.
"No one who sees a peregrine falcon fly can ever forget the beauty and thrill of that flight."
  - Dr. Tom Cade

td

Here is a link to the Imagemagick site:

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.
"No one who sees a peregrine falcon fly can ever forget the beauty and thrill of that flight."
  - Dr. Tom Cade

DAG_P6

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


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!
David A. Gray
You are more important than any technology.