Discussion :

[poly128]

Là j'avoue ne plus rien comprendre. J'ai un programme qui joue des sons. A partir de la tout va très bien. Mais, ensuite je veut qu'il puisse enregistrer des chiffre dans un fichier. Donc je fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.FormCreate(Sender: TObject);
begin
  assignfile(fichier,'C:\fic.dat');
  if not fileexists('C:\fic.dat') then rewrite(fichier);
 
 
 
  if not SND_init(Handle) then application.Terminate;
  SND_add('snd1.wav');      //Ajouter un son
  SND_global_volume(100);  //Volume du son
  SND_global_freq(12000);  //Fréquence du son
end;
 
 
procedure TForm1.ecrireClick(Sender: TObject);
begin
  chiffre:=strtoint(edit1.Text);
 
  reset(fichier);
  seek(fichier,strtoint(edit2.Text));
  write(fichier,chiffre);
  closefile(fichier);
end;

Je me dit que ca devrai marcher, mais je clique sur le boutton écrire et mon programme me dit: Acces au fichier refusé. Pour qu'il ne me dise pas ca, il faut enlever

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 if not SND_init(Handle) then application.Terminate;
  SND_add('snd1.wav');      //Ajouter un son
  SND_global_volume(100);  //Volume du son
  SND_global_freq(12000);  //Fréquence du son

Ce qui a pour effet que je ne peut plus jouer le son.
Pourquoi est qu'il plante ?

Le source du programme fichier.zip un peut fait a la vat vite .

[poly128]

AAAHHH ca fait des jours que je cherche et je ne sais toujours pas pourquoi ca plante.


Personne ne sait pourquoi ?

[Jipété]

Yop !

Tes fonctions SND_xxx sont dans un "snd_main.pas" que tu n'as pas inclus au zip...

--
jp

[poly128]

Oups désolé: snd_main.zip

[Jipété]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormCreate(Sender: TObject);
begin
  assignfile(fichier,'C:\fic.dat');
  if not fileexists('C:\fic.dat') then rewrite(fichier);
 
  if not SND_init(Handle) then application.Terminate;
  SND_add('snd1.wav');      //Ajouter un son
  SND_global_volume(100);  //Volume du son
  SND_global_freq(12000);  //Fréquence du son
end;

En 1re approche comme ça vit' fait, moi je verrais bien un CloseFile(fichier) après le traitement (il est où, au fait ? Y a rien, là) avant d'attaquer SND_add qui fait aussi un AssignFile, des fois que ça fasse un pâté puisque si tu commentes ça passe.
Enfin, tu vois l'idée...
Mes 2 cts,
--
jp

[poly128]

Merci de bien vouloir m'aider.
Oui c'est vrai, il manque un closefile(fichier);
Mais, le mettre n'arrange pas le problème.

[Jipété]

Oui c'est vrai, il manque un closefile(fichier);

Manque pas que ça...
Si tu regardais l'aide et les exemples de l'aide, et si tu étudiais le message d'erreur que tu as (et que j'ai eu aussi), la lumière devrait se faire, non ?

Cherche un peu, tu y es presque.

[edit :]
Bon, allez, ch'suis bon prince :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(fichier, 'C:\fic.dat');
  if not FileExists('C:\fic.dat') then ReWrite(fichier);
  Reset(fichier);
  CloseFile(fichier);
 
  if not SND_init(Handle) then application.Terminate;
  SND_add('snd1.wav');
  SND_global_volume(100);
  SND_global_freq(12000);
  SND_play(0, 128);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  chiffre := StrToInt(edit1.Text);
 
  AssignFile(fichier, 'C:\fic.dat');
  FileMode := 10;  {Accès fmShareExclusive au fichier }
  Reset(fichier);
  Seek(fichier, StrToInt(edit2.Text));
  Write(fichier, chiffre);
  CloseFile(fichier);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text := '';
 
  AssignFile(fichier, 'C:\fic.dat');
  Reset(fichier);
  Seek(fichier, StrToInt(edit2.Text));
  Read(fichier, chiffre);
  CloseFile(fichier);
 
  edit1.Text := IntToStr(chiffre);
end;

--
jp

[poly128]

Wow, merci ca marche . J'aurais jamais trouvé ca tout seul.