PB MapInfo应用与开发 [DELPHI+MAPX]专栏（只允许贴码跟贴）||做专业的GIS技术交流论坛

xiaonai 路人甲注册日期2003-11-27 发帖数87 QQ 铜币418枚威望0点贡献值0点银元0个加关注写私信	阅读：38779回复：62 [DELPHI+MAPX]专栏（只允许贴码跟贴）楼主^# 更多只看楼主倒序阅读发布于：2003-12-17 17:21 希望大家能互相学习，共同进步。
	喜欢0 评分0 最新喜欢：举报回复

khb2000

路人甲

注册日期2009-04-30
发帖数1
QQ
铜币104枚
威望0点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2009-05-25 00:13

举报回复喜欢评分

rocsoar 路人甲注册日期2005-01-14 发帖数1 QQ 铜币103枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2007-11-02 08:06 <P>请问高手,如何利用delphi和mapx实现输出地图的功能?</P> <P>已知两个顶点的经纬度和输出地图的比例尺.</P> <P>谢谢!</P>
	举报回复(0) 喜欢(0) 评分

11号摩托

路人甲

注册日期2007-09-27
发帖数6
QQ
铜币118枚
威望0点
贡献值0点
银元0个

加关注写私信

3楼^#

发布于：2007-10-12 17:10

自定义测距工具（PolyToolUsed事件）[转贴]
 //1.定义常量 const MYTOOL_DISTANCE=100;
//2.创建工具 procedure TForm1.FormCreate(Sender: TObject); begin Map1.CreateCustomTool(MYTOOL_DISTANCE, miToolTypePoly,miCrossCursor, EmptyParam, EmptyParam, EmptyParam); end;
//3.响应事件 procedure TForm1.Map1PolyToolUsed(Sender: TObject; ToolNum: Smallint; Flags: Integer; const Points: IDispatch; bShift, bCtrl: WordBool; var EnableDefault: WordBool); var DisSum : Double ; i: Integer; x1, y1, x2 , y2: Double ; begin DisSum:=0; if Flags=miPolyToolInProgress then begin if ToolNum= MYTOOL_DISTANCE then begin for i:=1 to CMapXPoints(Points).Count-1 do begin x1:=CMapXPoints(Points).Item(i).X;//delphi其他版本可能是item,即换为方括号 y1:=CMapXPoints(Points).Item(i).Y; x2:=CMapXPoints(Points).Item(i+1).X; y2:=CMapXPoints(Points).Item(i+1).Y; DisSum:=DisSum+Map1.Distance(x1,y1,x2,y2); end; Statusbar1.Panels[0].Text:=floattostr(dissum); end;//if end; //if end;
//4.调用工具 procedure TForm1.cmdDistanceClick(Sender: TObject); begin map1.CurrentTool :=MYTOOL_DISTANCE; end;

可惜我总是出错

举报回复喜欢评分

cyy0121

路人甲

注册日期2007-08-20
发帖数7
QQ
铜币130枚
威望0点
贡献值0点
银元0个

加关注写私信

4楼^#

发布于：2007-09-12 10:35

//对查找到的图元，进行字段读取/修改 Var lyr : CMapXLayer; finds: CMapXFeatures; i,j:integer; rv: CMapxRowvalue; rvs: CMapxRowvalues; ds:CMapxDataset;
begin
 lyr:=map1.Layers.Item[edit1.text]; DS:=map1.DataSets.Add(miDatasetLayer,lyr,emptyparam,emptyparam, emptyparam,emptyparam,emptyparam,emptyparam); finds:=lyr.Search('city="'+edit3.Text+'"',emptyparam); i:=finds.Count; while (i>0) do begin map1.ZoomTo(strtofloat(edit4.text),finds.Item[1].CenterX, finds.Item[1].CenterY); lyr.Selection.Replace(finds);
 rvs:=ds.Rowvalues[finds.Item]; for j:=1 to ds.Fields.Count do begin showmessage(rvs.Item[j].value); end;
 rvs.Item[1].value:=99; //为第一个字段赋值（本例图元有三个属性） rvs.Item[2].value:='bbb';//为第二个字段赋值 rvs.Item[3].value:='cccc';//为第三个字段赋值
 finds.Item.Update(true,rvs); i:=i-1;
 end; if finds.Count=0 then showmessage('没找到'); end;

举报回复喜欢评分

whmwxhanshan123 路人甲注册日期2006-06-17 发帖数3108 QQ 铜币6445枚威望0点贡献值0点银元0个加关注写私信	5楼^# 发布于：2007-04-24 21:26 <BR> m_FlowPenTool:=TFlowPen.Create; <BR> m_FlowPenTool.CreateFlowPenTool(Map1); <BR><BR>Map1.CurrentTool:=m_FlowPenTool.GetToolNum(); <BR><BR>
	举报回复(0) 喜欢(0) 评分

zdy2777

路人甲

注册日期2005-08-20
发帖数1
QQ
铜币105枚
威望0点
贡献值0点
银元0个

加关注写私信

6楼^#

发布于：2006-04-24 21:57

各位大侠，我现在用mapx开发一个显示实时雨量信息的程序，程序每小时刷新一次，对有雨的站点，显示为下雨的图片，并且显示具体的数据，我用下面的方法来实现： lyr :=Map1.Layers.Item['rain']; lyr.KeyField:='id'; //把查找的图层的值给一个图层 ds := map1.Datasets.Add(miDataSetLayer, lyr ,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); //向地图的数据集中加入查找到的图层 lyr.Find.FindDataset := ds; //字段数据集 lyr.Find.FindField := ds.Fields.Item[2];//数据集字段 str := Format('%s',['99876']); //要查找的id号 ft := lyr.Find.Search(str,EmptyParam);//找到的图元（如果找到两个的话就有问题） ftt:=ft.Layer.GetFeatureByID(ft.FeatureID ); X:=ftt.CenterX; Y:=ftt.Centery; map1.Annotations.AddSymbol(x,y).Graphic.Style..SymbolBitmapName:='LITE1-32.bmp' ;//LITE1-32.bmp文件在C:\Program Files\MapInfo\MapX 5.0\CUSTSYMB目录下 程序运行没问题，可是总不能显示为我要的图片，而是缺省的样式。 想问一下： 1、如果实现在Annotations上显示自定义图片？ 2、如果不能实现，有没有其他的方法。 3、我的目标是：在查找的图元上显示一个自定义图片和相关的数据，并且能刷新。 4、另外显示文字的时候，文字的大小好象随着图片的方法和缩小而变化，能让它不变大变小吗？map1.Annotations.AddText('89.10',X,Y,miPositionTC).Graphic.Style.TextFontColor :=clred//89.10往往会覆盖在标注的图片上，并且随图片放大而放大。

举报回复喜欢评分

童话

路人甲

注册日期2006-03-10
发帖数1
QQ
铜币107枚
威望0点
贡献值0点
银元0个

加关注写私信

7楼^#

发布于：2006-04-14 16:18

procedure TForm1.Button1Click(Sender: TObject); var Ftr :feature; pts1:points; pt:point;
begin Ftr.Attach(Map1); Ftr.Type_:= miFeatureTypeLine;
 // Make a new region feature with two triangles pt.Set_(Map1.CenterX + 10, Map1.CenterY); pts1.Add(pt,emptyparam); pt.Set_(Map1.CenterX + 10, Map1.CenterY + 5); pts1.Add(pt,emptyparam); pt.Set_(Map1.CenterX + 15, Map1.CenterY); pts1.Add(pt,emptyparam); pt.Set_(Map1.CenterX + 20, Map1.CenterY); pts1.Add(pt,emptyparam);
 // Add the two triangles to the new region Ftr.parts.add(pts1); //ftr:=map1.FeatureFactory.CreateLine(pts1,emptyparam); //map1.Layers.Item(1).addfeature(ftr,emptyparam);
 //Add the region to a temporary layer Map1.Layers.Item(1).addfeature(Ftr,emptyparam); end; 为什么会出现错误/,用同样的方法在vb中就能实现????
请高手解答!!Ftr.Attach(Map1);会出错,为什么,

举报回复喜欢评分

rainfeeling

路人甲

注册日期2005-05-27
发帖数11
QQ
铜币149枚
威望0点
贡献值0点
银元0个

加关注写私信

8楼^#

发布于：2006-02-09 20:59

procedure TForm1.Map1ToolUsed(ASender: TObject; ToolNum: Smallint; X1, Y1, X2, Y2, Distance: Double; Shift, Ctrl: WordBool; var EnableDefault: WordBool); var pt:CMapXPoint; Lyr:CMapXLayer; ftr:CMapXFeature; feaFac:CMapXFeatureFactory; newStyle:CMapXStyle; begin //邦定 lyr:=Map1.Layers['China Major cities']; feaFac:=map1.FeatureFactory; //设置点对象样式 newstyle:=CoStyle.Create; newstyle.SymbolType:=miSymbolTypeBitmap; newstyle.SymbolBitmapSize:=24; newstyle.SymbolBitmapTransparent:=false; newstyle.SymbolBitmapName:='YIEL2-32.BMP'; //禁止自动刷新 Map1.AutoRedraw:=false; //置当前图层为可写状态 lyr.Editable:=true; //创建点对象 pt:=CoPoint.Create; pt.Set_(map1.CenterX,map1.CenterY); //添加进当前图层 ftr:=feafac.CreateSymbol(pt,NewStyle); //创建符号 ftr:=feafac.CreateSymbol(pt,map1.DefaultStyle); //添加 lyr.AddFeature(ftr,EmptyParam); lyr.Refresh; map1.AutoRedraw:=true; lyr.Editable:=false; //释放 pt._Release; end;
出现"指定图层为只读图层，只读图层不可编辑”的错误是怎么回事？

举报回复喜欢评分

woshishei 路人甲注册日期2004-12-30 发帖数2 QQ 铜币116枚威望0点贡献值0点银元0个加关注写私信	9楼^# 发布于：2005-12-05 17:10 <img src="images/post/smile/dvbbs/em01.gif" />
	举报回复(0) 喜欢(0) 评分

您需要登录后才可以回帖，登录或者注册

[DELPHI+MAPX]专栏（只允许贴码跟贴）

最新喜欢：