将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;