30-03-2020, Saat: 18:29
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.
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;