Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi 12 CE (https://www.delphipraxis.net/215894-delphi-12-ce.html)

ManfredU 22. Sep 2024 22:27

Delphi 12 CE
 
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

himitsu 23. Sep 2024 00:07

AW: Delphi 12 CE
 
Wäre es nicht sinnvoll gewesen das in den Titel zu schreiben, um was es geht?
Viele haben auch irgendwelche anderen Problem damit. :freak:

Tja, das gibt es wohl nicht mehr.
Jedenfalls fehlt alles dazu in FMX.Platform.Android.pas

Diese Beiden wurden entfernt,
Zitat:

Delphi-Quellcode:
  TFMXNativeActivityListener = class(TJavaLocal, JOnActivityListener)
    procedure onCancelReceiveImage(ARequestCode: Integer); cdecl;
    procedure onReceiveImagePath(ARequestCode: Integer; AFileName: JString); cdecl;

auch wenn ich es in der aktuellen Hilfe noch "teilweise" finde.
https://docwiki.embarcadero.com/RADS..._Message_Types

fisipjm 23. Sep 2024 06:30

AW: Delphi 12 CE
 
Moinsen,

ich kenne das vorgehen um ein Bild aufzunehmen und zu verarbeiten/speichern nur über die Actionlist.
Du nutzt normalerweise aus der ActionList die TakePiture (oder so ähnlich :oops:) action und übergibst dort eine "onSuccess" Funktion. Die hat dann zugriff auf den Stream des Bildes, damit kannst du dann machen was du willst,bzw. kannst es auch direkt in die Media Folder speichern lassen :)


https://docwiki.embarcadero.com/RADS...g_Action_Lists


vG
PJM

ManfredU 30. Sep 2024 19:43

AW: Delphi 12 CE
 
Hallo.
Sorry himitsu. Ich hatte Delphi 12 installiert und beim 1. Programm das ich ausprobierte kam dieser Fehler, ich dachte dass bei meiner Delphi Installation etwas schief gelaufen ist, oder dies an der CE liegt, daher der allgemeine Titel „Delphj 12 CE“.
Danke fisipjm für deinen Antwort. Ich habe mir die ActionList angeschaut, jedoch habe ich nirgends eine Funktion oder Variable gefunden, die den Namen der jpg Datei ausgibt, mit der die Kamera das Bild auf DCIM/Camera speichert. Ich möchte ja die Datei auf ein Unterverzeichnis verschieben, und da brauche ich den Dateinamen. Vielleicht habe ich was übersehen.
Danke und LG


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:22 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz