用DELPHI + MAPXSTREME 能做WEBGIS吗？

<P>为什么在查找图元时，总是出错啊 Find.serch()</P><P>各位老大请帮忙！</P>

<P>请问各位老大：</P>
<P>如何实现在地图上添加一指南针，或比例尺，当地图缩放或旋转时，随之做相应变化？</P>
<P>最好能实现透明效果。</P>

<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<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" />

<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>

看得不是很懂！

<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" />

<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<P>各位大侠：</P><P>我用delphi+mapx+oracle做系统，当我把mapinfo的tab表用easyloader传到oracle空间数据表后（该表没有属性数据），如何在的delphi中通过编程实现对该表结构的重新定义：</P><P>例如：我把管线的autocad图转换成mapinfo表后，用easyloader传到oracle spatial数据库，然后用delphi语言编程为该表增加管线标号，管径，埋深等字段，程序应该怎么写啊？？</P>