Delphi XE 获取Wifi 信息

//获取Wifi信息单元

unit my.Android.Wifi;

interface

uses

  System.SysUtils,

  System.Classes,

  Androidapi.JNI.GraphicsContentViewText,

  Androidapi.JNIBridge,

  Androidapi.JNI.Telephony,

  Androidapi.Jni.JavaTypes,

  Androidapi.JNI.Net,

  Androidapi.Helpers;

function GetWiFiManager(var WifiManager: JWiFiManager): Boolean;

function GetWiFiInfo(var WiFiInfo: JWifiInfo; var AState: Integer): Boolean;

function IntToIp(intIP : Integer) : string;

implementation

function IntToIp(intIP : Integer) : string;

var

  n : int64;

begin

  Result := '';

  n := intIP shr 24;

  intIP := intIP xor (n shl 24);

  Result := IntToStr(n);

  n := intIP shr 16;

  intIP := intIP xor (n shl 16);

  Result :=  IntToStr(n) + '.'+Result;

  n := intIP shr 8;

  intIP := intIP xor (n shl 8);

  Result :=  IntToStr(n) + '.'+Result;

  n := intIP;

  Result :=  IntToStr(n)+'.'+Result;

end;

function GetWiFiInfo(var WiFiInfo: JWifiInfo; var AState: Integer): Boolean;

var

  WifiManager: JWiFiManager;

begin

  Result := False;

  if GetWiFiManager(WifiManager) then

  begin

    AState:= WifiManager.getWifiState;

    WiFiInfo := WifiManager.getConnectionInfo;

    Result := true;

  end;

end;

function GetWiFiManager(var WifiManager: JWiFiManager): Boolean;

var

  Obj: JObject;

begin

  Result := False;

  Obj := SharedActivityContext.getSystemService(TJContext.JavaClass.WIFI_SERVICE);

  if Assigned(Obj) then

  // raise Exception.Create('Could not locate Wifi Service');

  begin

    WifiManager := TJWiFiManager.Wrap((Obj as ILocalObject).GetObjectID);

    if Assigned(WifiManager) then

    begin

      if not WifiManager.isWifiEnabled then

      begin

        if WifiManager.setWifiEnabled(True) then

          Result := True

        else

          Result := False;

      end else

        Result := True;

    end;

  end;

end;

end.

//主窗体单元

unit Unit1;

interface

uses

  System.SysUtils,

  System.Types,

  System.UITypes,

  System.Classes,

  System.Variants,

  FMX.ScrollBox,

  FMX.Memo,

  FMX.Controls,

  FMX.Controls.Presentation,

  FMX.StdCtrls,

  FMX.Types,

  FMX.Forms,

  FMX.Graphics,

  FMX.Dialogs,

  FMX.Layouts,

  Androidapi.JNI.GraphicsContentViewText,

  Androidapi.JNIBridge,

  Androidapi.JNI.Telephony,

  Androidapi.Jni.JavaTypes,

  Androidapi.JNI.Net,

  Androidapi.Helpers;

type

  TForm3 = class(TForm)

    Memo1: TMemo;

    btnObtain: TButton;

    procedure btnObtainClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

  uses my.Android.Wifi;

{$R *.fmx}

procedure TForm3.btnObtainClick(Sender: TObject);

var

  WiFiInfo: JWiFiInfo;

  state:Integer;

begin

  Memo1.Lines.Clear;

  if GetWifiInfo(WiFiInfo, state) then

  begin

    Memo1.Lines.add('State:' + IntToStr(state));

    Memo1.Lines.add('BSSID:' + JStringToString(WiFiInfo.getBSSID));

    Memo1.Lines.add('IpAddress:' + IntToIp(WiFiInfo.getIpAddress));

    Memo1.Lines.add('LinkSpeed:' + IntTostr(WiFiInfo.getLinkSpeed));

    Memo1.Lines.add('MacAddress:' + JStringToString(WiFiInfo.getMacAddress));

    Memo1.Lines.add('NetworkId:' + IntTostr(WiFiInfo.getNetworkId));

    Memo1.Lines.add('Rssi:' + IntTostr(WiFiInfo.getRssi));

    Memo1.Lines.add('String:' + JStringToString(WiFiInfo.toString));

  end else begin

    Memo1.Lines.add('State:' + IntToStr(state));

    Memo1.Lines.add('获取 WIFI 信息失败');

  end;

end;

end.