Erinnert mich an meinen Versuch für Delphi ein extra gut mit Sensoren ausgestattetes Smartphone aus Fernost zu benutzen. Die Apps aus dem Play Store funktionierten richtig, aber sobald ich das erste mal mit einer Delphianwendung (einschließlich der Demos) auf das Gerät zugriff, waren die Sensoren weg - auch für die anderen Apps. Selbst nach mehrfachen Neustarts konnten sie danach teilweise nicht mehr verwendet werden. Und das bei beiden Geräten, die ich versucht hatte. Bei einem Markenhandy ist das aber bisher noch nicht passiert. Samsung sollte dann eigentlich keine Probleme mit Delphi habe.
Für den Start müssten die Sensoren die Eigenschaft Active haben.
Ich habe mal ein kleines Beispiel angehängt(hauptsächlich von
hier geklaut - nicht über das "writeln" wundern). Damit sollte man eigentlich grob sehen können, welcher Sensor vorhanden ist und reagiert.
Ist allerdings auch ein Monument für Embas Faulheit (System.Sensors). Der größte Teil der Abfragen ist daher sinnlos.
Delphi-Quellcode:
function TCustomSensor.GetCustomData(const Data): Variant;
begin
Result := Null;
end;
function TCustomSensor.GetCustomProperty(const Prop): Variant;
begin
Result := Null;
end;
function TCustomSensor.GetHasCustomData(const Data): Boolean;
begin
Result := False;
end;
function TCustomSensor.GetHasCustomProperty(const Prop): Boolean;
begin
Result := False;
end;
function TCustomSensor.GetSensorProperty(Prop: TProperty): string;
begin
Result := '';
end;