Load Tpicture om til Tbitmap?

Til dit formål skal du bruge Assign opratoren :


Var
  JPEGIMage : TJPEGImage;
  Bitmap : TBitmap;
begin
//Først skal vi lige have loaded en JPEG ind :

  JPEGIMage := TJPEGImage.Create;
  JPEGIMage.LoadFromFile(\'Hest.jpg\');

//Så skal vi have allokeret en Bitmap til at gemme det i :
  Bitmap : TBitmap;

//Så skal det konveteres :
  Bitmap.Assign(JpegImage);

//Frigiv hukkomelsen :
  JpegImage.Free;
//do stuff med din bitmap
  .....
end;

Jens B
http://www.fotx.net/borrisholt

Extras bib. på din delphi CD indeholder et Jpeg lib og lidt hjælp, hvilket du også kan finde i online hjælpen på TJpegImage.

Nu er jeg lidt dum. Men hvordan får jeg så mit bitmap sat ind i mit image?

Image1.Picture.bitmap.assign(Bitmap);

Det har jeg prøvet men det virker ikke?

der er en lille fejl, men ellers bør det virke med assign som JB skriver.


//Så skal vi have allokeret en Bitmap til at gemme det i :
  Bitmap := TBitmap.Create;

//Så skal det konveteres :
  Bitmap.Assign(JpegImage);

Jeg den fejl fand jeg selv. Men det virker stadig ikke

Det her virker :

uses
  JPEG;
procedure TForm1.Button1Click(Sender: TObject);
var
  JPEgImage : TJPEgImage;
  Bitmap : TBitmap;
begin
  if not OpenPictureDialog1.Execute then
    exit;

  JPEgImage := TJPEgImage.Create;
  JPEgImage.LoadFromFile(OpenPictureDialog1.FileName);

  Bitmap := TBitmap.Create;
  Bitmap.Assign(JPEgImage);
  Image1.Picture.Bitmap.Assign(Bitmap);
end;


Jens B