Delphi XE7的Android应用取得Wi-Fi的信息

本文整理自网络，侵删。

 
uses
  Androidapi.JNI.Wifi,
  Androidapi.Helpers,
  Androidapi.JNI.JavaTypes,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNIBridge;

procedure TForm1.FormCreate(Sender: TObject);
var
  Obj: JObject;
  WifiManager: JWifiManager;
  WifiInfo: JWifiInfo;
begin
  Obj := SharedActivityContext.getSystemService
    (TJContext.JavaClass.WIFI_SERVICE);
  if Obj = nil then
    Exit;
  WifiManager := TJWiFiManager.Wrap((Obj as ILocalObject).GetObjectID);
  WifiInfo := WifiManager.getConnectionInfo;
  Memo1.Lines.Add(Format('BSSID=%s', [JStringToString(WifiInfo.getBSSID)]));
  Memo1.Lines.Add(Format('IpAddress=%d', [WifiInfo.getIpAddress]));
  Memo1.Lines.Add(Format('LinkSpeed=%d', [WifiInfo.getLinkSpeed]));
  Memo1.Lines.Add(Format('MacAddress=%s', [JStringToString(WifiInfo.getMacAddress)]));
  Memo1.Lines.Add(Format('NetworkId=%d', [WifiInfo.getNetworkId]));
  Memo1.Lines.Add(Format('SSID=%s', [JStringToString(WifiInfo.getSSID)]));
end;
 

相关阅读 >>

Delphi xe6取得android智能手机的电话号码等的终端信息

Delphi app检测智能手机震动

解决 Delphi 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题

Delphi 数字排序自动完成

Delphi获取uri的查询参数

Delphi webbroker 输出图片的问题

Delphi的stringreplace 字符串替换函数

Delphi 解决idtcpclient和idtcpserver通信中文乱码问题

Delphi ^ 符号的特殊用法

Delphi 打开android应用信息

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

转载请注明出处：木庄网络博客 » Delphi XE7的Android应用取得Wi-Fi的信息