Lire un wave situé dans une ressource

Signaler
Messages postés
28
Date d'inscription
mercredi 3 septembre 2003
Statut
Membre
Dernière intervention
22 octobre 2004
-
Messages postés
28
Date d'inscription
mercredi 3 septembre 2003
Statut
Membre
Dernière intervention
22 octobre 2004
-
Bonjour a tous :)

J'essaie de faire jouer un wav format mp3 que j'ai inclu en ressource dans mon programme. Le problème : Pas de joli son... Rien ne sort, mais le programme continue.
Si j'essaie de le faire jouer directement du ficier .wav (donc pas avec la ressource) ça fonctionne parfaitement... J'ai utilisé Res Hia pour créer la ressource...
Voici le code utilisé :
{$R STP.res}

procedure TfPopAd.Anim ;
var
  Hres: THandle;
  Pres: PChar;
begin
  Hres := FindResource(0, PChar('STP'), 'WAV'); 
  Hres := LoadResource(0, Hres); 
  Pres := LockResource(Hres);
  SndPlaySound(Pres, SND_ASYNC); 
  UnLockResource(Hres);
  FreeResource(Hres);


J'ai pris ce bout de code du site de DELPHICOOL...

Merci d'aider un débutant ^^ :)

1 réponse

Messages postés
28
Date d'inscription
mercredi 3 septembre 2003
Statut
Membre
Dernière intervention
22 octobre 2004

Laissez tomber, j'ai fini par trouver ^^
Pour ceux que ca pourrait être utile ;
var
Pointer1 : pointer ; // Sound to play

Pointer1 := LockResource(LoadResource(HInstance,FindResource(HInstance,'NOMCHERCHÉ','WAVE')));
SndPlaySound(Pointer1,Snd_ASync or Snd_Memory);