Wie konnte ich by SaveDialog die richtige Component verwende

[thomas2009]

Hallo

ich verwende mehrere Komponenten wie von ImagFileLib, GraphicEx, ...
Ich möchte die richtige Komponente verwenden
versucht habe ich mit dieser Idee :

Delphi-Quellcode:

 saveDialog1.Filter := 'GIF Image (*.gif)|*.gif|TIF Image (*.tif)|*.tif';
   if savedialog1.Execute then
   begin
     case savedialog1.filterindex of
     1 : in diesem Fall soll mein Programm z.B. ImageFileLib verwenden
    // also hier muss ich den Code richtig eingeben
     2 : und hier GraphicEX
     end;
   end;

[mkinzler]

Per Endung, so macht es auch TImage

[thomas2009]

Zitat von mkinzler:

Per Endung, so macht es auch TImage

Kannst mit das mit einem Beispiel erklären ?

[mkinzler]

Je nach Endung, wird der Nachfahre Erzeugt (.gif->TGifImage, .jpg->JpegImage)

[thomas2009]

Was wäre, wenn ich 2 Komponenten in USES habe, die beide jpeg erzeugen können
wie z.B.
GraphicEx : kann .jpeg erstellen
ImageFileLib : kann auch .jpeg erzeugen

Was soll mein Programm tun, wenn ich die Image als .jpeg speichern möchte ?
Muss es das Format von GraphicEx oder von ImageFileLib ? oder jenach dem, wie sie in USES stehen ?



___________________

[lbccaleb]

Dann kannst du nur direkt auf die Komponenten zugreifen, und die Dateien (Bilder) über die Komponente erzeugen und speichern!
Wenn du aber nur zb. eine Gif Komponente verwenden möchtest, die aber gleichzeitig auch in der GraphicEx enthalten ist, kannst du in der GraphicEx.pas die erweiterung ".gif" ausklammern, so wird diese nicht mehr durch die GraphicEx geladen, und du kannst Sie mit einer anderen Komponente weitervearbeiten!

[sx2008]

Delphi-Quellcode:

saveDialog1.Filter := 'GIF Image (*.gif)|*.gif|TIF Image (*.tif)|*.tif';
if savedialog1.Execute then
begin
  case StrIndex(ExtractFileExt(savedialog1.Filename), ['.GIF', '.TIF']) of
    0 : // Gif
    
    1 : // Tif
  else
    raise Exception.Create('Bildformat wird nicht unterstützt');
  end;
end;

Mit ExtractFileExt holst du die Erweiterung (inklusive dem Punkt) aus einem Dateinamen.
StrIndex() ist wohl nicht in deiner VCL enthalten.
Diese Funktion gibt es auch unter dem Namen CaseStr() oder CaseString().
Kopiert aus der JCL:

Delphi-Quellcode:

function StrIndex(const S: string; const List: array of string): Integer;
var
  I: Integer;
begin
  Result := -1;
  for I := Low(List) to High(List) do
  begin
    {$IFDEF CLR}
    if SameText(S, List[I]) then
    {$ELSE}
    if AnsiSameText(S, List[I]) then
    {$ENDIF CLR}
    begin
      Result := I;
      Break;
    end;
  end;
end;

[thomas2009]

Die Sachen, die mir nicht klar sind, hast weg gelassen ; )

Delphi-Quellcode:

    0 : // Gif
   
    1 : // Tif

Das war meine Frage : (


___

[uligerhardt]

Zitat von thomas2009:

Was wäre, wenn ich 2 Komponenten in USES habe, die beide jpeg erzeugen können
wie z.B.
GraphicEx : kann .jpeg erstellen
ImageFileLib : kann auch .jpeg erzeugen

Was soll mein Programm tun, wenn ich die Image als .jpeg speichern möchte ?
Muss es das Format von GraphicEx oder von ImageFileLib ? oder jenach dem, wie sie in USES stehen ?

Ich nehme an, die Unit, welche als letztes RegisterFileFormat für 'jpeg' aufruft, gewinnt. Welche das ist, dürfte, wie du schon vermutest, durch die Reihenfolge des "Usens" (Ist das ein Wort? ) bestimmt sein.

HTH,
Uli.

[thomas2009]

Zitat von lbccaleb:

... kannst du in der GraphicEx.pas die erweiterung ".gif" ausklammern, so wird diese nicht mehr durch die GraphicEx geladen ...

Keine schlechte Idee. Aber lieber nicht : (

Nur wenn keine andere Lösung gibt, dann ja

Immer wenn ich meine Image mit saveDialog speichre, dann wird die Komponent GraphicEx verwendet !

Wenn ich aber meine Image ohne SaveDialog speichre dann geht :

Delphi-Quellcode:

...
myjpeg.SaveToFile(ExtractFilePath(Application.ExeName)+'myjpeg.jpeg');