Also ich habe gerade mal, nach längerer Zeit, das SensorInfo Demo ausprobiert.
Es funkktioniert erstmal nicht, aber da ist ein kleiner Bug drin
Delphi-Quellcode:
procedure TfrmAboutSensors.ListBoxItemClick(Sender: TObject);
begin
if Sender is TListBoxItem then
begin
FActiveSensor := TCustomSensor(TListBoxItem(Sender).Data);
if (FActiveSensor <> nil) and (not FActiveSensor.Started) then
begin
{$IFDEF ANDROID}
if FActiveSensor.Category = TSensorCategory.Location then
begin
PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION)],
procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
begin
if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
FActiveSensor.Start
else
TDialogService.ShowMessage('Location permission not granted');
end)
end
else //<== 02.01.21 Add
begin //<==
FActiveSensor.Start; //<==
end;
{$ELSE}
FActiveSensor.Start;
{$ENDIF}
end;
end;
FShowInfo := True;
end;
Nach der Änderung wird bei mir (Samsung S9) ein Wert angezeigt,
vorher war es 0.
Ist ja auch klar, wenn der Sensor nur bei Location gestartet würde.