Delphi 开发 ArcGis 取坐标信息

最新推荐文章于 2022-12-09 14:53:18 发布

CoderOfDelphi

最新推荐文章于 2022-12-09 14:53:18 发布

阅读量1.2k

点赞数

分类专栏： Delphi 二次开发 ArcGis

本文链接：https://blog.csdn.net/hecongzhen/article/details/38063929

版权

Delphi 二次开发 ArcGis 专栏收录该内容

2 篇文章 1 订阅

订阅专栏

1 看别人的资料好像可以取出单位信息,但我梅雨取出单位信息

2 在mousemove 事件中有mapx mapy两个参数直接可以使用

procedure TForm3.ArcGisMapControl1MouseMove(ASender: TObject; button, shift, X,
  Y: Integer; mapX, mapY: Double);
 var
   mapunit:TOleEnum;
   convert:IUnitConverter;
   sunit:widestring;
   wb:WordBool;
begin
//
  ArcGisMapControl1.Map.Get_MapUnits(mapunit);
  CoCreateInstance(class_UnitConverter,nil,CLSCTX_INPROC_SERVER,iid_Iunitconverter,convert);
  convert.EsriUnitsAsString(mapunit,esriCaseAppearanceUnchanged,wb,sunit);
  labPos.Caption := 'X='+floattostr(mapx)+' Y='+floattostr(mapy)+' '+ sunit;
end;