Comment jouer un son à partir d'une ressource wav, mp3 etc... sous delphi Windows ou Android. Ici dans l'exemple une ressource "Resource_1" et un bouton " Button1".
Dans le menu principal. Cliquez sur "Projet", Ensuite sur "Ressources et images...", Cliquez sur "Ajouter..." (Ressources tous les fichier). Identificateur de ressource : le nom de la ressource. Type de ressource : RCDATA.
Dans le code ajoutez dans Uses "MMSystem".
procedure TForm1.Button1Click(Sender: TObject);
var Stream: TResourceStream;
begin
Stream := TResourceStream.Create(HInstance, 'Resource_1', RT_RCDATA);
sndPlaySound(Stream.Memory, (SND_ASYNC or SND_MEMORY));
Stream.Free;
end;
Déclarez dans votre application (var fileName : string;)
procedure TForm1.FormCreate(Sender: TObject);
var Stream: TResourceStream;
begin
FileName := Format('%s/Monson.wav', [GetHomePath]);
Stream := TResourceStream.Create(HInstance, 'Resource_1', RT_RCDATA);
Stream.SavetoFile(FileName);
end;