轨迹回放在这里你还可以学习到点和线绘制.PDFVIP

目 录 1.轨迹回放：在这里你还可以学习到点和线绘制1 2.MapX 连接Oracle 数据库5 3.地图平移、居中、放大、缩小等操作6 4.在指定图层查找目标（陈吉）6 5.在指定图层查找目标，并将其居中显示（陈吉）7 6.数据绑定（陈吉）8 7.在地图上绘制一辆车（陈吉）10 8.闪烁目标实现（陈吉）12 9.导航功能实现：Map2 为导航图（陈吉）13 1. 11..轨迹回放：在这里你还可以学习到点和线绘制 procedureTForm1.carTrack(Longitude: double;Latitude: double); var i: integer; screenX: single; screenY: single; x:double; y:double; ptTemp:Point; ptNew :Point; ptLast:Point; ptSymbol: Point; fLine: Feature; fSymbol: Feature; fCircular: Feature; fFtrs:Features; begin ptTemp:= CoPoint.Create(); ptNew:= CoPoint.Create(); ptLast:= CoPoint.Create(); PtSymbol:= CoPoint.Create(); ptNew.Set_(Longitude,Latitude); // 察看当前车辆行驶轨迹，防止车辆移出地图 Map1.ConvertCoord(screenX,screenY,Longitude,Latitude,miMapToScreen); Memo1.Lines.Append(screenX:+FloatToStr(screenX)); Memo1.Lines.Append(screenY:+FloatToStr(screenY)); if ((screenX Map1.MapScreenWidth-20)or(screenX 20) or(screenY Map1.MapScreenHeight-20)or(screenY 20))then 1 begin Map1.CenterX := Longitude; Map1.CenterY := Latitude; end; // 如果位移量较大则重新开始 一个区域的绘制 if (ptsAll.Count0) then begin ptLast:= ptsAll.Item(ptsAll.Count); x:=Abs(ptLast.X-Longitude); y:=Abs(ptLast.Y-Latitude); if (x=0.001)or(y=0.001) then // 删除 符号图元 车辆 begin ptTemp.Set_(ptLast.X,ptLast.Y); fFtrs:= lyr.SearchWithinDistance(ptTemp,20,miUnitMeter, miSearchTypeCentroidWithin); if (fFtrs.Count=1)then begin fori:=1 tofFtrs.Count do begin if (fFtrs.Item(i).KeyValue = car)then begin lyr.DeleteFeature(fFtrs.Item(i)); end; end; end; ptsAll.RemoveAll; ptsLine.RemoveAll; end; end; if (ptsAl