+- 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ığı: Android Konum Alamama (/showthread.php?tid=4672)
Android Konum Alamama - KUNTAY - 30-03-2020
Kitapta ve sitede gördüğüm android konum alma örneğini Delphi 10.3 ile oluşturdum Gerekli SDK ları ve program üzerinde verilmesi gereken izinleri verdim.
Fakat programı Android 10 yüklü telefonumda denediğimde konum bilgisini çekmiyor.
telefon üzerinde programın izinlerini kontrol ettiğimde konum izni kapalıydı açtım fakat yine konumu çekmiyor.
Anladığım kadarı ile 2 sorunum var programı ilk açarken şu izinleri kullanmalısın gibi bir şey yapmam lazım.
fakat izini manuel verdim yine çalışmadı. Kullandığım kod aşağıda.
Kod:
Var
Sensorler : TSensorArray;
KonumSensoru : TCustomLocationSensor;
begin
Memo1.Lines.Clear;
TSensorManager.Current.Activate;
Sensorler := TSensorManager.Current.GetSensorsByCategory(TSensorCategory.Location);
KonumSensoru := Sensorler[0] as TCustomLocationSensor;
KonumSensoru.Start;
Memo1.Lines.Add('Enlem : ' +KonumSensoru.Latitude.ToString());
Memo1.Lines.Add('Boyalm : ' + KonumSensoru.Longitude.ToString());
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
i : SmallInt;
begin
TSensorManager.Current.Activate;
Memo1.Lines.Add('Toplam Sensör Sayısı: ' + TSensorManager.Current.Count.ToString);
for i := 0 to TSensorManager.Current.Count -1 do
Begin
Memo1.Lines.Add( (i + 1).ToString + ' - ' + TSensorManager.Current.Sensors[i].ClassName );
End;
end;Android Konum Alamama - mcuyan - 30-03-2020
Şu Konuyu incelemenizi öneririm.
https://www.delphican.com/showthread.php?tid=4468
Android Konum Alamama - arsl01 - 30-03-2020
Project/Uses permission kısmından 'ACCESS_COARSE_LOCATION' iznini aktif ettikten sonra,
Formun OnShow kısmına şu kodu yazıp uygulamayı derleyiniz.
PermissionsService.RequestPermissions ([JStringToString(TJManifest_permission.JavaClass.ACCESS_COARSE_LOCATION)], procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>) begin if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then else begin Application.Terminate; end end);
Android Konum Alamama - KUNTAY - 31-03-2020
mcuyan yönlendirdiği konudaki Bileşenle sorunumu aştım.
https://github.com/adrianosantostreina/M...ermissions
Lokasyonu çekebiliyorum fakat
Lokasyon bilgisini çeken butona 4 -5 defa basmam gerkiyor konumu çekmesi için bazen 2 bazen 4 - 5 bazen daha fazla bu neden olabilir.
Cvp: Android Konum Alamama - Fesih ARSLAN - 31-03-2020
Merhaba,
Bence bir defa tıklayın.
GPS in toparlanması; yer değiştirme durumunuza (veya cihazın hareketine, hareket etmiyorsanız, cihazı Yatay-dikey eksende birkaç defa sallayın) bulunduğunuz yere (kapalı, açık mekan), mobil data'nın açık veya kapalı olmasına, hatta telefonun şebeke çekim gücüne bağlı olarak değişecektir.
Android Konum Alamama - mcuyan - 04-04-2020
@Fesih ARSLAN Hocamın dediği gibi, GPS sinyali öyle pat diye almaz.. 3-5 hatta daha da fazla zaman alabilir. Whatsapp'da konum atarken bile 5-6sn bekletiyor.
Cvp: Android Konum Alamama - pro_imaj - 05-04-2020
(04-04-2020, Saat: 02:54)mcuyan Adlı Kullanıcıdan Alıntı: @Fesih ARSLAN Hocamın dediği gibi, GPS sinyali öyle pat diye almaz.. 3-5 hatta daha da fazla zaman alabilir. Whatsapp'da konum atarken bile 5-6sn bekletiyor.
10 yıl kadar önce birkaç dakikadan fazla sürüyordu.
Android Konum Alamama - KUNTAY - 05-04-2020
Aynen durum tamamen öyle
