Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Android Konum Alamama
#1
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. 

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;
Faydalanılmayan bilgi, harcanmayan ve hiç kimseye hayrı dokunmayan define gibidir.

Hz. Muhammed (sav.)
Cevapla
#2
Şu Konuyu incelemenizi öneririm.

https://www.delphican.com/showthread.php?tid=4468
// Bilgi paylaştıkça çoğalır.. 

Cevapla
#3
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);
Muharrem ARSLAN
WWW
Cevapla
#4
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.
Faydalanılmayan bilgi, harcanmayan ve hiç kimseye hayrı dokunmayan define gibidir.

Hz. Muhammed (sav.)
Cevapla
#5
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.
Cevapla
#6
@"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.
// Bilgi paylaştıkça çoğalır.. 

Cevapla
#7
(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.
Cevapla
#8
Aynen durum tamamen öyle Smile
Faydalanılmayan bilgi, harcanmayan ve hiç kimseye hayrı dokunmayan define gibidir.

Hz. Muhammed (sav.)
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Android’de Dosya Depolama ve Paylaşma-2: And 11 SDK 30 Scoped Storage SAF MediaStore emozgun 12 4.728 19-03-2024, Saat: 22:29
Son Yorum: nguzeller
  Android 33 api sdk güncelleme [ÇÖZÜLDÜ] codder71 4 358 19-02-2024, Saat: 22:38
Son Yorum: codder71
  Mobil Android Emulator Altıner 5 319 22-01-2024, Saat: 18:28
Son Yorum: Altıner
  Firebird Android bağlantı aeyeci 2 258 01-01-2024, Saat: 14:41
Son Yorum: nguzeller
  FMX Android Barkod Scanner - [ÇÖZÜLDÜ] Mesut 21 2.164 20-12-2023, Saat: 21:46
Son Yorum: Jakarta2



Konuyu Okuyanlar: 1 Ziyaretçi