jpg in TImage

[gekmihesg]

ok dann nochmal:

Delphi-Quellcode:

uses ..., Jpeg;

...

procedure TForm1.Button1Click(Sender: TObject);
var jpg: tjpegImage;
begin
jpg:= tjpegimage.Create;
jpg.LoadFromFile('C:\test.jpg');
image1.Width:=jpg.Width;
image1.Height:=jpg.Height;
image1.Picture.Assign(jpg);
end;