Jpg2Bmp函數

procedure Jpg2Bmp(const source,dest:string);
var
  MyJpeg: TJpegImage;
  bmp: Tbitmap;
begin
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
try
  myjpeg.LoadFromFile(source);
  bmp.Assign(myjpeg);
  bmp.SaveToFile(dest);
finally
  bmp.free;
  myjpeg.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  BitMap:TBitmap;
  MyJpeg: TJpegImage;
  TempStream : TMemoryStream;
begin
  TempStream :=TMemoryStream.Create;
  TempStream.LoadFromFile('f:/eiffel.jpg');
  MyJpeg :=TJpegImage.Create;
  BitMap :=TBitmap.Create;
  MyJpeg.LoadFromStream(TempStream);
  Bitmap.Assign(MyJpeg);
  Image1.Picture.Bitmap.Assign(Bitmap);
  TempStream.Destroy;
  MyJpeg.Free;
  Bitmap.Free;
end;