Nicht bekannte Bilddatei in Timage laden

[Sunec]

Hallo zusammen!

Ich arbeite momentan mit Firemonkey.

Es geht um folgendes:

Ich möchte eine Bilddatei (JPEG Format) in ein TImage laden. Die Bilddatei hat jedoch nicht die Dateiendung .jpg sondern .thumb.

Eine Ändern der Dateiendung möchte ich möglichst vermeiden. Leider ist dies der einzig bisher mir bekannte Weg.

Gibt es eine Möglichkeit besagte .thumb Datei als .jpg zu interpretieren und zu laden?

Nachdem ich mehrere Stunden leider erfolglos im Internet gesucht habe, fiel der Entschluss diesen Post zu verfassen.

Meine momentange Lösung:

Delphi-Quellcode:

procedure Tfm_main.Button2Click(Sender: TObject);
var
  oldFile, newFile : string;
begin
  oldFile := 'D:\a.thumb';
  newFile := ChangeFileExt(oldFile, '.jpg');
  RenameFile(oldFile, newFile);
  ImageControl1.Bitmap.LoadFromFile(newFile);
  RenameFile(newFile, oldFile);
end;

Für jegliche Hilfe bin ich dankbar!

Einen schönen Abend!
- Sunec