关于图象处理的问题，高手们，快进来帮帮忙。（十万火急）

Question

//试一试
uses
  JPEG;begin
  with TJPEGIamge.Crate(Self) do try
    Picture.Assign(Iamge1.Picture);
    Picture.SaveToFile('D:\1.jpg');
  finally
    Free;
  end;
end;

Answer 1

with TJPEGImage.Crate(Self) do try
//         ~~~~笔误
    

Answer 2

如果一个3534x2564的BMP图像用你的方法就很慢或者死机，如何解决？

Answer 3

var
  MyJpeg: TJpegImage;
  Image1: TImage;
begin
  Image1:= TImage.Create(self);
  MyJpeg:= TJpegImage.Create;
  Image1.Picture.Bitmap.LoadFromFile('c:\windows\desktop\aa.BMP');  // Load the Bitmap from a file
  MyJpeg.Assign(Image1.Picture.Bitmap);  // Assign the BitMap to MyJpeg object
  MyJpeg.CompressionQuality:=StrToInt('75');
  MyJpeg.Compress;
  MyJpeg.SaveToFile('c:\windows\desktop\test.JPG'); // Save the JPEG to Disk
end;