Delphi ArcEngine 将要素类转换输出为 Shape 文件
摘要:在这里感谢 “端木飘零”procedure ConvertFeatureClassToShapesFile(pFeatureClass: IFeatureClass; pFilePath, pFileName: string);varpInDataSet, pOutDataSet: IDataSet;pInWorkSpace: IWorkSpace;pInFeatureCl...
阅读全文
posted @
2009-05-24 14:21
知真道
阅读(2030)
推荐(1)
Delphi ArcEngine 根据条件添加文本注记
摘要:function Annotation4Layer(aeMapControl: TMapControl; pLayer: ILayer; sField: string; pColor: IRgbColor; sWhere: string = ''; iTextSize: SmallInt = 9): Boolean;//带条件的 文字标注 ,指定图层 ,字段,颜色 和 条件表达式 ,文字大小 v...
阅读全文
posted @
2009-04-03 12:06
知真道
阅读(1512)
推荐(1)
Delphi ArcEngine 打印PageControl内容
摘要://需要引用 printer,windows 单元 function PrintLayoutMap(pPageLayout: TPageLayoutControl): Boolean; var pPrinter: IPrinter; pPaper: IPaper; pPage: IPage; begin if Printer.Printers.Count > 0 then be...
阅读全文
posted @
2009-03-30 21:29
知真道
阅读(539)
推荐(0)
Delphi ArcEngine 打印PageControl内容
摘要://需要引用 printer,windows 单元 function PrintLayoutMap(pPageLayout: TPageLayoutControl): Boolean; var pPrinter: IPrinter; pPaper: IPaper; pPage: IPage; begin if Printer.Printers.Count > 0 then be...
阅读全文
posted @
2009-03-30 21:22
知真道
阅读(460)
推荐(0)
Delphi ArcEngine 闪烁显示指定点附近元素方法
摘要:function FlashElement(aeMapControl: TMapControl; iFlashCount, iInternal: Integer; pColor: IColor; pPoint: IPoint): Boolean; var pEnumElement: IEnumElement; pElement: IElement; pGraphicsContain...
阅读全文
posted @
2009-03-30 20:39
知真道
阅读(831)
推荐(0)
Delphi ArcEngine 创建梯度专题 Proportional
摘要:function ProportionalSymbolRenderer(pLayer: ILayer; sField: string; pFrontColor, pBackColor: IColor; iLegendCount: Integer): Boolean; //参数依次为 图形,该图层的某一个字段名称,前景色,背景色,图例分级数量 var pGeoLayer: IGeoFeat...
阅读全文
posted @
2009-03-27 16:36
知真道
阅读(461)
推荐(0)
Delphi ArcEngine 创建独立值专题
摘要:type UniqueValueType = (uvtFillSymbol, uvtMarkerSymbol); function UniqueValueRenderer(pLayer: ILayer; sField: string; estyle: UniqueValueType; iDotSize: Integer = 25): Boolean; var pGeoLayer: IGeoF...
阅读全文
posted @
2009-03-27 16:08
知真道
阅读(643)
推荐(0)
Delphi ArcEngine 向Mapcontrol和PageControl添加位图方法
摘要:function InsertImage(pActiveView:IActiveView; pEnvelope: IEnvelope; sBmpFile: string): Boolean; //参数依次为 活动视图(可以是Mapcontrol或PageControl的ActiveView),绘制范围,位图文件名称的全路径 //调用方法 举例 InsertImage(MapControl1.A...
阅读全文
posted @
2009-03-24 14:08
知真道
阅读(712)
推荐(0)
Delphi ArcEngine 创建Chart专题
摘要:type ChartType = (ctBarChart, ctPieChart, ctStackedChart); //创建柱状 饼状 stacked 专题 //参数依次为 图层,字段集合,专题样式,chart大小,是否垂直放置(默认为否) function ChartRenderer(pLayer: ILayer; sField: TStringList; eChartSyle:...
阅读全文
posted @
2009-03-22 02:13
知真道
阅读(1206)
推荐(0)
Delphi ArcEngine 创建点密度专题方法
摘要:function DotDensityRenderer(pLayer: ILayer; sField: string; iDotSize: Integer; pRgbColor: IRgbColor; dDotValue: Double): Boolean; //参数说明 ,按顺序 指定的图层,字段 ,点大小,颜色,每个点代表的值 var pGeoLayer: IGeoFeature...
阅读全文
posted @
2009-03-21 12:27
知真道
阅读(482)
推荐(0)
Delphi ArcEngine 三种颜色获取方法
摘要://从 RGB 值 获得颜色 应该是 编程中用的最多的方式,所以 我提供了两个函数 一个是 将Delphi中的Tcolor 转换到 ae 的 IRgbColor //另一个是 由 Rgb 值 得到 IRgbColor //将Delphi中的 Tcolor 转换成 ae 中 的 IrgbColor //TColor 可以从很多控件的 Color 属性获得,或者 可以从 很多 颜色选择控件...
阅读全文
posted @
2009-03-19 12:10
知真道
阅读(709)
推荐(0)
Delphi ArcEngine 创建图例
摘要:function InsertLegend(aePageLayoutControl: TPageLayoutControl; sTitle: string): Boolean; var pPageLayout: IPageLayout; pMap : IMap; pActiveMap: IActiveView; pGraphicContainer: IGraphic...
阅读全文
posted @
2009-03-19 11:20
知真道
阅读(672)
推荐(0)
Delphi版 ArcEngine 创建MapSurround对象
摘要:function CreateSurround(pUID: UID; pEnv: IEnvelope; strName: string; pPageLayout: IPageLayout): IMapSurround; var pGraphicsContainer: IGraphicsContainer; pActiveView: IActiveView; pMapSurroun...
阅读全文
posted @
2009-03-19 11:16
知真道
阅读(632)
推荐(0)
Delphi ArcEngine 创建指北针
摘要:function InsertNorthArrow(aePageLayoutControl: TPageLayoutControl; iStyle: SmallInt): Boolean; var pPageLayout: IPageLayout; pMap : IMap; pActiveMap: IActiveView; pGraphicContainer: IG...
阅读全文
posted @
2009-03-19 11:15
知真道
阅读(882)
推荐(0)
Delphi ArcEngine 创建比例尺
摘要://本函数 是在 PageControl上拉选一个区域内 创建一个比例尺,比例尺的样式,我自己定义一个 枚举类型 如下 type ScaleType = (stAlternating, stDoubleAlternating, stHollow, stScaleLine, stSingleDivision, stSetpped); function InsertScaler(aeP...
阅读全文
posted @
2009-03-19 11:10
知真道
阅读(1028)
推荐(0)
Delphi版 ArcEngine 根据属性查询要素
摘要:function SearchByPropInfo(pLayer: ILayer; sWhere: string; out iCounts: Integer): IFeatureCursor; var pQueryFilter: IQueryFilter; pFeatureLayer: IFeatureLayer; pFeatureSelection: IFeatureSelec...
阅读全文
posted @
2009-03-17 21:54
知真道
阅读(1053)
推荐(0)
Delphi版 ArcEngine 10种格式地图输出方法
摘要:Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ --> 1function ExportMapToFile(pActiveView: IActiveView; filetypes: FileType; fileName: string): Bool...
阅读全文
posted @
2009-03-14 17:53
知真道
阅读(742)
推荐(0)
Delphi版 MapControl加载DWG文件
摘要:function LoadDwgFile(mapControl: TMapControl; dwgFilePath: string; dwgFileName: string): Boolean; var qCadWorkFactory: IWorkspaceFactory; qWorkSpace: IFeatureWorkspace; qFeatDataset: IFeature...
阅读全文
posted @
2009-03-07 00:16
知真道
阅读(1176)
推荐(0)
Delphi版 创建ClassBreaks专题地图
摘要:function ClassBreaksRenderer(pLayer: ILayer; sField: string; pColor: IColor; PColorFrom: IColor; pColorTo: IColor; eStyle: TOleEnum; iBreakCount: Integer): Boolean; var pGeoLayer: IGeoFeatureLay...
阅读全文
posted @
2009-03-06 03:01
知真道
阅读(445)
推荐(0)
Delphi版 创建SimpleRenderer专题地图[增强版]
摘要://对给定的图层的某一字段,用指定的颜色和样式创建专题 function SimpleRenderer(pLayer: ILayer; sField: string; pColor: IColor; eStyle: TOleEnum): Boolean; var pSimpleRenderer: ISimpleRenderer; pSimpleFillSymbol: ISimpleFil...
阅读全文
posted @
2009-03-06 00:11
知真道
阅读(537)
推荐(0)