//增加影像图,Filename含路径 by gisoracle,Email:gisoracle@126.com
function openRasterFile(FileName: string): IRasterLayer;
var
pRasterLayer : IRasterLayer;
begin
if not FileExists(FileName) then ,有些影像就是一个路径
begin
raise exception.Create(FileName + ':文件不存在');
end;
pRasterLayer := CoRasterLayer.Create as IRasterLayer;
pRasterLayer.CreateFromFilePath(FileName);
result := pRasterLayer;
end;