ArcEngine,delphi创建shp文件

最新推荐文章于 2018-12-12 23:37:23 发布

原创最新推荐文章于 2018-12-12 23:37:23 发布 · 2.7k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #string #function #c

ArcObjects 同时被 2 个专栏收录

62 篇文章

订阅专栏

delphi

22 篇文章

订阅专栏

本文介绍了一个用于创建Shapefile矢量文件的函数。该函数接收文件名、字段信息、几何类型及空间参考等参数，并返回一个特征类。示例展示了如何使用此函数创建一个多线形Shapefile。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function CreateShapefile(const FileName: string; pFields: IFieldsEdit;
        ShapeType: Integer; SpatialReference: ISpatialReference = nil):
            IFeatureClass;
    var
        strFolder, strName              : string;
        pWS                             : IWorkspace;
        pFWS                            : IFeatureWorkspace;
        pWorkspaceFactory               : IWorkspaceFactory;
        pField                          : IFieldEdit;
        pGeomDef                        : IGeometryDefEdit;
        pFeatureClass                          : IFeatureClass;
    const
        strShapeFieldName               = 'Shape';
    begin
        strFolder := ExtractFileDir(FileName);
        strName := ExtractFileName(FileName);

        pWorkspaceFactory := CoShapefileWorkspaceFactory.Create as
            IWorkspaceFactory;
        pWorkspaceFactory.OpenFromFile(strFolder, 0, pWS);
        pWS.QueryInterface(IFeatureWorkspace, pFWS);

        pField := CoField.Create as IFieldEdit;
        pField.Set_Name(strShapeFieldName);
        pField.Set_Type_(esriFieldTypeGeometry);

        pGeomDef := CoGeometryDef.Create as IGeometryDefEdit;
        pGeomDef.Set_GeometryType(ShapeType);
        if SpatialReference = nil then
            pGeomDef._Set_SpatialReference(CoUnknownCoordinateSystem.Create as
                ISpatialReference)
        else
            pGeomDef._Set_SpatialReference(SpatialReference);

pField._Set_GeometryDef(pGeomDef);

pFields.AddField(pField);

pFWS.CreateFeatureClass(strName, pFields, nil, nil, esriFTSimple,
strShapeFieldName, '', pFeatureClass);

result := pFeatureClass;

        pWorkspaceFactory := nil;
        pField := nil;
        pGeomDef := nil;
    end;

   // 调用例子 by yanleigis landgis@126.com
var
    pField                              : IFieldEdit;
    pFields                             : IFieldsEdit;
begin
    pField := CoField.Create as IFieldEdit;
    pField.Set_Name('ID');
    pField.Set_Type_(esriFieldTypeInteger);
    pFields := CoFields.Create as IFieldsEdit;
    pFields.AddField(pField);
    if CreateShapefile('c:/temp/testshp', pFields, esriGeometryPolyline)=nil then
    begin
      Raise exception.Create('创建失败');
    end;
end;