LoadIFD example for Delphi
var
RasterIO: LEADRasterIO;
begin
RasterIO:= CreateComObject(CLASS_LEADRasterIO) as LEADRasterIO;
//All examples will assume that "test.tif" has over 1002 images
// This example will load pages 1000 and 1001 after getting the information for page 1000:
RasterIO.GetFileInfo (LEADRasterView1.Raster, 'v:\images\Test.tif', 1000, 0);
// Setting LoadIFD to InfoIFD indicates that 1000 is treated as page 1
RasterIO.LoadIFD := RasterIO.InfoIFD;
RasterIO.Load (LEADRasterView1.Raster, 'v:\images\Test.tif', 0, 0, 2);
// Reset LoadIFD to 0 so other TIF files will be handled properly
RasterIO.LoadIFD := 0;
end;