glwshch
路人甲
路人甲
  • 注册日期2004-01-04
  • 发帖数67
  • QQ
  • 铜币299枚
  • 威望0点
  • 贡献值0点
  • 银元0个
10楼#
发布于:2004-02-16 20:43
目前我还没有得到MapX只能陪大家走了
举报 回复(0) 喜欢(0)     评分
frankmei
路人甲
路人甲
  • 注册日期2004-02-02
  • 发帖数149
  • QQ
  • 铜币402枚
  • 威望0点
  • 贡献值0点
  • 银元0个
11楼#
发布于:2004-03-12 15:33
thanks
举报 回复(0) 喜欢(0)     评分
gmc78
路人甲
路人甲
  • 注册日期2003-08-17
  • 发帖数25
  • QQ
  • 铜币234枚
  • 威望0点
  • 贡献值0点
  • 银元0个
12楼#
发布于:2004-03-17 15:44
真是爽,让俺少走了弯路,常来!!!!!!!!
举报 回复(0) 喜欢(0)     评分
robbies
路人甲
路人甲
  • 注册日期2004-05-11
  • 发帖数16
  • QQ
  • 铜币210枚
  • 威望0点
  • 贡献值0点
  • 银元0个
13楼#
发布于:2004-05-13 14:06
<P>在delphi中怎么样实现gis中的i功能呀?</P>
刚刚接触gis,还请各位多多指教!
举报 回复(0) 喜欢(0)     评分
jmfyx
路人甲
路人甲
  • 注册日期2003-08-22
  • 发帖数17
  • QQ
  • 铜币149枚
  • 威望0点
  • 贡献值0点
  • 银元0个
14楼#
发布于:2004-05-13 14:54
顶!
举报 回复(0) 喜欢(0)     评分
chiling
路人甲
路人甲
  • 注册日期2003-08-21
  • 发帖数17
  • QQ
  • 铜币159枚
  • 威望0点
  • 贡献值0点
  • 银元0个
15楼#
发布于:2004-06-17 14:07
<P>前面有人问的winsock的实现</P><P>procedure TFrmMain.sockGPSServerConnectionRequest(ASender: TObject;
  requestID: Integer);
begin
  if sockGPSServer.State<>sckClosed then sockGPSServer.close;
  sockGPSServer.Accept(requestID);
end;</P><P>procedure TFrmMain.sockGPSServerDataArrival(ASender: TObject;
  bytesTotal: Integer);
var
  strData:olevariant;
  strGPS:string;
  strLongitude,strLatitude:string;
begin
  sockGPSServer.GetData(strData,8);
  strGPS:=strData;
  dealStrLocation(strGPS,strLongitude,strLatitude);//接收GPS信息进行处理
  GPSLocation(strLongitude,strLatitude);//
end;</P>
举报 回复(0) 喜欢(0)     评分
robbies
路人甲
路人甲
  • 注册日期2004-05-11
  • 发帖数16
  • QQ
  • 铜币210枚
  • 威望0点
  • 贡献值0点
  • 银元0个
16楼#
发布于:2004-06-18 09:34
有没有实现修改图元属性的例子呀?
刚刚接触gis,还请各位多多指教!
举报 回复(0) 喜欢(0)     评分
xiaonai
路人甲
路人甲
  • 注册日期2003-11-27
  • 发帖数87
  • QQ
  • 铜币418枚
  • 威望0点
  • 贡献值0点
  • 银元0个
17楼#
发布于:2004-07-02 14:51
<P>我有个插入图元的例子,你看有用没有咯</P><P>  Lyr1:=map1.Layers.Item('图层名);
     Lyr1.Editable:=True;
     pnt:=copoint.Create;
     feafrc := map1.FeatureFactory;
     newstyle := Costyle.Create;
     pnt.Set_(x1,y1);
  
     newstyle.SymbolType:=2;
     newstyle.SymbolCharacter:=35;
     newstyle.SymbolVectorColor:=micolorBlue;
     newstyle.SymbolVectorSize:=20;
     Ftr := feafrc.CreateSymbol(pnt,newstyle);
     Lyr1.AddFeature(Ftr,emptyparam);</P>
举报 回复(0) 喜欢(0)     评分
爱我中华
路人甲
路人甲
  • 注册日期2004-07-17
  • 发帖数3
  • QQ
  • 铜币113枚
  • 威望0点
  • 贡献值0点
  • 银元0个
18楼#
发布于:2004-07-17 18:47
非常感谢
举报 回复(0) 喜欢(0)     评分
felix
路人甲
路人甲
  • 注册日期2004-07-10
  • 发帖数14
  • QQ
  • 铜币157枚
  • 威望0点
  • 贡献值0点
  • 银元0个
19楼#
发布于:2004-07-18 10:40
<P>Map1.Geoset := ExtractFilePath(Application.ExeName) + 'Maps\beijingmap.gst';
  Map1.SearchPath := ExtractFilePath(Application.ExeName) + 'Maps\';
引入地图的例子。</P><P>我还请问。查询怎么做呢?</P>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部