在 Delphi 中实现 addDefaultNetworkActiveListener

Question

使用here 提到的解决方案，我能够得到网络的状态。但是我还需要在状态更改时实现事件。我知道我必须使用addDefaultNetworkActiveListener 程序，但我在使用OnNetworkActiveListener 的界面时遇到了问题。有谁知道OnNetworkActiveListener 的界面是什么样的吗？

谢谢 山姆

Answer 1

你需要构建这样的东西：

uses
  Androidapi.JNIBridge, Androidapi.JNI.Net;

type
  TNetworkActiveListener = class(TJavaLocal, JConnectivityManager_OnNetworkActiveListener)
  public
    procedure onNetworkActive; cdecl;
  end;

然后声明一个变量：

  FNetworkActiveListener: TNetworkActiveListener;

创建并添加它：

  FNetworkActiveListener := TNetworkActiveListener.Create;
  // Use the code from the other answer for GetConnectivityManager
  GetConnectivityManager.addDefaultNetworkActiveListener(FNetworkActiveListener);