![]() |
Delphi-Version: 5
Nicht bekannte Bilddatei in Timage laden
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 |
AW: Nicht bekannte Bilddatei in Timage laden
Was möchtest du denn damit erreichen?
Hast du irgendwo ein Bild liegen und möchtest aber nur den zugehörige Thumbnail anzeigen oder geht es tatsächlich ausschließlich um den Thumbnail? |
AW: Nicht bekannte Bilddatei in Timage laden
Hallo,
Zitat:
Zitat:
Zitat:
Delphi-Quellcode:
Dann könntest Du Deine Routine so abändern:
initialization
// Die Zeile am Ende einfügen TBitmapCodecManager.RegisterBitmapCodecClass ('.thumb', 'Irgendein Text zu .thumb', False, TBitmapCodecWIC);
Delphi-Quellcode:
Doof nur, dass man dazu die FMX.Canvas.D2D.pas ändern muss. Ich habe bis jetzt keinen Weg gefunden dies zu umgehen (oder bin ich nur zu blöd die geniale Struktur dahinter zu erkennen). Ein:
procedure Tfm_main.Button2Click(Sender: TObject);
begin ImageControl1.Bitmap.LoadFromFile ('D:\a.thumb') end;
Delphi-Quellcode:
funktioniert leider nicht, denn die Deklaration von TBitmapCodecWIC haben die Schwachb...... bei Emba leider in den Implementationsteil der Unit gepackt.
procedure Tfm_main.Button2Click(Sender: TObject);
begin TBitmapCodecManager.RegisterBitmapCodecClass ('.thumb', 'Irgendein Text zu .thumb', False, ...); ImageControl1.Bitmap.LoadFromFile ('D:\a.thumb') end; Aber vielleicht hat ja noch ein Kollege eine Idee. Gruß BTW: Herzlich Willkommen in der DP |
AW: Nicht bekannte Bilddatei in Timage laden
Guten Morgen!
Zitat:
@Volker Z. Vielen Dank für deine ausführliche Erläuterung, ich weiß dies zu schätzen. Ich werde auf der kopierten FMX.Canvas.D2D.pas wechseln. Auch wenn dies wohl nicht die Optimallösung ist, so ziehe ich sie der Änderung der Dateiendung vor. Zitat:
|
AW: Nicht bekannte Bilddatei in Timage laden
Oder man macht es sich einfacher mit
Delphi-Quellcode:
procedure Tfm_main.Button2Click(Sender: TObject);
var LFileName : string; LStream : TStream; begin LFileName := 'D:\a.thumb'; LStream := TFileStream.Create( LFileName, fmOpenRead ); try ImageControl1.Bitmap.LoadFromStream( LStream ); finally LStream.Free; end; end; |
AW: Nicht bekannte Bilddatei in Timage laden
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:56 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz