arcengine 删除影像

最新推荐文章于 2025-08-08 12:36:32 发布

原创最新推荐文章于 2025-08-08 12:36:32 发布 · 769 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #string

arcengine 同时被 2 个专栏收录

92 篇文章

订阅专栏

delphi

18 篇文章

订阅专栏

本文提供了使用Delphi代码通过ArcEngine删除影像文件的方法。一种方式是直接通过ArcEngine的IRasterLayer接口打开并删除影像文件；另一种方法是遍历指定目录下的所有文件，查找与待删除影像文件名匹配的文件，并逐一删除。

//arcengine 删除影像 delphi代码 by gisoracle

function delraster(FileName: string): boolean;
var
    pRasterLayer                        : IRasterLayer;
    pDataset                            : IDataset;
begin
    pRasterLayer := openRasterFile(FileName);
    pDataset := pRasterLayer as IDataset;
    result := pDataset.Delete = s_Ok;

end;

采用如下类似方法也可以

var
    searchrec                           : TSearchRec;
    res                                 : Word;
    Directory                           : string;
    onlyshpFileName                     : string;
begin
    Directory := ExtractFilePath(shpFileName);
    onlyshpFileName := UpperCase(Getonlyfilename(shpFileName));
    if Directory[Length(Directory)] <> '/' then
        Directory := Directory + '/';
    res := FindFirst(Directory + '*.*', faAnyFile, searchrec);
    while res = 0 do
    begin
        if searchrec.Name[1] <> '.' then
        begin

            if UpperCase(Getonlyfilename(searchrec.Name)) = onlyshpFileName then
            begin
                DeleteFile(Directory + searchrec.Name);
            end;

        end;
        res := FindNext(searchrec);
        Application.ProcessMessages;
    end;
    FindClose(searchrec);
end;