mapx+delphi怎么把excel中的经纬度绑定到地图中?(200分)

  • 主题发起人 主题发起人 jiordano
  • 开始时间 开始时间
J

jiordano

Unregistered / Unconfirmed
GUEST, unregistred user!
我的地图已经配准了,怎么把excel表中的经纬度绑定到地图中,我编写了一个程序,但是编译通不过,提示 :variantdo
es not reference an automation object.程序如下
procedure TForm1.Button5Click(Sender: TObject);
var
par:variant;
ds:cmapxdataset;
flds:cmapxfields;
begin

par:=createoleobject('mapx.odbcqueryinfo.4');
par.sqlquery:='select [sheet1$].longitude from [sheet1$]';
//par.datasource:=maindm.CS.aliasname;(此处datasource该如何定义???)
flds:=cofields.create;
flds.Add('longtitude','longitude',miaggregationindividual,mitypefloat);
flds.Add('latitude','latitude',miaggregationindividual,mitypefloat);
ds:=map1.Datasets.Add(midatasetodbc,midatasetodbc,par,'longitude',emptyparam,'building',flds,false);



end;


另,象我这样的例子,该如何绑定数据??
 
留一个mail,给你一个MapX与数据库绑定的例子和说明,还不明白再说。
 
iamcy@sohu.com!!不胜感谢
 
大富翁 吕雪松 或yysun 都是mapx方面的高手,你可以问他们或搜索他们的文章,对你很有帮助的!!!!
 
各位,能否给个mapX,另开贴有分. apw@sina.com
 
http://www.gissky.com/gisscience/down/mapX.exe
自己下载吧,如果不行再说
 
程序稍作修改后,提示:unable to match a geofield or binlayer automatically.程序如下,望各位大侠指示错误之处:
procedure TForm1.Button2Click(Sender: TObject);
var
par:variant;
ds:cmapxdataset;
flds:cmapxfields;
begin

par:=createoleobject('mapx.odbcqueryinfo.4');
par.sqlquery:='select * from [sheet1$]';
par.datasource:='CS';
par.connectstring:='Provider=MSDASQL.1;Persist Security Info=False;User ID=jiordano;Data Source=CS;Mode=Read;Extended Properties="DSN=CS;DBQ=E:/incoming/poject/CS_Chendu;DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;UID=admin;"';
flds:=cofields.create;
flds.Add('CS_NO','CS_NO',miaggregationindividual,mitypefloat);
//flds.Add('latitude','latitude',miaggregationindividual,mitypefloat);
ds:=map1.Datasets.Add(midatasetodbc,par,emptyparam,emptyparam,emptyparam,'building',flds,false);



end;
 
我不知道你其他的代码,发给你的例子不知道你看了没有?
要实现与数据库绑定首先要建立与数据库相同字段的MapX图层
 
to yostgxf:
我也正在做,能发个例子给我吗?
谢谢
 
为什么GIS的帖子老不结呢,搞的都没人看了 。
 
后退
顶部