Android Ses oynatma - Android Play Sound

From Delphi IDE click on "Project". Then select "Resources and Images...". Choose your media file and set it as RCDATA. Remember your resource identifier. Note: Make sure the media type is supported by TMediaPlayer otherwise it won't work.

procedure PlayAudio(ResourceID: string);
var
ResStream: TResourceStream;
TmpFile: string;
begin
ResStream := TResourceStream.Create(HInstance, ResourceID, RT_RCDATA);
try
TmpFile := TPath.Combine(TPath.GetTempPath, 'tmp.mp3');

ResStream.Position := 0;
ResStream.SaveToFile(TmpFile);
MediaPlayer1.FileName := TmpFile;

MediaPlayer1.Play;

finally
ResStream.Free;
end;
end;
//Kullanımı:

PlayAudio('Resource_1');

Önemli Not: Kodlarımın çoğu farklı kaynaklardan not defterlerine toplanarak biriktirilmiştir. Bu sebeble bir çoğunda Kaynak belirtemiyorum. Bu gibi durumda olan ve kaynağını bildiğiniz bir Kod Yazım var ise yorum olarak bildirmeniz rica olur. Saygılar.