musique de fond

Question

Hi. Est ce que vous pouvez m'aider ??? Je veux faire un projet et que
quand je lance le exe la musique se lance aussi. Merci a bientot

sisi231 · Answer

Utilise un composant tmediaplayer avec ses m&#233;thodes open et  play , sa propri&#233;t&#233; visible &#224; false, filename au nom du fichier et devicetype &#224; dtwaveaudio ou utilise la fonction PlaySound de l'API Windows.

SISI231

cocowz · Answer

Merci mais tu pourrai pas me dire la code qu'il faut mettre dans la propriete car je suis  un mul donc je sais rien.

cocowz · Answer

Up :) svp

sisi231 · Answer

Je te la'ai dit :

1: d&#233;pose un composant TMediaPlayer sur ta fiche (onglet Syst&#232;me, symbole : une note de musique)
2: met sa propri&#233;t&#233; " visible " &#224; false pour le rendre invisible (c'est ce que tu veux je suppose pour une musique de fond) (avec l'inspecteur d'objet)
3 : dans l'&#233;v&#233;nement OnShow de ta fiche met le code suivant :

with mediaplayer1 do // avec mediaplayer1
begin
filename := "ma_musique.wma"; // exemple : ici c'est une adresse relative donc ma_musique.wma doit se trouver
// dans le m&#234;me dossier
open; //ouvre le mediaplayer : tjrs apr&#232;s avoir pr&#233;cis&#233; le filename (sinon erreur)
play; // jouer (tjrs apr&#232;s open sinon erreur)
end;

et consulte l'aide de Delphi pour plus de pr&#233;cisions

tu as aussi les API PlaySound et sndPlaySound, si tu veux je te les expliquerais apr&#232;s (mais je crois que &#231;a ne marche qu'avec les fichiers WAV)

Cordialement.
SISI231

cocowz · Answer

Et dans le filename comment on met l'adresse ou se trouve mon wma si il
est dans "C:\Documents and Settings\Propri&#233;taire\Mes documents"...
Merci j'ai du mal a comprendre excusez moi

sisi231 · Answer

Rebonjour !

Tu peux me tutoyer...
Excuse moi je me suis tromp&#233; (&#224; force de jongler entre les langages) : en Delphi les cha&#238;nes de caract&#232;res se d&#233;limitentent avec des guillemets simples et non des guillemets doubles donc fait :


filename := 'C:\etc...' et non filename:="C:\etc.."

ensuite je crois que ta question repose sur la diff&#233;rence entre adresse relative et absolue.

Une adresse relative est relative  au dossier courant (souvent celui de ton application), si ton son est dans le r&#233;pertoire courant tu peux mettre simplement : 'mon_son.wma' ou tu peux indiquer un chemin &#224; partir du fichier courant : 'Sous_Dossier_Du_Dossier_Courant\Autre_Sous_Dossier_mon_fichier.wma' si ton son se trouve dans un sous-dossier du dossier courant ou bien par ex : '..\..\mon_son.wav', les deux points signifiants le r&#233;pertoire au dessus (i.e. parent) (donc ici deux r&#233;pertoires au dessus).

Une adresse absolue est l'adresse &#224; partir de la racine du disque dure ex : 'C:\dossier1\dossier2\mon_son.midi'

Evite ces adresses absolues car le client de ton programme n'aura pas forc&#233;ment un son &#224; cette adresse.

Voici des fonctions qui pourront te servir pour g&#233;rer le r&#233;pertoire courant :

setcurrentdirectory(dir); // met dir comme r&#233;pertoire courant
dir := getcurrentdirectory; // met dans dir le r&#233;pertoire courant
application.exename; // c'est le chemin complet (adresse absolue) de ton programme
dir := extractfiledir(chemin); // met dans dir le r&#233;pertoire du fichier "chemin"

exemple : pour forcer le r&#233;pertoire courant &#224; &#234;tre celui de ton application :

setcurrentdirectory(extractfiledir(application.exename));

Enfin si tu veux comprendre ce que je t'ai dit pr&#233;c&#233;demment il faut que tu comprenne les concepts suivants :

- variable
- fonction
- proc&#233;dure
- fonction
- propri&#233;t&#233;
- m&#233;thode
- cha&#238;ne ou string (en aglais)
- clause uses
- gestionnaire d'&#233;v&#233;nement
- &#233;v&#233;nement
- inspecteur d'objet
- fiche
- unit&#233;
- composant
- objet
- etc.

Ces mots ont un sens pr&#233;cis en informatique (diff&#233;rent du sens commun), ce sont des concepts de base
que tout programmeur orient&#233; POO (encore un sigle...)conna&#238;t par coeur, je ne sais pas si tu les conna&#238;t mais ils te seront indispensables pour continuer ton apprentissage de Delphi.
N'h&#233;site pas &#224; demander sur le forum tes questions relatives &#224; ces concepts fondamentaux.

Je ne sais pas &#224; quel niveau de programmation tu es rendu en Delphi, dis-moi : cela fait combien de temps que tu programme en Delphi ?

Cordialement.

@ +



SISI231

cocowz · Answer

J'ai pas de niveau :) je vien de commenser et je suis trop nul en plus
j'ai delphi7 en Anglais  et en english je suis nul aussi. J'ai pas
de livre donc j'essayer d'apprendre un peu avec votre site mais c'est
un peu difficile.

Et la j'ai tout essaye et j'arrive pas tu pourra pas me passer ton prejet pour que je regarde car c'est cho de faire. merci a+

sisi231 · Answer

Re
Je ne peut pas te former de A &#224; Z en peu de temps...
Il faut que tu essaie au maximum d'apprendre par toi m&#234;me par des tutorials sur Internet, en posant des questions sur des chats comme #programmation et  sur ce forum.
Le sujet de Delphi est tr&#232;s vaste et il est impossible d'en faire une explication exhaustive dans le cadre de ce forum, on peut &#224; la limite r&#233;pondre &#224; une question par ci par l&#224; mais tout expliquer est hors de port&#233;e...


Cordialement.


Bonne chance !

SISI231

sisi231 · Answer

Excuse-moi, si tu veux que je te donne un exemple de projet (je suppose que c'est ce que tu entend par " prejet "), 
il faudrait d&#233;j&#224; que je sache comment faire pour envoyer un fichier via ce site (car je ne suis pas un admin contrairement &#224; ce que tu semblait avoir compris) (si c'est possible) ou que tu me donne ton adresse mail.

SISI231

cocowz · Answer

voila mon msn c'est *cocowz@hotmail.fr*

toutepetitesouris · Answer

bonjour j ai bien suivie les explications pour TmediaPlayer mais je ne trouve pas l'évènement Onshow... ce qui pause un petit problème quelqu'un pourrai m'aider?

toutepetitesouris · Answer

je précise que je cherche toujours à jouer une musique en fond et que je n ai pas trouvée....j'ai regardée dans l aide delphi et je ne trouve pas l'évènement OnShow.
je ne suis pas aprticulièrement attachée a TmediaPlayer donc si quelqu'un a une solution :) je suis toute ouïe :)

sisi231 · Answer

Pour trouver l'événement OnShow dans Delphi 6  : dans la petite boîte en bas à gauche nommée "Inspecteur d'objets", tu as une liste déroulante, met la fiche principale dedans par exemple Form1 si ça y est pas déjà.
Ensuite clique sur l'onglet "événements", baisse l'ascensceur jusqu'à OnShow et double-clique dessus (pas sur le nom mais sur la case vide à droite du nom).

Voilà si tu ne vois pas l'inspecteur d'objets appuie sur F11.
Si tu as une autre version de Delphi ou que tu n'y arrive toujours pas n'hésite pas à redemander.

SISI231

toutepetitesouris · Answer

j'ai delphi 7 mais j'ai résolu mon problème en activant la musique en passant par le Oncreate :)

je vais tester cette technique merci pour cette réponse :)

Musique de fond

14 réponses

Votre réponse

Discussions similaires