在delphi中调用Geoprocessor 调用ArcToolBox工具

最新推荐文章于 2020-11-21 01:38:03 发布

weixin_30782293

最新推荐文章于 2020-11-21 01:38:03 发布

阅读量122

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/hihikoo/archive/2009/08/30/1556676.html

本文介绍使用Delphi进行地理信息系统(GIS)开发的方法，并通过与VB代码的对比，展示如何利用ArcGIS Engine进行空间数据处理。具体示例为裁剪空间数据。

用delphi开发AO可以参考VB的代码两者实现方式相当
但是也有一些细微的差别需要自己去琢磨
关于Geoprocessing 参考文档 Using Geoprocessing Tools in VB
上代码:

var

pInLayer        :ILayer;
pClipLayer      :ILayer;
pFeaInLayer     :IFeatureLayer;
pFeaClipLayer   :IFeatureLayer;
sInFeatures,sClipFeature,sOutFeatures : WideString;
pathName:WideString;
pDataset:IDataset;
pFeaClass:IFeatureClass;
pWS:IWorkspace;
pGeoResult:IGeoprocessorResult;

pAOI : IAoInitialize;
pLicenseStatus:TOleenum;
pVA :IVariantArray;
pGP :IGeoProcessor;

begin
pFeaInLayer:=pInLayer as IFeatureLayer;
pFeaClipLayer:=pClipLayer as IFeatureLayer;

pAOI:=CoAoInitialize.Create as IAoInitialize;
pAOI.Initialize(esriLicenseProductCodeArcInfo,pLicenseStatus);

    pGP:=CoGeoprocessor.Create as IGeoprocessor;
    //pGP.ResetEnvironments;
    //pGP.SetEnvironmentValue('workspace','C:\temp');
    //pGP.AddToolbox('D:\Program Files\ArcGIS\ArcToolBox\Toolboxes\Analysis Tools.tbx');
    pGP.Set_AddOutputsToMap(True);
    pGP.Set_OverwriteOutput(True);
    pVA:=CoVarArray.Create as IVariantArray;

    pFeaInLayer.Get_FeatureClass(pFeaClass);
    pDataset:=pFeaClass as IDataset;
    pDataset.Get_Workspace(pWS);
    pWS.Get_PathName(pathName);
    sInFeatures:=pathName+'\'+OverlayChooseLayerFrm.LayerName1+'.shp';

    pFeaClipLayer.Get_FeatureClass(pFeaClass);
    pDataset:=pFeaClass as IDataset;
    pDataset.Get_Workspace(pWS);
    pWS.Get_PathName(pathName);
    sClipFeature:=pathName+'\'+OverlayChooseLayerFrm.LayerName2+'.shp';

CreateDirectory(pChar('C:\temp'),Nil);
sOutFeatures:='C:\temp\Clip_output.shp';

    pVA.Add(sInFeatures);
    pVA.Add(sClipFeature);
    pVA.Add(sOutFeatures);

    pGP.Execute('Clip_analysis',pVA,Nil,pGeoResult);
    pGP.Get_MessageCount(layercount);
   { for I := 0 to layercount - 1 do
    begin
      pGP.GetMessage(i,sOutFeatures);
      showmessage(sOutFeatures);
    end;   }
    pAOI.shutdown;
    ShowMessage('裁剪完成,裁剪结果保存于C:\Temp目录下');
end

转载于:https://www.cnblogs.com/hihikoo/archive/2009/08/30/1556676.html