Intégrer un son ou une image à l'application

Version imprimable

31/05/2006, 14h00
avogadro

Intégrer un son ou une image à l'application

bonjour,

je cherche le moyen d'intégrer un son ou une image a l'application notamment pour accélérer la vitesse du logiciel mais je ne sais plus comment on fait, pouriez vous m'éclairer de vote lanterne

merci
31/05/2006, 14h10
edam

:faq:
http://delphi.developpez.com/faq/?pa...ererresdansexe
http://delphi.developpez.com/faq/?pa...lireressoucres

en fait il faudrait utiliser brcc32.exe pour modifier un fichier rc en rec, mon rc je l'ai créer avec le blocnote, enfin bref ça marche pas, sinon pour eviter de rendre mon application trop lourde je pourrais utiliser ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 //Pour jouer un son au format WAV, il faut déclarer l'unité MMSystem dans la clause uses : var Hres: THandle; Pres: PChar; begin Hres := FindResource(0, pchar('MONWAV2'), 'WAV'); // Recherche de la Ressource Hres := LoadResource(0, Hres); // On charge la Ressource Pres := LockResource(Hres); sndPlaySound(Pres, SND_MEMORY); // On joue le WAV UnLockResource(Hres); FreeResource(Hres); End;
mais le probleme ici c'est que le systeme prend du temps pr le charger, donc au lancement de l'application, y aurait il moyen de lancer ce chargement en arriere plan, sans que cela bloc l'utilisateur dans ses manipulations??

21/06/2006, 17h31
Squall78

Salut.

Perso je ferais différemment (en fait je comprends même pas ton THandle lol).
Moi je fais comme cela :

{$R son_res.res}

procedure TForm1.Button1Click(Sender: TObject);
var RS : TResourceStream;

begin
RS := TResourceStream.Create(0, 'MON_SON', RT_RCDATA);
MMSystem.PlaySound(RS.Memory, 0, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);
RS.Free;
end;

ça charge la ressource (qui s'appelle MON_SON qui est contenue dans son_res.res et qui est de type RCDATA) dans un ResourceStream qui est ensuite lu grâce au MMSystem (à placer dans les Uses).

Je vois pas plus simple (du moins en intégrant le son à l'exe).
13/08/2007, 15h53
cantador

jouer un son stocké dans une ressource

bonjour,

j'ai un souci à peu près équivalent :
je veux jouer SHIELD.Wav

après avoir crée mon fichier .rc et son compilé .res
intégration de la directive dans le source et
j'exécute le même code qu'Avogadro

sur point d'arrêt, Hres et Pres ne sont pas vides

mais le son NE SORT PAS juste un toc sonore..

je dois certainement avoir oublié un truc !?

merci par avance
14/08/2007, 10h37
ShaiLeTroll

J'avais une application qui dans un entrepot devait envoyer à un haut parleur des numéros, je ne me suis pas emerdé, j'ai stocké les sons dans des fichiers Wav, et je lançais ceci

Code:

PlaySound(PChar(SoundFileName), 0, SND_FILENAME);

mais, cela chargeait à chaque fois, j'ai donc utiliser aussi des TMemoryStream (pour info, le TResourceStream est un TMemoryStream qui encapsule la triplette Find/Load/LockResource), mais je créais une instance par fichier (je ne voulais pas m'emmerder avec la compilation, les wav étaient stockés dans un fichier zip, au lancement, dezip dans temp, load temp, suppression temp) dans un Thread lancé au démarrage (il y avait plusieurs threads le temps que tout ça se lance ne posait pas problème, car pour démarrer l'application touts les voyants devait passer au vert, la dernière étape étant la connexion à la trieuse de l'entrepot)

Le lancement du son était faite via une TThreadList indiquant les fichiers (valeur numérique) à lire séquentiellement et les éventuelles temps de pause ...

Cela consomme de la mémoire, mais les ressources sont prêtes à être utilisé très rapidement ...

@Squall78 , tu as la balise [CODE ] plus simple que des faire ses propres couleurs ...

jouer un son wav stocké dans une ressource

la méthode de squall78 marche :

Code:

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
  RS := TResourceStream.Create(0, 'SHIELD', 'WAVE');
  MMSystem.PlaySound(RS.Memory, 0, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);
  RS.Free;
end;

et celle-ci aussi (à la place de celle d'avogadro..)

Code:

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  MonSon: Pointer; 
begin
  MonSon := LockResource(LoadResource(HInstance, FindResource(HInstance, 'SHIELD', 'WAVE')));
  SndPlaySound(MonSon, Snd_ASync or Snd_Memory);
end;

laquelle est la meilleure ??

cantador

15/08/2007, 16h35
Sub0

Perso, j'utilise Res_hia de DelphiCool pour intégrer des fichiers de données dans mon programme... A possèder absolument!
Concernant le sample WAV, j'utilise le module de Bass plutôt que SndPlaySound car, en plus d'être plus compatible (DirectSound) il permet de réaliser bien plus de chose, comme modifier le volume, la balance, la position de lecture, la vitesse, etc... Tu trouveras un exemple et les sources dans ce sujet.

ps: Pensez à utiliser la balise CODE pour encadrer les sources dans vos messages
17/08/2007, 16h18
cantador

jouer un son stocké dans une ressource

@Sub0 :
j'utilise aussi le soft de delphicool..bien pratique toutefois, il aurait été préférable de mettre un menu ou un bouton pour ajouter..

Le module de bass, oui mais tout dépend de ce que tu as à faire..
Moi c'est juste pour sonoriser une apparition de forme..donc..

Mais ce n'était pas la question que j'avais posée :

pm : je voulais juste savoir quelle est la meilleure méthode de programmation :
le TStream ou le Pointer ???

nb : j'ai bien noté la balise "CODE"

A bientôt

cantador
05/10/2007, 20h26
pieroznight

et pourquoi ne pas utiliser des .mp3 ?
Avec un mediaplayer
05/10/2007, 23h00
cantador

J'ai un son .wav, je ne vais me compliquer à le transformer en .mp3...
A noter que ça marche bien avec chacune des deux méthodes.
:D:P