Question

如何用Delphi XE Android实现手机和wifi串行口模块通信

Answer 1

uses System.SysUtils,

Androidapi.Helpers,

Androidapi.JNIBridge,

Androidapi.Jni.Net,

Androidapi.JNI.GraphicsContentViewText,

Androidapi.JNI.JavaTypes,

FMX.Helpers.Android;

function GetWIFIIP:string;

var

WFM:JObject;

WifiManager:JWifiManager;

WifiInfo:JWifiInfo;

IP:Integer;

begin

WFM:=TAndroidHelper.Context.getSystemService(TJContext.JavaClass.WIFI_SERVICE);

WifiManager:=TJWifiManager.Wrap((WFM as ILocalObject).GetObjectID);

WifiInfo:=WifiManager.getConnectionInfo;

IP:=WifiInfo.getIpAddress;

Result:=Format('%d.%d.%d.%d',[Lo(IP),Hi(IP),Lo(IP shr 16),IP shr 24]);

end;

//安卓系统WIFI下获取本机IP