Problem von Dateityp bei SaveDialog

[thomas2009]

Hi

ich speichere mein Bild manschmal als jpg und mansch mal als jpeg

aber es ist egal was ich in Dialogfeld auswähle, das Bild wird immer als .jpeg gespeichert und nie als .jpg !!!

Delphi-Quellcode:

var
jpgtyp : String;
begin
Jpgtyp:='.jpeg';
saveDialog2.DefaultExt := '.jpeg';
saveDialog2.Filename := 'test' + saveDialog2.DefaultExt;
saveDialog2.Filter := 'JPEG (*.jpeg)|*.JPEG|JPG (*.jpg)|*.JPG';

if savedialog2.Execute then begin

  if SaveDialog2.Filter = 'JPG (*.jpg)|*.JPG' then begin Jpgtyp:='.jpg'; end;

...
end;

[Bernhard Geyer]

Dateiextension mit mehr als 3 Zeichen werden von Windows teilweise falsch/nicht korrekt behandelt. Evt. liegt es ja an der Länge von 4 Zeichen?

[Sir Rufo]

Zitat von Bernhard Geyer:

Dateiextension mit mehr als 3 Zeichen werden von Windows teilweise falsch/nicht korrekt behandelt. Evt. liegt es ja an der Länge von 4 Zeichen?

??? Dann würde ich Windows echt wegwerfen

Es liegt an Default-Extension

[haentschman]

Hallöle...

Zitat:

aber es ist egal was ich in Dialogfeld auswähle, das Bild wird immer als .jpeg gespeichert und nie als .jpg !!!

...wenn du deinen Quelltext aufmerksam liest solltest du selbst drauf kommen.
saveDialog2.DefaultExt := '.jpeg'; - du setzt DefaultExt auf jpeg.
saveDialog2.Filename := 'test' + saveDialog2.DefaultExt; - du setzt den Filenamen auf Test + DefaultExt.

Was erwartest du was dann auf der Platte landet ?

Das switchen des Filters hat auf den Dateinamen keine Auswirkung.

[thomas2009]

Das Problem ist mit Filterindex-Auswahl gelöst
also :

Delphi-Quellcode:

// if SaveDialog2.Filter = 'JPG (*.jpg)|*.JPG' then begin Jpgtyp:='.jpg'; end;
if SaveDialog2.Filterindex = 2 then begin Jpgtyp:='.jpg'; end;

Nun möchte ich dass,der Dateityp beim Dateinamen automatisch sich ändert
Das heißt, wenn ich den Dateityp unten ändere, soll oben auch statt test.jpeg, test.jpg geändert werden

Bis jetzt muss ich immer den Dateityp neben dem Dateiname ändern !
kennt jemand den Trick ?

[haentschman]

...was hälst du denn davon, den Dateinamen erst zu setzen wenn du den Save Dialog ausgeführt hast ?

[thomas2009]

Ich habe versucht mit dem Evenet On SaveDialog1TypeChange aber passiert nichts :

Delphi-Quellcode:

procedure TForm1.SaveDialog1TypeChange(Sender: TObject);
begin
If SaveDialog1.FilterIndex=1 then begin SaveDialog1.FileName:=SaveDialog1.FileName +'.jpeg'; end;
If SaveDialog1.FilterIndex=2 then begin SaveDialog1.FileName:=SaveDialog1.FileName +'.jpg'; end;
end;

[Sir Rufo]

Kleiner Tip am Rande:

Prüf doch mal mit dem Debugger mit welchem Index-Wert dieses Event aufgerufen wird