Discussion :

[cincap]

Bonjour à toutes et à tous,

Je dois charger un fichier *.wav et afficher uniquement le nom, puis le sauver dans un fichier *.ini afin de le restituer.

En mode test, le play fonctionne puisque le TopenDialog garde son chemin.

Le problème est qu'à la réouverture de l'application si le Tedit affiche bien rien le nom du fichier (grace au fichier *.ini), le test play ne fonctionne pas car forcément le chemin n'existe plus et n'a pas pu être sauvé avec ma méthode.

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
 
  if not OpenDialog1.Execute then exit else
  begin
 Fname := extractfilename(OpenDialog1.FileName);
   //Fname := (OpenDialog1.FileName);
   EMessage.Text:=FName; 
   end;
   end;

Fichier écriture *.ini :

Code :

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

1
2
 
FichierIni.WriteString('SETUP','VocalAlertFile',EMessage.Text);

Fichier lecture *.ini :

Code :

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

1
2
 
EMessage.Text := FichierIni.ReadString('SETUP','VocalAlertFile','');

Comment faire en sorte que d'afficher le nom du fichier et permettre de le lire lors d'une réouverture de l'application sans utiliser deux Tedit.

Merci d'avance,

@+,

Cincap

[Whiler]

Pourquoi pas une propriété...

Code :

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

1
2
3
4
    fWav: string;
    function getWav: string;
  public
    property WaveFilename: string read getWav write fWav;

Code :

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

1
2
3
4
function TfrmMain.getWav: string;
begin
  Result := ExtractFileName(fWav)
end;

Pour le stockage dans ini.. tu tapes sur fWav...
pour l'affichage dans l'edit, tu tapes sur WaveFilename...

[cincap]

@ Whiler, merci de ta réponse rapide, par contre je ne vois pas ou placer ton code dans ma procedure de chargement du fichier *.wav et de sa sauvegarde dans le fichier *.ini qui comporte d'autres renseignements.

J'ai testé d'une manière peu élégante avec deux Tedit, c'est ok mais......

@+,

Cincap

[Whiler]

TSetUp c'est quoi ? ta fiche, une unité dédiée ?

[Whiler]

Dans le genre...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
type
  TSetUp = class(TForm)
    ...
  private
    ...
    fWav: string;
    function getWav: string;
  public
    ...
    property WaveFilename: string read getWav write fWav;
  end;

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TSetUp.bwavClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    WaveFilename := OpenDialog1.FileName;
    EMessage.Text:= WaveFilename; 
  end;
end;

Fichier écriture *.ini :

Code :

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

1
2
 
FichierIni.WriteString('SETUP','VocalAlertFile',fWav);

Fichier lecture *.ini :

Code :

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

1
2
3
 
WaveFilename := FichierIni.ReadString('SETUP','VocalAlertFile',''); 
EMessage.Text := WaveFilename;

[cincap]

@ Whiler,

TSetUp c'est quoi ? ta fiche, une unité dédiée ?

Le nom de ma fiche.

En jouant avec la propriété Filename du TopenDialog, j'ai l'affichage convenu et la sauvegarde dans le fichier *.ini avec le chemin complet du fichier.

Je cloture donc ce topic.

Merci à toi,

@+,

Cincap

[Whiler]

Si ton OpenDialog1 ne sert que pour ouvrir ce fichier... c'est le plus simple...

[cincap]

@ Whiler,

Si ton OpenDialog1 ne sert que pour ouvrir ce fichier... c'est le plus simple...

En effet, il ne sert qu'à cela si on veut changer le sons de base.

Sinon je pouvais aussi relire le fichier depuis son chemin et dossier, comme ceci :

Code :

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

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

Par contre, j'ai quand même pris le temps de tester ta dernière suggestion et sur D6, j'ai une erreur sur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
type
  TSetUp = class(TForm)
    ...
  private
    ...
    fWav: string;
    function getWav: string; //ICI
  public
    ...
    property WaveFilename: string read getWav write fWav;
  end;

A quoi c'est dû ?

@+,

Cincap

[Whiler]

Tu as bien ça dans l'implémentation ?

Code :

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

1
2
3
4
function TSetUp.getWav: string;
begin
  Result := ExtractFileName(fWav)
end;

Quelle est l'erreur ?

[cincap]

Bonjour à toutes et à tous,

@ Whiler, avec tous mes essais, il existait dans ma source un meli melo, maintenant tout est ok, ta sugestion est élégante et je la retiens.

Grand merci à toi,

@+,

Cincap