smilm | bon j'ai fais ca, mais ca marche pas.
Code :
- unit zik;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs,fmod, StdCtrls;
- procedure initialisationSound;
- type
- pSample = ^tSample;
- tSample = record
- sample : PFsoundSample;
- channel : byte;
- end;
- mysample = tSample;
- TForm1 = class(TForm)
- Button1: TButton;
- procedure Button1Click(Sender: TObject);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- private
- { Déclarations privées }
- public
- { Déclarations publiques }
- end;
- var
- Form1: TForm1;
- fusee : ^mysample;
- implementation
- {$R *.dfm}
- procedure initialisationSound;
- begin
- FSOUND_close;
- FSOUND_SetOutput(FSOUND_OUTPUT_DSOUND);
- FSOUND_setdriver(0);
- FSOUND_SetMixer(FSOUND_MIXER_AUTODETECT);
- Fsound_init(44100,4,0);
- FSOUND_SetReserved(0,true);
- fusee:=FSOUND_Sample_Load(FSOUND_FREE,'fusee.mp3',FSOUND_STEREO,0);
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- FSOUND_PlaySound (FSOUND_FREE, @fusee);
- end;
- procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
- begin
- FSOUND_Close();
- end;
- 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
|