InfoViewPerspective Example for Delphi

   var
   RasterIO: LEADRasterIO;
begin
   RasterIO:= CreateComObject ( CLASS_LEADRasterIO) as LEADRasterIO;
   RasterIO.GetFileInfo (LEADRasterView1.Raster, 'v:\images\babe.cmp', 1, FILEINFO_TOTALPAGES);
   ShowMessage (IntToStr(RasterIO.InfoViewPerspective));
end;