Wie kann ich jpeg#s in D3 einlesen?

[Norton]

Hier mal meine D3 Variante zum Thema jpg

Code:

procedure LadeJpg(FileName: String; Bild: TBitMap);
var Jpeg: TJpegImage;
begin
Jpeg:=TJpegImage.Create;
jpeg.LoadFromFile(filename);
Bild.Assign(Jpeg);
jpeg.free;
end;

auf Button Klick im Image anzeigen ...

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
ladejpg(opendialog1.FileName,Image1.Picture.Bitmap);
end;

Natürlich ohne Garantie

Gruß, Norton