【Delphi】AVAudioPlayerでwavが再生されない

Question

前提・実現したいこと

Delphi 10.3.2を使ってiOS上でwavファイルを再生するプログラムを作っています。

iOS 12.4の端末では、問題なく再生されますがiOS 13.2の端末では音が再生されません。
端末がマナーモードでないことを確認し、音量も最大にして試しました。
また、例外も発生しておりません。

どの様に変更すれば、iOS 13.2の端末で正常に再生されるようになりますでしょうか。

八方ふさがりで途方に暮れております。
ヒントだけでも頂けると大変ありがたいです。
よろしくお願いいたします。

該当のソースコード

procedure TFormMain.Button1Click(Sender: TObject);
var
  fname: String;
  newAVAudioPlayer: AVAudioPlayer;
begin
  fname := 'wavファイルへのパス';

  if FileExists(fname) = false then begin
    ShowMessage(fname + ' is not found');
  end;

  newAVAudioPlayer := TAVAudioPlayer.Create;
  newAVAudioPlayer.initWithContentsOfURL(StrtoNSUrl(fname), nil);
  newAVAudioPlayer.prepareToPlay;
  newAVAudioPlayer.play;
end;

試したこと

似たような症状を探したところ以下が見つかり、
AVAudioPlayerの宣言方法を変更すれば良いらしいという事は分かりましたが
AVAudioPlayerの変数をグローバル変数で宣言するなど試しましたが改善は見られませんでした。

https://stackoverflow.com/questions/58105462/app-crashes-when-playing-audio-on-ios13-1

該当のソースコード

また、newAVAudioPlayer.initWithContentsOfURLの第2引数でエラーを取得したいのですが、
以下で試すとShowMessageの行でAccessViolationが発生してしまいます。

恐らく根本的に間違っているのだと思うのですが・・・
こちらも併せてご教示いただけると大変助かります。

procedure TFormMain.Button2Click(Sender: TObject);
var
  fname: String;
  newAVAudioPlayer: AVAudioPlayer;
  error: NSError;
begin
  fname := 'wavファイルへのパス';

  error := TNSError.Create;

  newAVAudioPlayer := TAVAudioPlayer.Create;
  newAVAudioPlayer.initWithContentsOfURL(StrtoNSUrl(fname), error);

  ShowMessage(NSStrToStr(error.localizedDescription));

  newAVAudioPlayer.prepareToPlay;
  newAVAudioPlayer.play;
end;

補足情報（FW/ツールのバージョンなど）

開発環境：Delphi10.3.2
検証端末：iPhone7(iOS 12.4)、iPhone7 plus(iOS 13.2)

Comments

[takabosoft]

Delphi読めないのですが、
var newAVAudioPlayer: AVAudioPlayer;
は変数を宣言しただけで中身はnull的な感じなんでしょうか？

[dorian2019]

質問に興味を持っていただきありがとうございます。
恐らく初期化されていないため、中身は不定だと思われます。

[takabosoft]

不定なら問題ないのかなと思います。
stackoverflowなんかで報告されているクラッシュは、インスタンスが在るものに対して上書きでインスタンスを生成して代入するとNGと書いてある気がしましたので。

[dorian2019]

ご解説ありがとうございます！
stackoverflowの記事は、そういった意味だったのですね。
頭の霧が少し晴れました。

Answer 1

Delphiのメーリングリストにて回答を見つけました。
初期化の方法に問題があり正常なインスタンスを取得できていなかった事が原因でした。

procedure TFormMain.Button1Click(Sender: TObject);
var
  fname: String;
  newAVAudioPlayer: AVAudioPlayer;
begin
  fname := 'wavファイルへのパス';

  newAVAudioPlayer := TAVAudioPlayer.Wrap(TAVAudioPlayer.Alloc.initWithContentsOfURL(StrtoNSUrl(fname), nil));
  newAVAudioPlayer.prepareToPlay;
  newAVAudioPlayer.play;
end;