Recherche
1 connecté

  Ressources : utilisation d'un WAV

Ressources : Utiliser le WAV.


dernière mise à jour : dimanche 02 novembre 2003

Utilisation du WAV placé précédemment dans notre exe :

  • Commencez un nouveau projet, placez-y un bouton
    Implémentez l'événement OnClick du bouton et ajoutez des lignes de code afin d'obtenir ceci :

implementation
uses mmsystem;
{$R *.DFM}
{$R testressources.RES}

// pour obtenir le .RES, on a compilé le script .RC
// en faisant BRCC32 nom du fichier .rc

procedure TForm1.Button1Click(Sender: TObject);
var       
  AdrSon: PChar;
  hRessourceVoulue : THandle; 
  // handle désignant la ressource située dans l'exe
  hBlockMemoireRes : THandle; 
  // handle sur le bloc mémoire contenant la ressource

begin
  // Initialisation du handle désignant la ressource située dans l'exe
  hRessourceVoulue:=FindResource(HInstance, 'Cloche', 'WAVE');
  if hRessourceVoulue<>0 then // s'il l'a trouvé
  begin
    // chargement de la ressource en mémoire
    hBlockMemoireRes:=LoadResource(HInstance, hRessourceVoulue);
    if hBlockMemoireRes<>0 then //si cela s'est bien passé
    begin
      // on bloque la mémoire contenant le bloc mémoire
      // et au passage on récupère le pointeur désignant le premier 
      // octet de la ressource
       AdrSon:=LockResource(hBlockMemoireRes);
       // on joue le son par SndPlaySound
       if Assigned(AdrSon) then SndPlaySound(AdrSon, snd_ASync or snd_Memory);
       UnlockResource(hBlockMemoireRes); // on débloque la mémoire
    end;
    FreeResource(hRessourceVoulue); // libération de la mèmoire
  end;
end;

end.

Compilez (F9), testez.

Source du projet complet : Sources


Leçon suivante
Retour au sommaire