|
30楼#
发布于：2004-09-15 10:38
<P>DELPHI+MAPX群号码是：590433</P><P>DELPHI+MAPX群号码是：59043300</P><P>DELPHI+MAPX群号码是：5904330</P>
|
|
|
31楼#
发布于：2004-09-21 10:44
老大，偶是菜鸟，你那儿有没有delphi+mapx中文培训资料，可以一步一步说明使用的，我有些地图作为交换，你看如何
|
|
|
32楼#
发布于：2004-10-19 14:53
<P>安装mapx5.0（delphi6）的问题：import MapXLib_TLB时报错：</P><P>[Error] MapXLib_TLB.pas(3504): Field or method identifier expected</P><P>[Error] MapXLib_TLB.pas(9598): Undeclared identifier: 'Set_Parameter'</P><P>[Error] MapXLib_TLB.pas(9873): Undeclared identifier: 'Get_NoFeatures'</P><P>[Error] MapXLib_TLB.pas(9878): Undeclared identifier: 'Get_AllFeatures'</P><P>[Error] MapXLib_TLB.pas(10401): Undeclared identifier: 'Get_Width'</P><P>[Error] MapXLib_TLB.pas(10406): Undeclared identifier: 'Get_Decimals'</P><P>[Error] MapXLib_TLB.pas(10593): Undeclared identifier: 'Get_RowValues'</P><P>[Error] MapXLib_TLB.pas(10598): Undeclared identifier: 'Get_SourceRows'</P><P>[Error] MapXLib_TLB.pas(17829): Undeclared identifier: 'Set_Nodes'</P><P>[Error] MapXLib_TLB.pas(18855): Undeclared identifier: 'Get_X'</P><P>[Error] MapXLib_TLB.pas(18860): Undeclared identifier: 'Get_Y'</P><P>[Error] MapXLib_TLB.pas(21341): Undeclared identifier: 'Get_Item'</P><P>[Fatal Error] info.dpk(35): Could not compile used unit '..\Imports\MapXLib_TLB.pas'</P><P>请教大虾如何解决</P>
|
|
|
33楼#
发布于：2004-11-10 10:26
谢谢!请问我初学MapX应该注意些什么?
|
|
|
34楼#
发布于：2004-11-23 15:19
<P>各位大侠：</P><P>我用delphi+mapx+oracle做系统，当我把mapinfo的tab表用easyloader传到oracle空间数据表后（该表没有属性数据），如何在的delphi中通过编程实现对该表结构的重新定义：</P><P>例如：我把管线的autocad图转换成mapinfo表后，用easyloader传到oracle spatial数据库，然后用delphi语言编程为该表增加管线标号，管径，埋深等字段，程序应该怎么写啊？？</P>
|
|
|
35楼#
发布于：2004-12-02 14:32
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
|
|
|
36楼#
发布于：2004-12-02 17:21
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />
|
|
|
37楼#
发布于：2004-12-07 17:59
看得不是很懂！
|
|
|
38楼#
发布于：2004-12-15 15:08
<P> lyr := Map1.Layers.CreateLayer('temp', EmptyParam,1,EmptyParam, EmptyParam);
//在Map1中创建一个Layer lyr.Editable := true;//可编辑</P> <P> inFtrCount :=Map1.Layers.Item(edit1.Text +'_地理').Selection.Count;</P> <P> if inFtrCount>1 then</P> <P> begin fts:= Map1.Layers.Item(edit1.Text +'_地理').Selection; for i:=1 to fts.Count do begin</P> <P> ft:=fts.Item(i); ft.keyvalue:=fts.Item(i).keyvalue; //ft.update; Map1.Layers.Item('temp').AddFeature(ft,emptyparam); end;</P> <P> end;</P> <P>// mm没的啊 e-mail:lovestwlj@163.com</P> <P>//自己看 临时图层加 标注</P><IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em08.gif" align=middle border=0> |
|
|
39楼#
发布于：2005-01-09 11:23
<P>自定义测距工具（PolyToolUsed事件）[转贴]</P><P>
//1.定义常量 const MYTOOL_DISTANCE=100;</P><P>//2.创建工具 procedure TForm1.FormCreate(Sender: TObject); begin Map1.CreateCustomTool(MYTOOL_DISTANCE, miToolTypePoly,miCrossCursor, EmptyParam, EmptyParam, EmptyParam); end;</P><P>//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;</P><P>//4.调用工具 procedure TForm1.cmdDistanceClick(Sender: TObject); begin map1.CurrentTool :=MYTOOL_DISTANCE; end;</P><img src="images/post/smile/dvbbs/em03.gif" /> |
|