gestion du son avec FMOD

gestion du son avec FMOD - Delphi/Pascal - Programmation

Marsh Posté le 01-02-2004 à 18:18:10    

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
Reply

Marsh Posté le 01-02-2004 à 18:18:10   

Reply

Marsh Posté le 01-02-2004 à 18:22:31    

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
Reply

Marsh Posté le 01-02-2004 à 18:38:47    

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
Reply

Marsh Posté le 01-02-2004 à 18:51:52    

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
Reply

Marsh Posté le 01-02-2004 à 19:09:06    

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
Reply

Marsh Posté le 01-02-2004 à 20:46:35    

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
Reply

Marsh Posté le 01-02-2004 à 20:49:28    

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
Reply

Marsh Posté le 01-02-2004 à 21:08:31    

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
Reply

Marsh Posté le 01-02-2004 à 21:24:00    

PChar(fpath)


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 02-02-2004 à 08:20:01    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed