Set WiFi

[tarkancengiz]

Delphi FMX de kullanıcının girdiği Wi-fi adı ve şifresi ile android üzerinde wifi bağlantısını gerçekleştirmek istiyorum.Şifre ve SSID doğru ise bağlantıyı android menüleri yerine program içinden yapmak istiyorum

Şu şekilde bir kod buldum ancak 

WifiManager := TJWifiManager.JavaClass.init(TAndroidHelper.Context);

satırı yetersiz parametre hatası nedeni çalışmadı.

procedure SetWiFi(const SSID, Password: string);
var
 WifiManager: JWifiManager;
 WifiConfiguration: JWifiConfiguration;
 WifiList: JList;
 NetId: Integer;
 WifiConfig: TStringList;
begin
 WifiManager := TJWifiManager.JavaClass.init(TAndroidHelper.Context);
 WifiConfig := TStringList.Create;
 try
   WifiConfiguration := TJWifiConfiguration.JavaClass.init;
   WifiConfiguration.SSID := StringToJString('"' + SSID + '"');
   WifiConfiguration.PreSharedKey := StringToJString('"' + Password + '"');
   
   NetId := WifiManager.addNetwork(WifiConfiguration); // Ağı ekle
   if NetId <> -1 then
   begin
     WifiManager.enableNetwork(NetId, true); // Ağı etkinleştir
     WifiManager.reconnect; // Bağlantıyı yeniden dene
   end;
 finally
   WifiConfig.Free;
 end;
end;

[hi_selamlar]

(16-08-2024, Saat: 09:45)tarkancengiz Adlı Kullanıcıdan Alıntı: Delphi FMX de kullanıcının girdiği Wi-fi adı ve şifresi ile android üzerinde wifi bağlantısını gerçekleştirmek istiyorum.Şifre ve SSID doğru ise bağlantıyı android menüleri yerine program içinden yapmak istiyorum

Şu şekilde bir kod buldum ancak 

WifiManager := TJWifiManager.JavaClass.init(TAndroidHelper.Context);

satırı yetersiz parametre hatası nedeni çalışmadı.

procedure SetWiFi(const SSID, Password: string);
var
 WifiManager: JWifiManager;
 WifiConfiguration: JWifiConfiguration;
 WifiList: JList;
 NetId: Integer;
 WifiConfig: TStringList;
begin
 WifiManager := TJWifiManager.JavaClass.init(TAndroidHelper.Context);
 WifiConfig := TStringList.Create;
 try
   WifiConfiguration := TJWifiConfiguration.JavaClass.init;
   WifiConfiguration.SSID := StringToJString('"' + SSID + '"');
   WifiConfiguration.PreSharedKey := StringToJString('"' + Password + '"');
   
   NetId := WifiManager.addNetwork(WifiConfiguration); // Ağı ekle
   if NetId <> -1 then
   begin
     WifiManager.enableNetwork(NetId, true); // Ağı etkinleştir
     WifiManager.reconnect; // Bağlantıyı yeniden dene
   end;
 finally
   WifiConfig.Free;
 end;
end;

Merhabalar,

https://en.delphipraxis.net/topic/3772-m...orkdevice/
https://synaptica.info/2017/09/29/delphi...i-manager/

Test edilmedi.

[tarkancengiz]

ilgine teşekkür ederim.
Bu kodları çalıştırdınız mı ? zira bu kodları görmüştüm ancak derleme anında hata veriyor.
Saplandım kaldım bu konuda, çalıştıdığınız bir proje varsa download etmek isterim.