TUTORIEL DELPHI

COMMENT JOUER UN SON SOUS DELPHI

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".


Création de la ressource

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.


Jouer le son sous Windows

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;


Jouer le son sous Android

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;


procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName := FileName;
MediaPlayer1.Play;
end;