Delphi XE8安卓(android)定位纠偏、地图简单调用、检测开启系统GPS



该Demo是为后期开发做的功能测试，功能代码也很简单，尽量做到一看即懂！

感谢Q群【①FireMonkey[移动开发]】165232328 里的网友们交流与指导，如果你有更好的实现方式或代码优化欢迎你进入群内或留言交流！

 已实现功能
1.获取手机GPS定位得到的坐标
2.纠偏系统获取的坐标为腾讯地图坐标
3.用纠偏后的坐标简单调用腾讯地图并定位
4.判断开启系统是否打开定位，如未打开则弹出系统位置服务设置界面

 存在的问题
获取到坐标之后WebBrowser中的地图会重新打开一次
定位开关按钮不会根据系统GPS是否开启而开启、关闭

下面贴出的为主要功能代码，如有需要可以通过文章后面的云盘地址下载。

// 开发调试环境: win8.1+Delphi XE8+TCL M3GS（android 5.0.2 X64)
// 已实现功能
// 1.获取手机GPS定位得到的坐标
// 2.纠偏系统获取的坐标为腾讯地图坐标
// 3.用纠偏后的坐标简单调用腾讯地图并定位
// 4.判断开启系统是否打开定位，如未打开则弹出系统位置服务设置界面
// 分享人：[绵阳]炒蛋
// 感谢: [深圳]/tp机器猫(5909386) 提供的GLGSPCorrect翻译并提供的【GPS 纠偏及逆转】单元文件
// 感谢: [鞍山]古飞(8444243) 提供的【弹出系统位置服务设置界面】代码
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX