(Boîte de Dialogue enregistrer) Comment changer l'extension de fichier automatiquement sur le dossier de changement de filtre dans Vista/Win7?

Tout en affichant une boîte de dialogue enregistrer, je veux brancher l'utilisateur du type de filtre à changer et de changer l'extension de fichier automatiquement. (par exemple, comme MSPaint de l'opération "Enregistrer sous".)

Avec TSaveDialog et réglage UseLatestCommonDialogs := False,
Je peux gérer cela par le code suivant. (sans la dernière boîte de dialogue commune de soutien, bien sûr!)

procedure TForm1.SaveDialog1TypeChange(Sender: TObject);
var
  FName, Ext: string;
begin
  with TSaveDialog(Sender) do
  begin
    if DirectoryExists(FileName) then // FileName is Empty
      exit;
    case FilterIndex of
    1: Ext := '.png';
    2: Ext := '.bmp';
    3: Ext := '.jpg';
    end;
    FName := ChangeFileExt(ExtractFileName(FileName), Ext);
    SendMessage(Windows.GetParent(Handle), CDM_SETCONTROLTEXT, 1152, LongInt(PChar(FName)));
  end;
end;

Je veux soutenir à la fois XP et vista/7 avec Delphi 2007.

Dois-je utiliser TFileSaveDialog au lieu de TSaveDialog avec wrapper interne ?
(Et je dois lutter avec COM programmation à l'aide de IFileDialogControlEvents ?)

Ou puis-je réaliser cela avec TFileSaveDialog et c'est la norme que les propriétés ?
(Mon environnement de développement est encore sur la machine XP, donc je n'ai jamais essayé. désolé.)

Je pense que c'est très commun, mais je ne pouvais pas trouver n'importe quel échantillon de code à l'appui Vista/7...

OriginalL'auteur benok | 2010-01-27

5

Autant que je sache, TFileSaveDialog déclenche une exception sur XP. Il a besoin de Vista ou vers le haut.

Mise à jour: certains D2010 code pour TFileSaveDialog adapté à partir de votre gestionnaire d'événement....

(Je n'ai pas D2007 sur Vista; utilisation PWideChar au lieu de PChar)
```
procedure TForm1.FileSaveDialog1TypeChange(Sender: TObject);
var
  FName, Ext: string;
  pName: PChar;
begin
  with TFileSaveDialog(Sender) do
  begin
    if DirectoryExists(FileName) then // FileName is Empty
      exit;
    case FileTypeIndex of
    1: Ext := '.png';
    2: Ext := '.bmp';
    3: Ext := '.jpg';
    end;
    Dialog.GetFileName(pName);
    FName := ChangeFileExt(ExtractFileName(pName), Ext);
    Dialog.SetFileName(PChar(FName));
  end;
end;
```
Où la FileSaveDialog est:
```
object FileSaveDialog1: TFileSaveDialog
  FavoriteLinks = <>
  FileTypes = <
    item
      DisplayName = 'png files'
      FileMask = '*.png'
    end
    item
      DisplayName = 'bmp files'
      FileMask = '*.bmp'
    end
    item
      DisplayName = 'jpg files'
      FileMask = '*.jpg'
    end>
  Options = []
  OnTypeChange = FileSaveDialog1TypeChange
end
```
Merci! Mais j'ai l'habitude de créer ces boîtes de dialogue lors de l'exécution, afin que je puisse passer les deux TSaveDialog et TFileSaveDialog avec la version de l'OS de la vérifier.
Il fonctionne avec D2007. Je viens de changer PChar/string->PWideChar/WideString.(Peut être qu'il fonctionne sur D2009 ou tard, avec des auto de conversion de type.). Merci! p.s. J'ai essayé de changer de l'intérieur "*SaveDialog1*TypeChange", en utilisant comme "si le Parent.ClassName = 'TFileSaveDialogWrapper'".(Il est plus maniable que la commutation classes de boîte de dialogue.) Mais je ne pouvais pas hack wrapper, comme il est défini dans la mise en œuvre de l'article...

OriginalL'auteur François

Vous avez écrit que vous ne pouvait pas pirater le wrapper. J'utilise ce code pour mon XLSX/XLS/ODS exportation bibliothèque de changer l'extension du fichier sur XP et Vista+.

Un inconvénient: Class helpers ne peut pas accéder aux champs privés dans Delphi 2007, de sorte que ce code ne fonctionne que dans Delphi 2009+. Si vous voulez Delphi 2007 compatibilité, utilisez le même hack pour TOpenDialog comme je l'ai utilisé pour TFileDialogWrapper dans cet exemple.

{ interface }
//some hacking needed to change the file extension at type change,
//empty class is just fine...
TFileDialogWrapper = class(TObject)
private
{$HINTS OFF}
procedure AssignFileTypes;
procedure AssignOptions;
function GetFileName: TFileName;
function GetHandle: HWND;
procedure HandleShareViolation(Sender: TObject;
var Response: TFileDialogShareViolationResponse);
procedure OnFileOkEvent(Sender: TObject; var CanClose: Boolean);
procedure OnFolderChangeEvent(Sender: TObject);
procedure OnSelectionChangeEvent(Sender: TObject);
procedure OnTypeChangeEvent(Sender: TObject);
protected
FFileDialog: TCustomFileDialog;
{$HINTS ON}
end;
TOpenDialogHelper = class helper for TOpenDialog
public
function GetInternalWrapper: TFileDialogWrapper;
end;
{ implementation }
{ TOpenDialogHelper }
function TOpenDialogHelper.GetInternalWrapper: TFileDialogWrapper;
begin
Result := TFileDialogWrapper(Self.FInternalWrapper);
end;
{ TFileDialogWrapper }
procedure TFileDialogWrapper.AssignFileTypes;
begin
end;
procedure TFileDialogWrapper.AssignOptions;
begin
end;
function TFileDialogWrapper.GetFileName: TFileName;
begin
end;
function TFileDialogWrapper.GetHandle: HWND;
begin
end;
procedure TFileDialogWrapper.HandleShareViolation(Sender: TObject;
var Response: TFileDialogShareViolationResponse);
begin
end;
procedure TFileDialogWrapper.OnFileOkEvent(Sender: TObject;
var CanClose: Boolean);
begin
end;
procedure TFileDialogWrapper.OnFolderChangeEvent(Sender: TObject);
begin
end;
procedure TFileDialogWrapper.OnSelectionChangeEvent(Sender: TObject);
begin
end;
procedure TFileDialogWrapper.OnTypeChangeEvent(Sender: TObject);
begin
end;
//use this for OnTypeChane event of a "normal" TOpenDialog / TSaveDialog
procedure TForm1.DialogTypeChange(Sender: TObject);
var
xFN: WideString;
xExporter: TOCustomExporter;
xFileName: PWideChar;
xFD: TFileDialogWrapper;
xFilterIndex: UINT;
begin
if Sender is TOpenDialog then
with TOpenDialog(Sender) do begin
xFD := GetInternalWrapper;
if (xFD <> nil) and (xFD.FFileDialog <> nil)
then begin
//Vista file dialog
xFD.FFileDialog.Dialog.GetFileName(xFileName);
if xFileName = '' then
exit;
xFN := xFileName;
xFD.FFileDialog.Dialog.GetFileTypeIndex(xFilterIndex);
// DO WHATEVER YOU WANT WITH THE FILENAME HERE //
xFD.FFileDialog.Dialog.SetFileName(PWideChar(xFN));
end else begin
//Old dialog
xFN := ExtractFileName(FileName);
if xFN = '' then
exit;
// DO WHATEVER YOU WANT WITH THE FILENAME HERE //
{$HINTS OFF}
SendMessage(Windows.GetParent(Handle), CDM_SETCONTROLTEXT, 1152, LongInt(PWideChar(xFN)));
{$HINTS ON}
end;
end;
end;

MODIFIER: en fait, si vous définissez la DefaultExt propriété, Delphi/soins de Windows sur l'extension de fichier modifier pour vous. Dans ce cas, vous n'avez pas à faire quoi que ce soit dans le OnTypeChange événement.

En fait, je l'ai vérifié: il ne fonctionne qu'en Delphi XE+ à cause de boîtes de dialogue de l'unité de l'architecture.
Je vous remercie pour votre réponse. J'ai juste remarqué. Je ne suis pas en utilisant D2007 plus, je vais lire votre code. Merci.

OriginalL'auteur oxo

0

Cette fonctionnalité est implémentée dans Delphi, mais désactivé par défaut.

Afin de l'activer, juste à l'entrée de l'extension par défaut dans DefaultExt propriété.

OriginalL'auteur Jacek Krawczyk

Vous devez vous connecter pour publier un commentaire.