• BMP格式图片转JPG格式

    • //BMP格式图片转JPG格式
      procedure BMPToJPG(BmpFileName:string);
      var
        Jpeg : TJPEGImage;
        Bmp : TBitmap;
      begin
        Bmp := TBitmap.Create;
        try
          Bmp.LoadFromFile(BmpFileName);
          Jpeg := TJPEGImage.Create;
          try
            Jpeg.Assign(Bmp);
            Jpeg.Compress;
            //保存图片
            Jpeg.SaveToFile(Form4.SavePictureDialog1.FileName);
          finally
            Jpeg.Free;
          end;
        finally
           Bmp.Free;
        end;
      end;

      标签: none

    • 已有 2 条评论 »

      samool

      samool September 6th, 2007 at 05:09 pm

      #1

      [quote=lcd]咋用?           [/quote]
      这是Delphi代码。工具软件请看这里https://blog.samool.com/show-313-1.html
      《图像转换小软件(bmp to jpg)》

      lcd

      lcd September 6th, 2007 at 03:27 pm

      #2

      咋用?           

      • 发表评论: ( 注意:为了防止广告评论,本站链接已经启用nofollow)
      •   您的名字
      •   E-mail
      •   您的网址(选填)

Powered by Typecho)))   ICP:蜀ICP备05009250号