delphi xe5 Wifimanager和WifiInfo的转换

Question

我试图隐藏wifimanager和wifiinfo（android），我不明白为什么我有分段错误，我看到wifimanager工作得很好，但当我尝试调用wifiinfo的一些方法时，我得到“分段错误”。我的代码：

http://developer.android.com/reference/android/net/wifi/WifiInfo.html http://developer.android.com/reference/android/net/wifi/WifiManager.html

unit wifi1;

interface

uses
System.SysUtils,
Androidapi.JNIBridge,
Androidapi.JNI.GraphicsContentViewText,
Androidapi.JNI.JavaTypes,
FMX.Helpers.Android;

//-------------------------------- wifi manager ---------------------------------------//
type
JWifiManager = interface;
JWifiInfo = interface;

JWifiManagerClass = interface(JObjectClass)
['{69F35EA7-3EB9-48AA-B7FC-4FFD0E7D712F}']

function _GetACTION_PICK_WIFI_NETWORK: JString;
function _GetEXTRA_WIFI_INFO: JString;
function _GetWIFI_STATE_CHANGED_ACTION: JString;

property ACTION_PICK_WIFI_NETWORK: JString read _GetACTION_PICK_WIFI_NETWORK;
property EXTRA_WIFI_INFO: JString read _GetEXTRA_WIFI_INFO;
property WIFI_STATE_CHANGED_ACTION: JString read _GetWIFI_STATE_CHANGED_ACTION;

end;
[JavaSignature('android.net.wifi.WifiManager')]
JWifiManager = interface(JObject)
['{DA7107B9-1FAD-4A9E-AA09-8D5B84614E60}']
function isWifiEnabled:Boolean;cdecl;
function setWifiEnabled(enabled:Boolean):Boolean; cdecl;
//function getConfiguredNetworks : JList;cdecl;
function getConnectionInfo :JWifiInfo; cdecl;
end;
TJWifiManager = class(TJavaGenericImport<JWifiManagerClass, JWifiManager>) end;
//-------------------------------- wifi info ---------------------------------------//
JWifiInfoClass = interface(JObjectClass)
['{2B1CE79F-DE4A-40D9-BB2E-7F9F118D8C08}']
function _GetLINK_SPEED_UNITS:JString;
property LINK_SPEED_UNITS: JString read _GetLINK_SPEED_UNITS;
end;
[JavaSignature('android.net.wifi.WifiInfo')]
JWifiInfo = interface(JObject)
['{4F09E865-DB04-4E64-8C81-AEFB36DABC45}']
function getBSSID:jString; cdecl;
function getHiddenSSID:Boolean; cdecl;
function getIpAddress:integer; cdecl;
function getLinkSpeed:integer; cdecl;
function getMacAddress:JString; cdecl;
function getNetworkId:integer; cdecl;
function getRssi:integer; cdecl;
function GetSSID:jString; cdecl;
end;
TJWifiInfo= class(TJavaGenericImport<JWifiInfoClass, JWifiInfo>)
end;
implementation
end.
//-----------------------------------------------------------------------

我的测试是：

var obj:jobject;
wm:jwifimanager;
Winfo:jwifiinfo;
ip:integer;
mac:string;
jmac:JString;
begin
obj:=SharedActivity.getSystemService(TJActivity.JavaClass.WIFI_SERVICE);
wm:= Tjwifimanager.Wrap((obj as ILocalObject).GetObjectID);

Winfo:=TJWifiInfo.Create;
winfo:=wm.getconnectioninfo; <- segmentation fault
ip:=winfo.getIpAddress;
jmac:=winfo.getMacAddress;
mac:=JStringToString(jmac);
end;

这有什么不对吗？ （wifimanager的方法有效但不是getconnectioninfo）

ORIGINAL JAVA POST：Detect wifi IP address on Android?

当我调用此函数时，

LOGCAT：

这是delphi中的项目：PROJECT DELPHI

Answer 1

它的主要缺点是缺少对nil值的检查，从而导致你的分段错误（至少我预计会出现这种情况 - 例如，wm为nil）。

您可以尝试参考this SO answer中的代码段作为使用Android网络类的一般指南。这应该有助于代替直接指向代码中的错误。尝试使用该代码并确保您了解其运行方式。然后它应该可以帮助您识别代码段中的错误内容。

代码的一个潜在问题是属性使用点分隔符，但RTL Android类属性以及上述代码段使用/作为分隔符。

明智地使用logcat（比如在监视器应用程序中）可以通过查看操作系统在此应用程序执行期间作为日志消息抛出的内容来确定是否是这种情况。

哦，有一件事应该先检查一下 - 您是否已将 Access wifi状态权限添加到您的应用中？这将导致问题，嗯，访问wifi状态信息，natch。

Answer 2

为什么你使用“Winfo：= TJWifiInfo.Create;”？！...你不需要创建它，它是getconnectioninfo函数，它返回一个jwifiinfo实例。 为什么不简单地使用“Winfo：= wm.getconnectioninfo;”