delphi的定时调用，设置新的、你指定的地图中心。
if isGPS = 'OK' then
WbDT.OleObject.document.parentWindow.SetCenter(gx, gy);
1、isGPS标志是在HTML文件完成时赋值。
// 地图网页显示完成
procedure TAPlayer.wbDTDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
if WbDT.Application = pDisp then
begin
isGPS := 'OK';
end;
end;
2、wbDT 是这样的 wbDT: TWebBrowser;
3、调用的SetCenter(gx, gy)函数在HTML文件定义：
<script type="text/javascript">
function SetCenter(x, y)                  //设置新的地图中心
{
var point1 = new BMap.Point(x, y);
marker1.setPosition(point1);
}
var map = new BMap.Map("allmap");
var point = new BMap.Point(113.509474,22.285313);
var marker1 = new BMap.Marker(new BMap.Point(113.509474,22.285313));   
注意：大小写要一致。
java修改html文件
4、uses里加入MSHTML

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。