主题:delphi + MapX4
我用MapX4开发地图,以下是我写的代码
with ADOQuery1 do
begin
Close;
ADOQuery1.SQL.Clear;
SQL.Text := 'select ID, Name, X, Y from MyTab';
Open;
end;
Map1.Layers.RemoveAll;//先删除a图层。事实上,后来我用一个没有a图层的GST也测试成功,当然,就没必要写RemoveAll这句了
oBLayer := coBindLayer.Create;
oBLayer.LayerName := 'a';
oBLayer.LayerType := miBindLayerTypeXY;//必须使用这个参数才能绑定XY坐标
oBLayer.RefColumn1 := 'X';//第一个参数必须指定为横坐标
oBLayer.RefColumn2 := 'Y';//纵坐标
//添加数据集
ds := map1.Datasets.Add(12,
Self.ADOQuery1.Recordset,
'MyTab',//数据集名称
'ID',//传入的是Xunit表中的字段ID的名称
EmptyParam,
oBLayer,//BindLayer
EmptyParam,
EmptyParam);
执行到ds:=...的时候就报错,错误是“Operation not allowed due to license restrictions”这是怎么回事?谢谢大家指点
with ADOQuery1 do
begin
Close;
ADOQuery1.SQL.Clear;
SQL.Text := 'select ID, Name, X, Y from MyTab';
Open;
end;
Map1.Layers.RemoveAll;//先删除a图层。事实上,后来我用一个没有a图层的GST也测试成功,当然,就没必要写RemoveAll这句了
oBLayer := coBindLayer.Create;
oBLayer.LayerName := 'a';
oBLayer.LayerType := miBindLayerTypeXY;//必须使用这个参数才能绑定XY坐标
oBLayer.RefColumn1 := 'X';//第一个参数必须指定为横坐标
oBLayer.RefColumn2 := 'Y';//纵坐标
//添加数据集
ds := map1.Datasets.Add(12,
Self.ADOQuery1.Recordset,
'MyTab',//数据集名称
'ID',//传入的是Xunit表中的字段ID的名称
EmptyParam,
oBLayer,//BindLayer
EmptyParam,
EmptyParam);
执行到ds:=...的时候就报错,错误是“Operation not allowed due to license restrictions”这是怎么回事?谢谢大家指点