Discussion :

[cincap]

Bonjour à toutes et à tous,

J'ai une procédure qui charge un fichier Wav et une autre qui lit ce fichier.

Ma question lorsque je choisis d'afficher dans mon Tedit que le nom du fichier Wav, cela fonctionne en direct mais après la réouverture de mon application, le nom de mon fichier Wave est bien inscrit dans le Tedit ce qui confirme que mon fichier ini fonctionne mais par contre je ne sais pas le lire.

A mon avis, il s'agit d'un problème sur le chemin du fichier car si j'utilise tout le chemin du fichier Wav, après sauvegarde c'est ok.

Chargement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TSetUp.bwavClick(Sender: TObject);
Var
Fname : String;
begin
 OpenDialog1.initialdir:=chappli+'Sons';
  if OpenDialog1.Execute then
  begin
 Fname := extractfilename(OpenDialog1.FileName); // Rien que le nom du fichier Wav
 // Fname := (OpenDialog1.FileName); // Tout le chemin du fichier
   EMessage.Text:=FName;
   end;
   end;

Lecture :

Code :

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

1
2
3
4
5
6
7
 
procedure TSetUp.btestClick(Sender: TObject);
begin
 
 sndPlaySound(PChar(EMessage.Text), SND_SYNC) ;
 
end;

Merci d'avance pour toutes infos.

@+,

Cincap

[Linkin]

Le chemin du fichier son est invalide à la réouverture.

Quand tu exécutes le OpenDialog, tu changes le répertoire de travail de l'application qui devient: chappli+'Sons'

Quand tu ouvres ton application le répertoire de travail est chappli (je suppose).

Tu peux changer de cette façon:

Code :

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

1
2
 
  sndPlaySound(PChar(chappli+'Sons\'+EMessage.Text), SND_SYNC) ;

[cincap]

@ Linkin, Bonjour, exact, j'avais oublié de rajouter le (\) dans mes essais.

Encore merci pour ton aide rapide.

Bonne journée,

@+,

Cincap