Nicht bekannte Bilddatei in Timage laden

[Sunec]

Guten Morgen!

Zitat von Sir Rufo:

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?

Es geht ausschließlich um das Thumbnail. Eine Bilddatei ist nicht vorhanden.



@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 von Volker Z.:

BTW: Herzlich Willkommen in der DP

Dankeschön!

[Sir Rufo]

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;

[Sunec]

Zitat von Sir Rufo:

Oder man macht es sich einfacher mit

Danke auch für diesen Lösungsweg!