Inicio > Visual Fox Pro > Extracción de fotogramas de archivos TIFF, GDI+

Extracción de fotogramas de archivos TIFF, GDI+


  En este código de abajo, se guarda los marcos de un TIFF en archivos de imagen por separado:

*** Ubicar la calse system
DO LOCFILE(“System,prg”)
WITH _SCREEN.System.Drawing
 *** Leer archivo TIFF con 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 Multiframe TIFF”)
 ENDIF
ENDWITH 

Categorías:Visual Fox Pro
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: