使用 Delphi XE5 连接到特定的 Wifi 网络以进行 Android 应用程序开发

Question

我真正需要的是知道是否有一种方法可以使用 Delphi XE5 从我的 Android 应用程序连接到特定的 Wifi 网络。

为了得到答案，我进行了一些研究，但还没有找到如何做的线索。

最接近的问题在这里Create WifiConfiguration with Delphi XE5 for Android，但它不是同一个问题，但它没有得到回答。我的问题与链接中的问题之间的区别在于，链接中的问题是指通用 Wifi 配置，但我的问题更具体。其实我很想知道链接中问题中提到的任何程序或功能是否可以解决我的问题。

问题是：如何在开发 Android 应用程序时使用 Delphi XE5 中的库、类或方法连接到 Wifi 网络。

我还没有编写自己的代码，因为到目前为止我还没有想到我所发现的起点。

我是否错过了解决此问题的好方法？

Answer 1

您需要使用 JNI 调用本机 Java (Android SDK) 函数以连接到您的网络。

This tutorial 向您展示如何从 Delphi 进行 JNI。

This SO question 向您展示了如何以编程方式从 Java 端连接到 Wifi SSID。

基本上，您需要创建一个连接到您的网络的 Java 函数：

void connectToWifi()
{
    String networkSSID = "test";
    String networkPass = "pass";

    WifiConfiguration conf = new WifiConfiguration();
    conf.SSID = "\"" + networkSSID + "\"";

    WifiManager wifiManager = (WifiManager)context.getSystemService(Context.WIFI_SERVICE); 
    wifiManager.addNetwork(conf);

    List<WifiConfiguration> list = wifiManager.getConfiguredNetworks();
    for( WifiConfiguration i : list ) {
        if(i.SSID != null && i.SSID.equals("\"" + networkSSID + "\"")) {
             wifiManager.disconnect();
             wifiManager.enableNetwork(i.networkId, true);
             wifiManager.reconnect();               

             break;
        }           
    }
}

之后，通过调用 JNI 从 Delphi 端调用此函数（参见上面的链接）：

try

  // Create the JVM (using a wrapper class)
JavaVM := TJavaVM.Create;

  // Set the options for the VM
Options[0].optionString := '-Djava.class.path=.';
VM_args.version := JNI_VERSION_1_2;
VM_args.options := @Options;
VM_args.nOptions := 1;

  // Load the VM
Errcode := JavaVM.LoadVM(VM_args);
if Errcode < 0 then
begin
  WriteLn(Format('Error loading JavaVM, error code = %d', [Errcode]));
  Exit;
end;

  // Create a Java environment from the JVM's Env (another wrapper class)
JNIEnv := TJNIEnv.Create(JavaVM.Env);

  // Find the class in the file system. This is why we added
  // the current directory to the Java classpath above.
Cls := JNIEnv.FindClass('YOUR_CLASS');
if Cls = nil then
begin
  WriteLn('Can''t find class: YOUR_CLASS');
  Exit;
end;

  // Find the static method 'connectToWifi' within the YOUR_CLASS class
Mid := JNIEnv.GetStaticMethodID(Cls, 'connectToWifi', '()V');
if Mid = nil then
begin
  WriteLn('Can''t find method: connectToWifi');
  Exit;
end;

  // Call the static method
JNIEnv.CallStaticVoidMethod(Cls, Mid, []);

except
  on E : Exception do
    WriteLn('Error: ' + E.Message);
end;

希望我能帮上忙。