FMX Camera Component als Lichtsensor (Lux)

[weber8722]

Hallo,

weiss jemand wie man die Helligkeit in Lux mit Firemonkey misst? Habe ein paar Hinweise gefunden, aber es kommt immer Lux=0 raus:

procedure TFotoapp.ButtonLichtMessungClick(Sender: TObject);
Var Sensormanager: Tsensormanager;
i : Integer;
Sensors: TSensorArray;
fSensor: TCustomLightsensor;

begin
Sensormanager:=Tsensormanager.Current;
Sensormanager.Activate;
Sensors:=Sensormanager.GetSensorsByCategory(Tsenso rcategory.Light);
if length(Sensors)>0 then Begin
fsensor:=TCustomlightSensor(Sensors[0]);
//fsensor.OnDataChanged ??;
Showmessage(fstrj(fsensor.Lux,5)); // fstrj konvertiert von Double auf String
end;

end;

Ciao Stephan