SaveDialog und unzulässiger Dateiname

[stahli]

Hi alle,

wenn ich dem SaveDialog einen unzulässigen FileName zuweise wird das Öffnen ohne Fehlernachricht ignoriert...

Delphi-Quellcode:

  SaveDialog.Title := '>unzulässig.txt';
  if SaveDialog.Execute then
  begin
    ... passiert nix ...
  end
  else 
    ... will ich nicht ...;

Als else-Anweisung will ich das Problem nicht behandeln, da dies auch auftritt, wenn der Anwender das Speichern abbricht.

Wie kann ich testen, ob ein Filename zulässig ist?

stahli

[DeddyH]

SaveDialog.Title <> SaveDialog.FileName ;)

[edit] Ah, jetzt habe ich erkannt, was Du meinst. Bei mir wird nach der Zuweisung eines ungültigen Dateinamen der Dialog gar nicht erst angezeigt. [/edit]

[stahli]

Genau, und dann noch ohne Fehlernachricht.
(Könnte man sicher sogar als Bug bezeichnen.)

Der Nutzer hat den Eindruck, dass die Datei gespeichert wurde.

Jetzt möchte ich die gültigkeit zuvor zuverlässig prüfen und zwar möglichst ohne eigene Funktion oder try-Block.

stahli

[himitsu]

hmm, dann wirst du wohl selber prüfen müssen,
aber wie kommt den ein fehlerhafter Dateiname dahin?
(wo kommt der her ... vielleicht kann man den ja schon vor entstehen verhindern.)

nja, das geht auch

Datei/Pfad muß existieren:
Open.Options + [ofPathMustExist, ofFileMustExist]

Pfad muß existieren und es wird geprüft ob gespeichert werden kann:
Save.Options + [ofPathMustExist] - [ofNoTestFileCreate]


wenn ein falscher Name drin ist, dann kommt einer Fehlernachricht
und der Dialog wird nicht geschlossen.


aber wieso bekommt der Benutzer nicht's mit?
wenn der Dateinam fehlerhaft ist, dann sollte beim Speichern der Datei ein Fehler auftreten :!:

[stahli]

... hast Du selbst schon gestrichen ;-)

Der Nutzer kann in meinem Programm einen beliebigen Titel eingeben.

Beim Speichern wird als FileName dieser Titel als Vorschlag engesetzt.

Wenn FileName jedoch ein unzulässiger Dateiname wäre möchte ich ihn dc enen Leersstring ersetzen.

Delphi-Quellcode:

if not FileNameValidate(SaveDialog.FileName) then
  SaveDialog.FileName := '';

SaveDialog hat ja die Option ofNoValidate, die genau das prüft - allerdings nicht schon beim Start des Dialogs.
Ich habe nicht herausgefunden, welche Funktion dafür genutzt wird.

Selber schreiben möchte ich gern vermeiden...

stahli

[DeddyH]

Naja, soviel Arbeit ist das aber auch nicht. Eine schnell zusammengeproggte Version:

Delphi-Quellcode:

function ValidFileName(const sFileName: TFileName): Boolean;
//ohne Anspruch auf Vollzähligkeit, habe auf die Schnelle keine Liste gefunden
const BadChars: set of char = ['*','?', //Wildcards
                               '<','>', //Dateiumleitung
                               '|',     //Pipezeichen
                               '/','\'  //PathDelimiter
                               ];
var i: integer;
begin
  Result := Length(trim(sFileName)) > 0;
  if Result then
    for i := 1 to Length(sFileName) do
      if sFileName[i] in BadChars then
        begin
          Result := false;
          break;
        end;
end;

[himitsu]

@DeddyH: nicht ganz :tongue:
ich kann dir genug Dateinamen geben, welche deine Funktion als korrekt einstufen würde :angel2:

Code-Library -> Dateien / Laufwerke -> Dateiname auf Gültigkeit prüfen


Ja und ich hab oben meine Anwort nochmal revidiert ... ein fehlerhafter Dateiname kommt so zwar noch in den Dialog, aber der Dialog kann nicht mir soeinem Namen erfolgreich geschlossen werden :angel

[DeddyH]

Deshalb ja der Kommentar in der 2. Codezeile ;)

[stahli]

@himitsu:
Das mit den Optionen funktioniert nicht. Der Dialog wird bei mir nicht gestartet...

@all:
Danke Euch!
Ich nutze jetzt IsFileName von Bigg.
Aber EIGENTLICH sollte es doch eine Standardfunktion dafür geben. Doch Egal.

stahli

[DeddyH]

Zitat:

Zitat von stahli

Aber EIGENTLICH sollte es doch eine Standardfunktion dafür geben.

Das sehe ich genauso. Vielleicht bin ich aber auch nur zu blöd, um richtig zu suchen :mrgreen:

[stahli]

... zumindest nicht blöder als ich :mrgreen:

[himitsu]

Nein, eine Standardfunktion gibt es nich ... oder warum haben sich hier wohl soviele schon an einer eigenen Funktion versucht? :zwinker:

Außerdem kann es keine allgemeineFunktion geben, da die möglichen Dateinamen vom Betriebssystem und dem verwendeten Dateisystem abhängen.


und ich weiß nich warum bei dir der Dialog nicht angezeigt wird :gruebel:
bei mir wird hier jednfalls beide Male ein dialog geöffnet und nur dem Ersten ist der Dateiname egal.
(einfach 'ne Form mit einem Button und 'nem SaveDialog drauf)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveDialog1.Title    := 'Titel > unzulässig.txt';
  SaveDialog1.FileName := '>unzulässig.txt';
  if SaveDialog1.Execute then
    MessageBox(0, PChar(SaveDialog1.FileName), 'OK', MB_OK)
  else MessageBox(0, '-', 'Nein', MB_OK);

  SaveDialog1.Title    := 'Titel > unzulässig.txt';
  SaveDialog1.FileName := '>unzulässig.txt';
  SaveDialog1.Options  := SaveDialog1.Options + [ofPathMustExist] - [ofNoTestFileCreate];
  if SaveDialog1.Execute then
    MessageBox(0, PChar(SaveDialog1.FileName), 'OK', MB_OK)
  else MessageBox(0, '-', 'Nein', MB_OK);
end;

[stahli]

Na ja, irgendwo muss das entsprechende Betriebssystem ja selbst prüfen, ob ein Dateiname zulässig ist.
Dann könnte eine Prozedur diese Prüfung ja evtl. nutzen - dachte ich so.
Wenn jeder sein eigenes Süppchen kocht, ist das sicher nicht der optimale Weg (da jeder dabei etwas anderes vergisst oder nicht berücksichtigt).

Warum das bei meinem Save-Dialog nicht wie bei Dir klappt - keine Ahnung (ich nutze Vista!?).

Aber egal, mein Problem ist erst mal geklärt...


Danke
stahli

[Bernhard Geyer]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von stahli

Aber EIGENTLICH sollte es doch eine Standardfunktion dafür geben.

Das sehe ich genauso. Vielleicht bin ich aber auch nur zu blöd, um richtig zu suchen :mrgreen:

Glaub ich fast nicht. Je nach verwendeten Dateisystem gibt es andere Einschränkungen und der Windows Explorer (welcher auch im Open/Save-Dialog verwendet wird), hat wieder eigene Regeln und verbietet Dateinamen die im Dateisystem erlaub wären (z.B. Namen die nur aus Extension bestehen wie sie z.B. SVN/CVS verwendet).

[himitsu]

und Windows selber prüf nichts nach ... die von den Programmen übergebenen Dateinamen werden einfach versucht aufzulösen (was windows und die Dateisystemtreiber für ihre Anteile am Dateinamen getrennt machen) und wenn da in Fehlerauftritt, dann geht's einfach nicht und wenn's geht, dann is gut.

[himitsu]

so, Anhand des MSDN hab ich einfach mal die möglichen Rückgabewerte der Funktionen mit einfließen lassen.


bei einem "ungültigem" Dateinamen bricht OpenDialog/SaveDialog bzw. die verwendete WinAPI GetOpenFileName/GetSaveFileName ab und trägt den Fehler so ein, daß man ihn per CommDlgExtendedError abrufen kann.
In diesem Fall nennt sich der Fehler FNERR_INVALIDFILENAME.

Delphi-Quellcode:

// Alles auswerten
Uses Dialogs, CommDlg;

If OpenDialog1.Execute Then Begin
  If ofAllowMultiSelect in OpenDialog1.Options Then Begin
    Application.MessageBox(PChar(OpenDialog1.Files.Text), '');
  End Else Begin
    Application.MessageBox(PChar(OpenDialog1.FileName), '');
  End;
End Else
  Case CommDlgExtendedError of
    CDERR_STRUCTSIZE:      Raise Exception.Create('OpenDialog - CDERR_STRUCTSIZE');
    CDERR_INITIALIZATION:  Raise Exception.Create('OpenDialog - CDERR_INITIALIZATION');
    CDERR_NOTEMPLATE:      Raise Exception.Create('OpenDialog - CDERR_NOTEMPLATE');
    CDERR_NOHINSTANCE:     Raise Exception.Create('OpenDialog - CDERR_NOHINSTANCE');
    CDERR_LOADRESFAILURE:  Raise Exception.Create('OpenDialog - CDERR_LOADRESFAILURE');
    CDERR_FINDRESFAILURE:  Raise Exception.Create('OpenDialog - CDERR_FINDRESFAILURE');
    CDERR_LOADSTRFAILURE:  Raise Exception.Create('OpenDialog - CDERR_LOADSTRFAILURE');
    CDERR_LOCKRESFAILURE:  Raise Exception.Create('OpenDialog - CDERR_LOCKRESFAILURE');
    CDERR_MEMALLOCFAILURE: Raise Exception.Create('OpenDialog - CDERR_MEMALLOCFAILURE');
    CDERR_MEMLOCKFAILURE:  Raise Exception.Create('OpenDialog - CDERR_MEMLOCKFAILURE');
    CDERR_NOHOOK:          Raise Exception.Create('OpenDialog - CDERR_NOHOOK');
    FNERR_SUBCLASSFAILURE: Raise Exception.Create('OpenDialog - FNERR_SUBCLASSFAILURE');
    FNERR_INVALIDFILENAME: Raise Exception.Create('OpenDialog - FNERR_INVALIDFILENAME');
    FNERR_BUFFERTOOSMALL:  Raise Exception.Create('OpenDialog - FNERR_BUFFERTOOSMALL');
    CDERR_DIALOGFAILURE:   Raise Exception.Create('OpenDialog - CDERR_DIALOGFAILURE');
    Else Application.MessageBox('abgebrochen', '');
  End;

Delphi-Quellcode:

// in Kurz
Uses Dialogs, CommDlg;
Var  E: LongWord;

If OpenDialog1.Execute Then Begin
  //Application.MessageBox(PChar(OpenDialog1.Files.Text), '');
  Application.MessageBox(PChar(OpenDialog1.FileName), '');
End Else Begin
  E := CommDlgExtendedError;
  Case E of
    CDERR_GENERALCODES:    Application.MessageBox('Abgebrochen.', '');
    FNERR_INVALIDFILENAME: Application.MessageBox('Ungültiger Dateiname übergeben.', '');
    Else Raise Exception.Create('OpenDialog konnte nicht erstellt werden (FehlerCode $'
      + IntToHex(E, 4) + ').');
  End;
End;

Delphi-Quellcode:

// WinAPI in Kurz
Uses CommDlg;
Var  OFN: TOpenFilename;
     E: LongWord;

If GetOpenFileName(OFN) Then Begin
  MessageBox(0, OFN.lpstrFile, '');
End Else Begin
  E := CommDlgExtendedError;
  Case E of
    CDERR_GENERALCODES:    MessageBox(0, 'Abgebrochen.', '', MB_OK);
    FNERR_INVALIDFILENAME: MessageBox(0, 'Ungültiger Dateiname übergeben.', '', MB_OK);
    Else Raise Exception.Create(0, 'OpenDialog konnte nicht erstellt werden (FehlerCode $'
      + IntToHex(E, 4) + ').', MB_OK);
  End;
End;

> SaveDialog/GetSaveFileName haben die selben Rückgabewerte

[stahli]

Danke, aber das wäre gar nicht nötig gewesen :tongue:

[himitsu]

ach ... hab das vorhin auch in mein erstes Programm reingebastelt ... also Eigennutz :roll: