Thema: Delphi 12 CE

Einzelnen Beitrag anzeigen

ManfredU

Registriert seit: 29. Aug 2019
26 Beiträge
 
Delphi 12 Athens
 
#1

Delphi 12 CE

  Alt 22. Sep 2024, 23:27
Hallo!
Ich habe eine App für Android geschrieben in der ich Fotos aus der Kamera verwende und dann speichere.

Hat bis jetzt in (Delphi 11 CE) einwandfrei funktioniert
Jetzt habe ich Delphi 12 CE installiert und jetzt kennt er „TMessageReceivedImagePath“ nicht mehr.
Ich finde leider nichts darüber, warum dies in Delphi 12 CE herausgenommen wurde.
Wie kann ich dann den Pfad des aktuell gemachten Foto auslesen?

Folgender Code:

Im FormCreate
TMessageManager.DefaultManager.SubscribeToMessage( TMessageDidFinishTakingImageFromLibrary, DoMessageListener);

TMessageManager.DefaultManager.SubscribeToMessage( TMessageReceivedImagePath, DoMessageListener);


Und im Code:
procedure TfrmBilderHinzufuegen.DoMessageListener(const Sender: TObject; const M: TMessage);
begin
if M is TMessageDidFinishTakingImageFromLibrary then
frmBilderHinzufuegen.ImageNeuesBild1.Bitmap.Assign (TMessageDidFinishTakingImageFromLibrary(M).Value) ;

if M is TMessageReceivedImagePath then
begin
if nAktuellesBild = 1 then cBild1Pfad := TMessageReceivedImagePath(M).Value;
end;
end;



Danke und LG
Manfred
Manfred
  Mit Zitat antworten Zitat