Herausfinden ob eine JPG oder eine BMP-Datei in TImage liegt

[mlspider]

Wie der Titel schon mitteilt, möchte ich in einem Label anzeigen lassen, ob es sich bei der in einem Timage geladene Datei, um eine BMP-Datei oder um eine JPG-Datei handelt.

Übrigens wäre auch die Farbtiefe sehr interessant.

[Neutral General]

Die Farbtiefe kannst du glaube ich mit TPicture.Bitmap.Pixelformat herausfinden...

Delphi-Quellcode:

TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom);

PS: Falls das das richtige ist ... hab nicht soo viel Ahnung da..

Gruß
Neutral General

[Khabarakh]

Bei JPEGs ist Picture.Graphic ein TJPEGImage.

[mlspider]

Und wie kann ich mir die Extension im Label anzeigen lassen?

[Khabarakh]

Kannst du die Extension nicht beim Laden des Bildes speichern? Denn wenn du weißt, dass Graphic ein TJPEGImage ist, kannst du immer noch nicht zwischen .jpg und .jpeg unterscheiden.

[Neutral General]

Delphi-Quellcode:

function GetPictureFormat(Pic: TPicture): String;
begin
 Result := Pic.Graphic.ClassName;
end;

Das ist schonmal was :)

Wenn du den Dateinamen hast dann kannst du auch einfach

Delphi-Quellcode:

ExtractFileExt(Dateiname)

benutzen !

Ansonsten kannst du die Funktion oben abändern:

Delphi-Quellcode:

function GetPictureFormat(Pic: TPicture): String;
begin
 if Pic.Graphic.Classname = 'TBitmap' then Result := '.bmp'
 else
 if Pic.Graphic.Classname = 'TJPEGImage' then Result := '.jpeg'
 else Result := 'Unknown format!';
end;

Gruß
Neutral General

[mlspider]

Ja klar. Auf ExtractFileExt bin ich einfach nicht gekommen. Danke.

[Hawkeye219]

Eine Möglichkeit wäre noch, die Funktion GraphicExtension aus der Unit Graphics zu benutzen:

Delphi-Quellcode:

function GetPictureExtension (aImage: TPicture): string;
begin
  with aImage do
    if Assigned(Graphic) then
      Result := GraphicExtension(TGraphicClass(Graphic.ClassType))
    else
      Result := '(empty)';
end;

Das von Khabarakh angesprochene Problem (Unterscheidung '.jpg' und '.jpeg') läßt sich damit allerdings nicht lösen.

Gruß Hawkeye

[mlspider]

Gäbe es denn eine weitere Möglichkeit von JPG und JPEG zu unterscheiden?

[Neutral General]

Mit ExtractFileExt geht das doch super.. Wenn die Dateiendung .jpeg ist dann bekommst du '.jpeg' zurück.. wenns .jpg ist dann '.jpeg'