终于搞定了mapx的专题地图,唉,资料真少呀。好不容易测试成功。
var
ds: CMapXDataset;
mBinlayer: CMapXBindLayer;
i,j: integer;
str: string;
begin
ADOConnection1.Connected := true;
ADOQuery1.close;
ADOQuery1.SQL.Text := 'select * from city';
ADOQuery1.Open;
mBinlayer := CoBindLayer.Create;
mBinlayer.LayerName := 'sbount';
mBinlayer.RefColumn1 := 'name';
//mBinlayer.RefColumn2 := 'Latitude';
mBinlayer.LayerType := miBindLayerTypeXY;
ds := Map1.DataSets.Add(miDataSetADO,ADOQuery1.Recordset,
EmptyParam,'CityName','count','sbount',EmptyParam,EmptyParam);
ds.Themes.Add(miThemeDotDensity,'count','mythreme',true);