TPicture.assing(TJPEGImage)

[Mooshead]

Hallo,

ich möchte in einem Programm JPG-Bilder laden und diese im Programm anzeigen.
Beim laden habe ich den Typ TJPEGImage benutzt und wandele das beim anzeigen mit TPicture.assin(TJPEGImage) um, damit ich die Bilder in einem TImage anzeigen kann. Da es sehr viele Bilder sind finde ich die Lösung mit dem assign etwas umständlich. Gibt es noch eine einfachere Möglichkeit?

MfG

[Bernhard Geyer]

TPicture kann doch von sich aus JPEGs darstellen? Wieso der Umweg?

[Mooshead]

Also ich hatte mit dem Programm schon einmal einen Post, aber da ging es um das Laden der Bilder und mir wurde TJPEGImage empfolen. Ich weiß ja nicht was besser geegnet ist um große Datenmengen an Bildern zu laden.

Also wenn ich aus TJPEGImage TPicture mache dann kann ich die Bilder genauso laden und ohne umwandlung darstellen?

[Sko]

Delphi-Quellcode:

procedure foo;
var
  Pic: TPicture;
begin
  pic := TPicture.Create;
  try
    pic.LoadFromFile('C:\foo.jpg');
    {tu irgendwas}
  finally
    pic.free;
  end;
end;

...sollte eigentlich problemlos klappen, vorausgesetzt du hast die Unit JPEG eingebunden, das Assign kannst du dir dann sparen.

[Edit]

Zitat:

Zitat von Mooshead

...Also wenn ich aus TJPEGImage TPicture mache dann kann ich die Bilder genauso laden und ohne umwandlung darstellen?

Wenn du ein Image oder so auf der Form hast ist das noch einfacher: Image1.Picture.LoadFromFile('Bla.jpg');
[/Edit]