delphi XE7里面 SharedActivityContext怎么提示错误？

如题：学习网上的判断网络是否连接的JNI编程，从网上拷贝程序测试一下，提示 SharedActivityContext 找不到，请问在哪个unit里面有这个？程序如下：
function GetConnectivityManager: JConnectivityManager;var  ConnectivityServiceNative: JObject;
begin
  ConnectivityServiceNative := SharedActivityContext.getSystemService(TJContext.JavaClass.CONNECTIVITY_SERVICE);
  if not Assigned(ConnectivityServiceNative) then
  raise Exception.Create('Could not locate Connectivity Service');
  Result := TJConnectivityManager.Wrap( (ConnectivityServiceNative as ILocalObject).GetObjectID);
  if not Assigned(Result) then
  raise Exception.Create('Could not access Connectivity Manager');

end;

解决：

uses
Androidapi.Helpers;

推荐分享