Cómo extraer cuadros de TIFFs con múltiples páginas

Artículo original: How to Extract frames from MultiPage TIFFs
http://weblogs.foxite.com/cesarchalom/archive/2007/11/03/5265.aspx
Autor: Cesar Chalom (http://weblogs.foxite.com/cesarchalom)
Traducido por: Ana María Bisbé York (amby@telefonica.net)
Para: PortalFox (http://www.portalfox.com)

He aquí un enlace a un artículo de UTMAG que cubre profundamente el tema TIFF: "TIFF and the new GdiPlusX classes"

En el tema "Extracting frames from TIFFS" encontrará el código que está más abajo, que guarda los cuadros de un TIFF en archivos de imágenes por separado.

** Guía: Extraer cuadros de TIFF Multiframe 

DO LOCFILE("System,prg") 

WITH _SCREEN.System.Drawing

  * Cargar el TIFF multiframe en GDI+
  LOCAL loMultif AS xfcBitmap
  loMultif = .Bitmap.New(GETPICT("TIF"))
  LOCAL lnFrames, n, lcFrameFileName
  lnFrames = loMultif.GetFrameCount()
  IF lnFrames > 1
    FOR n = 0 TO lnFrames - 1
      loMultif.SelectActiveFrame(.Imaging.FrameDimension.Page, n) 
      lcFrameFileName = "c:\Frame" + TRANSFORM(n + 1) + ".Tif"
      loMultif.Save(lcFrameFileName, .Imaging.ImageFormat.Bmp)
    ENDFOR
  ELSE
    MESSAGEBOX("El archivo seleccionado no es un TIFF Multiframe")
  ENDIF 

ENDWITH 
RETURN