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

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

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

用DELPHI + MAPXSTREME 能做WEBGIS吗？

<P>所有非代码的跟贴请楼主删掉（包括我这条）。本来这种帖子就长，再乱灌，就没法看了。</P>

<P>unit Unit1;</P><P>interface</P><P>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, OleCtrls, MapXLib_TLB;</P><P>type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    Map1: TMap;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;</P><P>var
   Form1: TForm1;
   path : string;
implementation</P><P>{$R *.dfm}</P><P>procedure TForm1.FormCreate(Sender: TObject);
var
   bindLayerObject:cmapxBindLayer;
   mapds:cmapxDataset;
   mapLayer : cmapxLayer;
   mapLabel : cmapxLabelProperties;
   ss: cmapxFields;
begin
   //ADODataSet1.Recordset
   path :=ExtractFilePath(application.ExeName);
   path := path + 'Maps\重庆.gst';
   map1.GeoSet := path;
   bindLayerObject := coBindLayer.Create;
   bindLayerObject.LayerName := 'ADS_Point';
   bindLayerObject.RefColumn1 := 'Lon';
   bindLayerObject.RefColumn2 := 'Lat';
   bindLayerObject.LayerType := miBindLayerTypeXY ;
   ss := coFields.Create;
   ss.Add('Lon', 'Lon', miAggregationSum,miTypeFloat);
   ss.Add('Lat', 'Lat', miAggregationSum,miTypeFloat);
   ss.Add('Name', 'Name', miAggregationSum,miTypeString);
   //mapds := codataset.Create;
   mapds := map1.Datasets.Add(miDataSetADO, ADODataSet1.Recordset, 'ADS_Point', 'Name', null, bindLayerObject, ss, false);
end;
end.</P><P>报错。project project`.exe raised exception class eacessviolation with message'access violation at address 1002A049 in module 'mapx40.ocx'</P><P>请教</P>

<P><img></P><P>清高手指教，</P>

<P><img></P><P>请高手帮忙解决这个问题？</P>

<P>如何求道路上两点之间的距离（道路距离）</P>
<P>MapX_+Delphi</P>

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