[TSaveDialog] Problèmes avec type de fichier [FAQ]

**Pedro** · 13/12/2006, 23h06

Salut à tous

Dans mon appli, j'ai une TSaveDialog (intégrée à une TAction).
Sur cette dialog, j'ai mis plusieurs types:

Code X :

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

1
2
3
4
Fichiers TopoPR textes (*.prdt)
Fichiers TopoPR binaires (*.prdb)
Tous les fichiers (*.*)

avec le filtre qui va bien

Seulement voila: si je fais enregistrer sous, mon appli lance cette dialog. Elle est par défaut à *.prdt
Si je change à *.prdb, je voudrais que ça modifie le nom du fichier. par exemple, s'il y a "Test.prdt", ça se change en "Test.prdb".

Autre chose, dans cette même boîte, Si je tape juste "Test", je voudrais qu'il m'ajoute le .prdb ou .prdb automatiquement que je n'ai pas à le faire moi-même... Bon ça à la limite, c'est pas trop grave, je sais comment faire mais bon...

Il me semblait que c'étaient des comportements par défaut mais visiblement, ce n'est pas le cas

Evidemment, j'ai essayé de passer par les évènements de la TSaveDialog. Par exemple:

Code :

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

1
2
3
4
5
 
procedure TMain.FileSaveAsSaveDialogTypeChange(Sender: TObject);
begin
  FileSaveAs.Dialog.FileName := 'Test';
end;

Mais ça ne fait rien du tout. L'évènement est bien déclenché mais la modification de FileName ne change rien

Me dites pas qu'il faut récupérer le TEdit avec son handle et tout le bazar!

Bref si quelqu'un sait comment faire tout ceci...

Merci d'avance

Note: je suis sous Turbo Explorer et Win Xp Pro SP2.

**JLOUIS** · 14/12/2006, 12h49

Salut,
Essaye ce code pour voir ...

Code :

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

1
2
3
4
5
6
7
8
 
Procedure TForm1.Button1Click(Sender: TObject);
const
  cTabExt: array[0..2]of PChar = ('txt','asc','dat');
begin
  if SaveDialog1.Execute then
    label1.caption := ChangeFileExt(SaveDialog1.FileName,cTabExt[SaveDialog1filterIndex-1]);
end;

**Pedro** · 14/12/2006, 13h16

Merci de ta réponse JLOUIS

Mais je voudrais que cette action se fasse pendant que la boite de dialogue est affichée pas après

**LadyWasky** · 14/12/2006, 13h35

Envoyé par Pedro

Merci de ta réponse JLOUIS

Mais je voudrais que cette action se fasse pendant que la boite de dialogue est affichée pas après

J'y réfléchi

Au passage, j'aime bien ton bonnet de père Noël

**LadyWasky** · 14/12/2006, 13h45

Déjà, tu as une propriété DefaultExt, pour la classe TSaveDialog

Dedans, tu mets prdb

**Pedro** · 14/12/2006, 13h49

Envoyé par waskol

Déjà, tu as une propriété DefaultExt, pour la classe TSaveDialog

Dedans, tu mets prdb

Non cette option sert juste à déterminer si le type par défaut à été changé ou non

Donc ça ne convient pas

Envoyé par waskol

Au passage, j'aime bien ton bonnet de père Noël

Merci

**Philippe Gormand** · 14/12/2006, 13h58

Salut Pedro.

C'est vrai, il est bien ton bonet de père noël.

Pour ton problème, à part modifier le source du composant je ne vois pas, mais...
Ce que j'emplois comme technique, c'est de changer l'extension du fichier après fermeture de la boite de dialogue.
-1- On peut connaitre l'indexe du filtre sélectionné : Propriété "FilterIndex".
-2- Je force l'extension du nom du fichier avec la fonction ChangeFileExt.

Si cela peut t'aider

A+

**Pedro** · 14/12/2006, 15h18

Envoyé par Philippe Gormand

Salut Pedro.

C'est vrai, il est bien ton bonet de père noël.

Pour ton problème, à part modifier le source du composant je ne vois pas, mais...
Ce que j'emplois comme technique, c'est de changer l'extension du fichier après fermeture de la boite de dialogue.
-1- On peut connaitre l'indexe du filtre sélectionné : Propriété "FilterIndex".
-2- Je force l'extension du nom du fichier avec la fonction ChangeFileExt.

Si cela peut t'aider

A+

Merci Philippe mais à vrai dire c'est plutôt l'autre problème qui m'intéresse

En fait, je savais et je comptais déjà faire comme ça. Je voulais juste savoir si je n'étais pas en train de réinventer la roue

Mais pour l'autre histoire, le problème reste entier

**LadyWasky** · 14/12/2006, 16h17

Allez, hop, rien ne résiste au maître waskol

A mettre dans le OnTypeChange :

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
uses CommDlg,Dlgs,windows,dialogs,etc...; 
 
procedure TForm1.SaveDialog1TypeChange(Sender: TObject);
var NomFic,NewFic,NewExt,s:string;
    AHandle:HWND;
     buf:array [0..MAX_PATH] of char;
     MaSaveDialog:TSaveDialog;
     HandleParent:THandle;
begin
  MaSaveDialog := (Sender as TSaveDialog);
  //obtenir le Handle du parent de la boite de dialogue
  HandleParent:= GetParent(MaSaveDialog.Handle);
  // obtenir le nom de fichier entré par l'utilisateur
  SendMessage(H, CDM_GETSPEC, MAX_PATH,integer(@buf));
  S := buf;
  if ExtractFileExt(s)='' then s:=s+'.prdb';
  NomFic:=s;
  NewFic:=NomFic;
 
  case (MaSaveDialog.FilterIndex div 2) of
  //"div 2" parce que la liste des filtres va par tranche de 2
  0:NewExt:='.prdt';
  1:NewExt:='.prdb';
  end;
  if NewExt<>''
  then NewFic:=ChangeFileExt(NomFic,NewExt);
// Et hop, changement du nom de fichier ;)
  SendMessage(H,CDM_SETCONTROLTEXT,edt1,integer(PChar(NewFic)));
end;

Je te laisse rédiger la QR qui va avec pour la peine

**Pedro** · 14/12/2006, 16h42

Envoyé par waskol

Allez, hop, rien ne résiste au modeste waskol

Ah tu m'en diras tant

Merci mon gars

J'essaie ce soir

**Philippe Gormand** · 14/12/2006, 16h43

Bien vu Waskol.

J'aurais du chercher un peu plus.

merci pour le tuyau.

**LadyWasky** · 14/12/2006, 16h53

Envoyé par Pedro

Ah tu m'en diras tant

Merci mon gars

J'essaie ce soir

J'ai hésité à mettre ta version, mais faut bien se congratuler de temps en temps (surtout que ça ne m'arrive pas souvent) : y'a pas de mal a se faire du bien

**Pedro** · 14/12/2006, 19h06

C'est bon merci waskol ça marche impec

Voici le code que j'ai utilisé qui modifie un peu le code de notre waskol international mais néanmoins étourdi

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
 
var NomFich: string;
    buf: array [0..MAX_PATH] of char;
    MaSaveDialog: TSaveDialog;
    HandleParent: THandle;
begin
  MaSaveDialog := (Sender as TSaveDialog);
  //obtenir le Handle du parent de la boite de dialogue
  HandleParent:= GetParent(MaSaveDialog.Handle);
  // obtenir le nom de fichier entré par l'utilisateur
  SendMessage(HandleParent, CDM_GETSPEC, MAX_PATH, integer(@buf));
  NomFich := buf;
 
  case (MaSaveDialog.FilterIndex div 2) of
  //"div 2" parce que la liste des filtres va par tranche de 2
    0: NomFich := ChangeFileExt(NomFich, '.prdt');
    1: NomFich := ChangeFileExt(NomFich, '.prdb');
  end;
// Et hop, changement du nom de fichier ;)
  SendMessage(HandleParent, CDM_SETCONTROLTEXT, edt1, integer(PChar(NomFich)));
end;

PS: c'est donc bien ce que je pensais: cette fonction nécessite de récupérer l'Edit par son identifiant et Handle... C'est vraiment dommage

Merci en tout cas

**LadyWasky** · 14/12/2006, 20h01

Envoyé par Pedro

C'est bon merci waskol ça marche impec

Voici le code que j'ai utilisé qui modifie un peu le code de notre waskol international mais néanmoins étourdi

Traitre !!!

**edam** · 14/12/2006, 21h53

et si en fait un peut de modif avec ce code en remplassant un peut le case

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
Function  GetFiltre(s:string;t:integer):string;
var  i,j:integer;
begin
     result:='';j:=0;
     i:=0;
     t:=(t-1)*2+1;
     while (j<Length(s)) and (i<>t) do
       begin
         inc(j);
         if s[j]='|' then inc(i);
       end;
     inc(j);
     while (j<=Length(s)) and (s[j]<>'|') do
       begin
        result:=result+s[j];
        inc(j);
       end;
end;
procedure TForm1.SaveDialog1TypeChange(Sender: TObject);
begin
     ShowMessage(GetFiltre(SaveDialog1.Filter,SaveDialog1.FilterIndex));
 
end;

[TSaveDialog] Problèmes avec type de fichier [FAQ]

Delphi

Discussions similaires

Partager

Partager