Composant TLocationSensor et Tsensor

Bonjour
Je cherche a obtenir l'altitude d'un terminal Android.

J'ai posé un composant TLocationsensor sur la fiche . Puis mis sa propriété Active a true.

Code:

---

1 2 3 4 5 6 7

procedure TForm2.LocationSensor1LocationChanged(Sender: TObject; const OldLocation, NewLocation: TLocationCoord2D); begin ShowMessage(FloatToStr(LocationSensor1.Sensor.Altitude));   end;

---

Après de nombreux essais dans tous le sens, je n'ai pas obtenu mieux qu'un 'NAN' dans le showmessage

Quelqu'un a-t-il une idée ? merci

Pascal

C'est assez surprenant (voir déroutant), mais on dirait qu'il ne comprend pas tout Delphi.
Je ne peux pas essayer maintenant à cause du temps pourri, mais si j'étais toi, j'essaierais plutôt :

Code:

---

LocationSensor1.Sensor.Altitude.ToString;

---

J'ai déjà essayé FloatToStr en vain.

Bj
merci pour cette tentative, mais cela ne marche pas mieux. je vais revoir cela de plus prêt dans QQ jours.

A+

As-tu vérifié si ton "terminal Android" supportait la localisation d'Altitude via AvailableProperties un set of TCustomLocationSensor.TProperty

Code:

---

1 2 3 4

if TCustomLocationSensor.TProperty.Altitude in LocationSensor1.Sensor then ShowMessage(FloatToStr(LocationSensor1.Sensor.Altitude)) else ShowMessage('Altitude non supportée');

---

Dommage que le OnLocationChanged soit si peu complet en données
Cet Event se produit lors du passage en Active à true ou lors d'un déplacement
Il ne semble fournir qu'un TLocationCoord2D donc Latitude et Longitude

Citation:

---

Remarque : Sur les périphériques Android, TLocationSensor requiert que des permissions d'utilisation spécifiques soient définies, notamment les permissions Accéder à un emplacement approximatif et Accéder à un emplacement précis.

---

Merci Shaill pour ce filon a suivre.

Mon terminal autorise l'altitude car j'ai deja une apps (java) qui me donne l'altitude en pieds. Je vais verifier possibilités et permissions d'ici QQ jours et je poste ici mes trouvailles.

Pascal