SavePictureDialog - Dateityp wird nicht gesetzt

[Pytroxis]

Guten Abend liebe Com.,

Ich habe leider ein kleines Problem und zwar möchte ich ein Bild abspeichern, dies versuche ich natürlich über die Funktion

Code:

SavePictureDialog

erreichen, dass speichern, funktioniert auch wunderbar, allerdings wird der Dateityp nicht gesetzt.
Wenn ich bspw. als Dateityp ".png" wähle, wird es lediglich als "Datei" abgespeichert, dies kann ich nur umgehen, wenn ich direkt bei dem Filename ".png" anhänge.

Es gibt doch sicherlich eine Lösung für dieses Problem oder? Denn momentan bringt der "Dialog" mit dem Datentyp auswählen einfach nichts.



Vielen Dank im Voraus!

[DeddyH]

Du könntest z.B. die DefaultExt des Dialogs setzen oder je nach Filterindex sicherstellen, dass die korrekte Endung verwendet wird (ChangeFileExt).

[Pytroxis]

Das mit FilterIndex werde ich später mal Probieren, danke schon einmal!
Kannst du mir das aber vielleicht mit ChangeFileExt im Zusammenhang mit Dialogs erklären?
Steige da leider nicht so ganz durch, wie ich das machen soll

Allerdings habe ich jetzt ein weiteres Problem:
Ich habe ein SaveDialog und OpenDialog erstellt, soweit ganz gut, dass Problem ist, dass ich einen eigenen Dateityp nutze (eingetragen als Filter), allerdings finde ich keine Dateien in den Dialogen, obwohl diese den richtigen Dateityp besitzen.

[TurboMagic]

Kannst du mal deinen Filter hier zeigen?
Vielleicht stimmt dessen Syntax nicht?

[Andreas13]

Hi Pytroxis,

versuch es mal mit:

Delphi-Quellcode:

CONST
  Extension = 'Mpic';  // MyPicture

With SavePictureDialog1 Do 
Begin
  …
  Filter    := 'MeineBildDateien (*.' + Extension + ')|*.' + Extension;
  FileName  := 'MeineBildDateien  *';
  DefaultExt:= Extension;

  …
End;

Gruß

Andreas

[peterbelow]

Zitat von Andreas13:

Hi Pytroxis,

versuch es mal mit:

Delphi-Quellcode:

CONST
  Extension = 'Mpic';  // MyPicture

With SavePictureDialog1 Do 
Begin
  …
  Filter    := 'MeineBildDateien (*.' + Extension + ')|*.' + Extension;
  FileName  := 'MeineBildDateien  *';
  DefaultExt:= Extension;

  …
End;

Gruß

Andreas

Lass den Filename leer, dann sollte der Dialog auch die zu dem gewählten Filter passenden Dateien anzeigen. Wenn Du direkt auf ein bestimmtes Verzeichnis wechseln willst, setze die InitialDir-Eigenschaft und lass Filename leer. Wenn Du direkt auf Dateien mit bestimmten Namensteilen filtern willst mußt Du das so machen:

Filename := 'MeineBildDateien*.'+Extension;

In deinem Fall sucht der Dialog nur nach Dateien ohne Extension.

[Pytroxis]

Zitat von TurboMagic:

Kannst du mal deinen Filter hier zeigen?
Vielleicht stimmt dessen Syntax nicht?

Daran lag es tatsächlich.

Habe es jetzt über den FilterIndex gelöst.
Vielen Dank für eure Hilfe!