Notifications mit individuellem Sound

[Kai_in_HH]

Verdammte Axt, ich habe das gleiche Problem.

Ich stelle in assets\internal\ meine eigene mp3 bereit, sie wird aber nicht als Notification-Ton verwendet. Es kommt immer nur der Standard-Ton.

Hier mein Code

Code:

procedure TForm1.PresentNotificationClick(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Name := 'BikeAppNotification';
    MyNotification.AlertBody := 'BikeApp Notification';
    MyNotification.FireDate := Now;
    MyNotification.EnableSound := True;
    MyNotification.SoundName := TPath.Combine(ProgDir, 'bell.mp3');;
    NotificationCenter1.PresentNotification(MyNotification);
  finally
    MyNotification.DisposeOf;
  end;
end;

ProgDir wird in einer anderen Funktion so ermittelt und funktioniert z.B. auch einwandfrei für die Arbeit mit meiner SQLLite-DB, daran kanns also nicht liegen

Code:

 ProgDir := TPath.GetDocumentsPath;

Also das ist nach allen Anleitungen eigentlich der richtige Weg. Interessiert nur meine App (oder den Delphi-Compiler?) nicht.

Kai