+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Mobil Platform - FireMonkey (FMX) (https://www.delphican.com/forumdisplay.php?fid=7)
+--- Konu Başlığı: Set WiFi (/showthread.php?tid=7840)
Set WiFi - tarkancengiz - 16-08-2024
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;
Cvp: Set WiFi - hi_selamlar - 16-08-2024
(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-mobile-wifi-connect-to-user-selected-networkdevice/
https://synaptica.info/2017/09/29/delphi-android-wifi-manager/
Test edilmedi.
Set WiFi - tarkancengiz - 16-08-2024
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.