Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2684 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  gestion du son avec FMOD

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

gestion du son avec FMOD

n°627836
smilm
Posté le 01-02-2004 à 18:18:10  profilanswer
 

Salut!
 
En me baladant sur le net et en pompant dans des codes sources j'ai reussi a coder un tit quelque chose pour me jouer du son, mais ca ne marche pas.
 

Code :
  1. unit zik;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs,fmod, StdCtrls;
  8. procedure initialisationSound;
  10. type
  12. pSample = ^tSample;
  13. tSample = record
  14.   sample : PFsoundSample;
  15.   channel : byte;
  16.   end;
  18.   mysample = tSample;
  20.   TForm1 = class(TForm)
  21.     Button1: TButton;
  23.   private
  24.     { Déclarations privées }
  25.   public
  26.     { Déclarations publiques }
  28.   end;
  30. var
  31.   Form1: TForm1;
  32.        fusee : mysample;
  33. implementation
  35. {$R *.dfm}
  37. procedure initialisationSound;
  38. begin
  39. FSOUND_close;
  40. FSOUND_SetOutput(FSOUND_OUTPUT_DSOUND);
  41. FSOUND_setdriver(0);
  42. FSOUND_SetMixer(FSOUND_MIXER_AUTODETECT);
  43. Fsound_init(44100,4,0);
  44. FSOUND_SetReserved(0,true);
  45. fusee:=FSOUND_Sample_Load(FSOUND_FREE,'fusee.mp3',FSOUND_STEREO,0);
  46. FSOUND_PlaySound (FSOUND_FREE, fusee);
  47. end;
  49. end.


 
Delphi me dit que je mélange tsample et pointer, mais je ne maitrise pas bien cette histoire de pointeurs et je débute tout juste fmod.
Quelqu'un pourrait me donner un coup de main et me dire ce qui ne va pas ?
Merci d'avance.


Message édité par smilm le 01-02-2004 à 18:18:30

---------------
AfterEnd: Batissez un nouveau monde
mood
Publicité
Posté le 01-02-2004 à 18:18:10  profilanswer
 

n°627846
antp
Super Administrateur
Champion des excuses bidons
Posté le 01-02-2004 à 18:22:31  profilanswer
 

FSOUND_PlaySound s'attend à quoi ? un pSample ?
Tu dois mettre un @ devant fusee quand tu le passes en param, pour passer l'adresse (càd un pointeur) plutôt que la structure elle-même


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°627876
smilm
Posté le 01-02-2004 à 18:38:47  profilanswer
 

bon j'ai fais ca, mais ca marche pas.
 

Code :
  1. unit zik;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs,fmod, StdCtrls;
  8.     procedure initialisationSound;
  9. type
  11. pSample = ^tSample;
  13. tSample = record
  14.   sample : PFsoundSample;
  15.   channel : byte;
  16.   end;
  18.   mysample = tSample;
  20.   TForm1 = class(TForm)
  21.     Button1: TButton;
  22.     procedure Button1Click(Sender: TObject);
  23.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  25.   private
  26.     { Déclarations privées }
  27.   public
  28.     { Déclarations publiques }
  30.   end;
  32. var
  33.   Form1: TForm1;
  34.   fusee : ^mysample;
  35. implementation
  37. {$R *.dfm}
  39. procedure initialisationSound;
  40. begin
  41. FSOUND_close;
  42. FSOUND_SetOutput(FSOUND_OUTPUT_DSOUND);
  43. FSOUND_setdriver(0);
  44. FSOUND_SetMixer(FSOUND_MIXER_AUTODETECT);
  45. Fsound_init(44100,4,0);
  46. FSOUND_SetReserved(0,true);
  47. fusee:=FSOUND_Sample_Load(FSOUND_FREE,'fusee.mp3',FSOUND_STEREO,0);
  48. end;
  50. procedure TForm1.Button1Click(Sender: TObject);
  51. begin
  52. FSOUND_PlaySound (FSOUND_FREE, @fusee);
  53. end;
  55. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  56. begin
  57.     FSOUND_Close();
  59. end;
  61. end.


 
Par contre, ya pas d'erreur.
 
Le fichier fusee.mp3 est dans le dossier de l'executable.(le seul et unique dossier du 'projet' d'ailleurs)


---------------
AfterEnd: Batissez un nouveau monde
n°627889
antp
Super Administrateur
Champion des excuses bidons
Posté le 01-02-2004 à 18:51:52  profilanswer
 

ouais mais t'as pas modifié juste un truc : t'as modifié aussi la déclaration de fusee :p
C'est probablement plus logique, mais comme fusee est maintenant ^tSample et plus un tSample simple, tu devrais pouvoir le passer en paramètre sans le "@" (sinon déclare-le comme un pSample au lieu d'un ^tSample)


Message édité par antp le 01-02-2004 à 18:53:26

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°627916
smilm
Posté le 01-02-2004 à 19:09:06  profilanswer
 

WHAOU!!!
CA MARCHE
 
Merci ANTP
Je t'aime! !!! lol
 [:yaisse1]  [:yaisse2v]  [:kimouss]
 
code final  (j'ai enlever des trucs inutile apparament)

Code :
  1. unit zik;
  2.  
  3.   interface
  4.  
  5.   uses
  6.     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.     Dialogs,fmod, StdCtrls;
  8.       procedure initialisationSound;
  9.   type
  11. //  pSample = ^tSample;
  13.   tSample = record
  14.     sample : PFsoundSample;
  15.     channel : byte;
  16.     end;
  17.  
  18. //   mysample = pSample;
  19.  
  20.     TForm1 = class(TForm)
  21.       Button1: TButton;
  22.       procedure Button1Click(Sender: TObject);
  23.       procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24.     procedure FormCreate(Sender: TObject);
  25.  
  26.     private
  27.       { Déclarations privées }
  28.     public
  29.       { Déclarations publiques }
  30.  
  31.     end;
  32.  
  33.   var
  34.     Form1: TForm1;
  35.     fusee : ^tsample;
  36.   implementation
  37.  
  38.   {$R *.dfm}
  39.  
  40.   procedure initialisationSound;
  41.   begin
  42.   Fsound_init(44100,2,0);
  43.   fusee:=FSOUND_Sample_Load(1,'intro.mp3',FSOUND_STEREO,0);
  44.   end;
  45.  
  46.   procedure TForm1.Button1Click(Sender: TObject);
  47.   begin
  48.   FSOUND_PlaySound (1,fusee);
  49.   end;
  50.  
  51.   procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  52.   begin
  53.       FSOUND_Close();
  54.  
  55.   end;
  56.  
  57.   procedure TForm1.FormCreate(Sender: TObject);
  58. begin
  59.   initialisationSound;
  60. end;
  62. end.


Message édité par smilm le 01-02-2004 à 19:33:38

---------------
AfterEnd: Batissez un nouveau monde
n°627984
smilm
Posté le 01-02-2004 à 20:46:35  profilanswer
 

Encore une petite question, plus ou moins hs mais bon.
 
J'aimerais savoir comment on récupére le chemin du fichier que l'utilisateur selectionne dans un "FileOpen" que j'utilise grace a une ActionList.
 
J'aimerais grace a ce chemin, remplacer le "fusee.mp3" par le chemin que l'utilisateur demande et ainsi pouvoir avoir un lecteur mp3 tout basic.
 
Merci d'avance


---------------
AfterEnd: Batissez un nouveau monde
n°627990
smilm
Posté le 01-02-2004 à 20:49:28  profilanswer
 

SmilM a écrit :

Encore une petite question, plus ou moins hs mais bon.
 
J'aimerais savoir comment on récupére le chemin du fichier que l'utilisateur selectionne dans un "FileOpen" que j'utilise grace a une ActionList.
 
J'aimerais grace a ce chemin, remplacer le "fusee.mp3" par le chemin que l'utilisateur demande et ainsi pouvoir avoir un lecteur mp3 tout basic.
 
Merci d'avance


 
c bon j'ai trouvé!
FileName...:)


---------------
AfterEnd: Batissez un nouveau monde
n°628013
smilm
Posté le 01-02-2004 à 21:08:31  profilanswer
 

Je continue mon monologue mais la je galere un peu plus...
j'ai un petit probleme de type de variables:
 
 
fpath: string;
----
fpath:= FileOpen1.Dialog.FileName;
---
fusee:=FSOUND_Sample_Load(FSOUND_FREE,fpath,FSOUND_STEREO,0);
---
 
Le probleme est que FSOUND_Sample_Load demande un PAnsiChar, alors que fpath est un string, et d'aprés ce que je vois dans la doc de delphi strtoPAnsiChar() n'existe pas.
Comment dois-je proceder ?
 
Merci d'avance.


Message édité par smilm le 01-02-2004 à 21:23:27

---------------
AfterEnd: Batissez un nouveau monde
n°628032
antp
Super Administrateur
Champion des excuses bidons
Posté le 01-02-2004 à 21:24:00  profilanswer
 

PChar(fpath)


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°628237
smilm
Posté le 02-02-2004 à 08:20:01  profilanswer
 

Merci encore [:kintarox]  
Ca marche !
J'ai meme rajouter une trackbar pour gerer le son :)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  gestion du son avec FMOD

 

Sujets relatifs
STL : gestion des exception. appel explicite?Gestion de fichier des repertoires
Gestion des collisions avec OPCODEQuelle structure de base adopter ? Gestion d'événements.
Gestion des champs en auto-incrémentation avec PEARgestion du retour a la ligne dans une variable???
[Delphi] Gestion mémoire bizarre[Tomcat] Gestion de cache ?
Creer Systeme NEWS - HTML - avec gestion admin ???Projet de gestion hasardeuse de frame (vrai défi inside)
Plus de sujets relatifs à : gestion du son avec FMOD

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.078 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)