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 关于字符串, 之前没这样用过

Delphi 在tmemo中查找文本

Delphi firemonkey 学习笔记 �c tpopup 控件的使用

Delphi中实现控件的拖拽

Delphi10.3构造一个json数据的第二种方法，并格式化输出

Delphi 怎么将一个文件流转换成字符串？

Delphi adoquery 运用

Delphi mscomm控件串口收发程序

Delphi 判断当前程序是否是活动窗口

Delphi 链接获取主站地址

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

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