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;
 

相关阅读 >>

剪贴板单元 clipboards.pas

Delphi mscomm 比较完整的用法例子

java2op.exe，Delphi安卓原生桥接文件生成器

Delphi winapi: getfocus - 获取当前拥有焦点的窗口的句柄

Delphi判断一个字符是否为汉字的最佳方法

Delphi 中tresourcestream流使用

Delphi中combobox的datavalue值

Delphi判断线程是否正在运行

Delphi将字符串转换成utf8编码的函数

Delphi xe2 idhttp 获取utf-8编码中文网页

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

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