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

[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

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