将image的图片保存为JPG格式图片方法

将image组件的图片保存为JPG格式图片方法

procedure SaveAsJPG ;

var

数据挖掘论坛

  jp: TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.

数据挖掘研究院

begin 数据挖掘研究院

  jp := TJPEGImage.Create; 数据挖掘研究院

  try 数据挖掘论坛

    with jp do 数据挖掘研究院

    begin 数据挖掘研究院

      jp.CompressionQuality := 2;

      jp.Compress ;  

      Assign(Image1.Picture.Bitmap);

数据挖掘工具

      SaveToFile("D:zhy.jpg"); 数据挖掘研究院

    end; 数据挖掘论坛

  finally

数据挖掘工具

    jp.Free;

  end; 数据挖掘工具

  ////---读入方法如下:

数据挖掘交友

procedure OpenJPGInImage 数据挖掘实验室

var 数据挖掘交友

  jp: TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause. 数据挖掘论坛

begin 数据挖掘实验室

  jp := TJPEGImage.Create;

数据挖掘论坛

  jp.LoadFromFile("D:zhy.jpg"); 数据挖掘实验室

  try

    with jp do

    begin

数据挖掘论坛

      image1.Picture.Bitmap.Assign(jp);

    end;

数据挖掘交友

  finally

数据挖掘实验室

    jp.Free; 数据挖掘实验室

  end; 数据挖掘研究院

end;