Delphi XE6 Android 查看电池信息

网络 Delphi

本文整理自网络，侵删。

 
unit Android.BatteryManager;

interface

uses Androidapi.JNI.JavaTypes, Androidapi.JNIBridge;

type
  JBatteryManagerClass = interface(JObjectClass)
    ['{739F38F8-E2A2-4016-8739-3F073A0E3E60}'] // CTRL+SHIFT+G
    function _GetBATTERY_HEALTH_COLD: Integer;
    function _GetBATTERY_HEALTH_DEAD: Integer;
    function _GetBATTERY_HEALTH_GOOD: Integer;
    function _GetBATTERY_HEALTH_OVERHEAT: Integer;
    function _GetBATTERY_HEALTH_OVER_VOLTAGE: Integer;
    function _GetBATTERY_HEALTH_UNKNOWN: Integer;
    function _GetBATTERY_HEALTH_UNSPECIFIED_FAILURE: Integer;
    function _GetBATTERY_PLUGGED_AC: Integer;
    function _GetBATTERY_PLUGGED_USB: Integer;
    function _GetBATTERY_PLUGGED_WIRELESS: Integer;
    function _GetBATTERY_STATUS_CHARGING: Integer;
    function _GetBATTERY_STATUS_DISCHARGING: Integer;
    function _GetBATTERY_STATUS_FULL: Integer;
    function _GetBATTERY_STATUS_NOT_CHARGING: Integer;
    function _GetBATTERY_STATUS_UNKNOWN: Integer;
    function _GetEXTRA_HEALTH: JString;
    function _GetEXTRA_ICON_SMALL: JString;
    function _GetEXTRA_LEVEL: JString;
    function _GetEXTRA_PLUGGED: JString;
    function _GetEXTRA_PRESENT: JString;
    function _GetEXTRA_SCALE: JString;
    function _GetEXTRA_STATUS: JString;
    function _GetEXTRA_TECHNOLOGY: JString;
    function _GetEXTRA_TEMPERATURE: JString;
    function _GetEXTRA_VOLTAGE: JString;

    property BATTERY_HEALTH_COLD: Integer read _GetBATTERY_HEALTH_COLD;
    property BATTERY_HEALTH_DEAD: Integer read _GetBATTERY_HEALTH_DEAD;
    property BATTERY_HEALTH_GOOD: Integer read _GetBATTERY_HEALTH_GOOD;
    property BATTERY_HEALTH_OVERHEAT: Integer read _GetBATTERY_HEALTH_OVERHEAT;
    property BATTERY_HEALTH_OVER_VOLTAGE: Integer
      read _GetBATTERY_HEALTH_OVER_VOLTAGE;
    property BATTERY_HEALTH_UNKNOWN: Integer read _GetBATTERY_HEALTH_UNKNOWN;
    property BATTERY_HEALTH_UNSPECIFIED_FAILURE: Integer
      read _GetBATTERY_HEALTH_UNSPECIFIED_FAILURE;
    property BATTERY_PLUGGED_AC: Integer read _GetBATTERY_PLUGGED_AC;
    property BATTERY_PLUGGED_USB: Integer read _GetBATTERY_PLUGGED_USB;
    property BATTERY_PLUGGED_WIRELESS: Integer
      read _GetBATTERY_PLUGGED_WIRELESS;
    property BATTERY_STATUS_CHARGING: Integer read _GetBATTERY_STATUS_CHARGING;
    property BATTERY_STATUS_DISCHARGING: Integer
      read _GetBATTERY_STATUS_DISCHARGING;
    property BATTERY_STATUS_FULL: Integer read _GetBATTERY_STATUS_FULL;
    property BATTERY_STATUS_NOT_CHARGING: Integer
      read _GetBATTERY_STATUS_NOT_CHARGING;
    property BATTERY_STATUS_UNKNOWN: Integer read _GetBATTERY_STATUS_UNKNOWN;
    property EXTRA_HEALTH: JString read _GetEXTRA_HEALTH;
    property EXTRA_HEALTHEXTRA_HEALTHEXTRA_ICON_SMALL: JString
      read _GetEXTRA_ICON_SMALL;
    property EXTRA_LEVEL: JString read _GetEXTRA_LEVEL;
    property EXTRA_PLUGGED: JString read _GetEXTRA_PLUGGED;
    property EXTRA_PRESENT: JString read _GetEXTRA_PRESENT;
    property EXTRA_SCALE: JString read _GetEXTRA_SCALE;
    property EXTRA_STATUS: JString read _GetEXTRA_STATUS;
    property EXTRA_TECHNOLOGY: JString read _GetEXTRA_TECHNOLOGY;
    property EXTRA_TEMPERATURE: JString read _GetEXTRA_TEMPERATURE;
    property EXTRA_VOLTAGE: JString read _GetEXTRA_VOLTAGE;
  end;

  [JavaSignature('android/os/BatteryManager')]
  JBatteryManager = interface(JObject)
    ['{73085A7C-18A7-4295-A0E2-A7B7D2C0EACB}'] // CTRL+SHIFT+G
  end;

  TJBatteryManager = class(TJavaGenericImport<JBatteryManagerClass,
    JBatteryManager>)
  end;

implementation

end.




uses Android.BatteryManager,
  Androidapi.Helpers,
  Androidapi.JNI.GraphicsContentViewText,
  FMX.Platform.Android;


procedure TForm1.Button1Click(Sender: TObject);
var
  Filter: JIntentFilter;
  Battery: JIntent;
  Status, Health, Level, Scale, IconSmall, Plugged, Voltage,
    Temperature: Integer;
  Present: Boolean;
  Technology, StatusString, HealthString, ScString: string;
begin
  Filter := TJIntentFilter.JavaClass.init
    (TJIntent.JavaClass.ACTION_BATTERY_CHANGED);
  Battery := MainActivity.registerReceiver(nil, Filter);

  Status := Battery.getIntExtra(StringToJString('status'), 0);
  Health := Battery.getIntExtra(StringToJString('health'), 0);
  Present := Battery.getBooleanExtra(StringToJString('present'), false);
  Level := Battery.getIntExtra(StringToJString('level'), 0);
  Scale := Battery.getIntExtra(StringToJString('scale'), 0);
  IconSmall := Battery.getIntExtra(StringToJString('icon-small'), 0);
  Plugged := Battery.getIntExtra(StringToJString('plugged'), 0);
  Voltage := Battery.getIntExtra(StringToJString('voltage'), 0);
  Temperature := Battery.getIntExtra(StringToJString('temperature'), 0);
  Technology := JStringToString
    (Battery.getStringExtra(StringToJString('technology')));

  StatusString := '';

  if Status = TJBatteryManager.JavaClass.BATTERY_STATUS_UNKNOWN then
    StatusString := 'UNKNOWN'
  else if Status = TJBatteryManager.JavaClass.BATTERY_STATUS_CHARGING then
    StatusString := 'CHARGING'
  else if Status = TJBatteryManager.JavaClass.BATTERY_STATUS_DISCHARGING then
    StatusString := 'DISCHARGING'
  else if Status = TJBatteryManager.JavaClass.BATTERY_STATUS_NOT_CHARGING then
    StatusString := 'NOT CHARGING'
  else if Status = TJBatteryManager.JavaClass.BATTERY_STATUS_FULL then
    StatusString := 'FULL';

  HealthString := '';

  if Health = TJBatteryManager.JavaClass.BATTERY_HEALTH_UNKNOWN then
    HealthString := 'UNKNOWN'
  else if Health = TJBatteryManager.JavaClass.BATTERY_HEALTH_GOOD then
    HealthString := 'GOOD'
  else if Health = TJBatteryManager.JavaClass.BATTERY_HEALTH_OVERHEAT then
    HealthString := 'OVERHEAT'
  else if Health = TJBatteryManager.JavaClass.BATTERY_HEALTH_DEAD then
    HealthString := 'DEAD'
  else if Health = TJBatteryManager.JavaClass.BATTERY_HEALTH_OVER_VOLTAGE then
    HealthString := 'OVER VOLTAGE'
  else if Health = TJBatteryManager.JavaClass.BATTERY_HEALTH_UNSPECIFIED_FAILURE
  then
    HealthString := 'UNSPECIFIED FAILURE';

  ScString := '';

  if Plugged = TJBatteryManager.JavaClass.BATTERY_PLUGGED_AC then
    ScString := 'AC'
  else if Plugged = TJBatteryManager.JavaClass.BATTERY_PLUGGED_USB then
    ScString := 'USB';

  Memo1.Lines.Clear;
  Memo1.Lines.Add(Format('%s=%s', ['Status(充?状态)', StatusString]));
  Memo1.Lines.Add(Format('%s=%s', ['Health(电池状态)', HealthString]));
  Memo1.Lines.Add(Format('%s=%s', ['Present(是否存在电池)',
    BoolToStr(Present, True)]));
  Memo1.Lines.Add(Format('%s=%d', ['Level(电池余量)', Level]));
  Memo1.Lines.Add(Format('%s=%d', ['Scale(最大电池余量)', Scale]));
  Memo1.Lines.Add(Format('%s=%d', ['Icon Small', IconSmall]));
  Memo1.Lines.Add(Format('%s=%s', ['Plugged(AC or USB)', ScString]));
  Memo1.Lines.Add(Format('%s=%d', ['Voltage(电池电压)', Voltage]));
  Memo1.Lines.Add(Format('%s=%d', ['Temperature(电池电压)', Temperature]));
  Memo1.Lines.Add(Format('%s=%s', ['Technology', Technology]));
end;

相关阅读 >>

Delphi连接mysql出现乱码

Delphi sysutils.strcopy、sysutils.strecopy

设定Delphi环境选项

Delphi程序版本信息设置说明

Delphi spcomm串口控件的例程

Delphi程序禁止结束进程

Delphi 通过读取注册表信息获取桌面路径

Delphi 用内存流文件流资源生成客户端

Delphi 进程防杀之hook api法

Delphi adoquery1 update更新数据

更多相关阅读请进入《Delphi》频道 >>



标签：

打赏

取消

感谢您的支持，我会继续努力的!

扫码支持
扫码打赏，您说多少就多少

打开支付宝扫一扫，即可进行扫码打赏哦

分享从这里开始，精彩与您同在

相关推荐

评论

管理员已关闭评论功能...