Einzelnen Beitrag anzeigen

QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.944 Beiträge
 
Delphi 12 Athens
 
#3

AW: Probleme auf Android 12 und 13 mit TJPendingIntent

  Alt 6. Jun 2023, 13:03
[OT]aaaaaaaaaaaaah[/OT]
Oh man lesen. LESEN! Hilft total... unglaublich. Warum hat mir das keiner gesagt? Was ist das füe eine Community?
Delphi-Quellcode:
var
  ClassIntent: JIntent;
  Flags:Integer;
Const
  FLAG_MUTABLE:Integer =$02000000;
  FLAG_IMMUTABLE:Integer =$04000000;//TJPendingIntent.JavaClass.FLAG_IMMUTABLE
  FLAG_ALLOW_UNSAFE_IMPLICIT_INTENT:Integer = $01000000;
Begin
      Flags := TJIntent.JavaClass.FLAG_ACTIVITY_SINGLE_TOP;
      TLog.d('OSVersion: Major='+TOSVersion.Major.tostring+' Minor='+TOSVersion.Minor.ToString+' Name='+TOSVersion.Name);
      If TOSVersion.Major>=12 then // >= Android 12
        Flags := Flags or FLAG_MUTABLE;
      ClassIntent := TJIntent.JavaClass.init(TAndroidHelper.Context, TAndroidHelper.Activity.getClass);
      PendingIntent := TJPendingIntent.JavaClass.getActivity(TAndroidHelper.Context, 0,
                                                                ClassIntent.addFlags(Flags), Flags);
end;
Der letzte Parameter von getActivity heist "Flags".
Das ist vermutlich noch nicht optimal... aber es geht wenigstens schonmal ...
von hieraus muss ich noch etwas testen... ob ClassIntent wirklich auch diese Flags braucht oder nur der Aufruf von TJPendingIntent.JavaClass.getActivity
Andreas
Monads? Wtf are Monads?

Geändert von QuickAndDirty ( 6. Jun 2023 um 13:16 Uhr)
  Mit Zitat antworten Zitat