Einzelnen Beitrag anzeigen

Sunec

Registriert seit: 31. Aug 2013
88 Beiträge
 
Delphi XE8 Architect
 
#1

Nicht bekannte Bilddatei in Timage laden

  Alt 9. Jan 2014, 21:09
Delphi-Version: 5
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
  Mit Zitat antworten Zitat