delphi BMP转换PNG

本文整理自网络，侵删。

 
uses Vcl.Imaging.pngimage;

//uses Vcl.Imaging.pngimage;
//ConvertBMP2PNG('C:\Users\ \Desktop\123.bmp');
procedure ConvertBMP2PNG(fName: String);
var
    BMP: TBitmap;
    PNG: TPNGImage;
begin
    if not (ExtractFileExt(fName)='.bmp') then exit;
    if FileExists(ChangeFileExt(fName, '.png')) then begin
      //  WorkList.Add(fName + ' -> Convert to PNG -> PNG exists!');
      //  Log(fName + ' -> Convert to PNG -> PNG exists!');
        exit;
    end;
    BMP:= TBitmap.Create;
    PNG:= TPNGImage.Create;
    try
        BMP.LoadFromFile(fName);
        if not BMP.Monochrome then begin
          //  WorkList.Add(fName + ' -> Color to Monochrome');
          //  Log(fName + ' -> Color to Monochrome');
            BMP.Monochrome:= True;
        end;
      //  WorkList.Add(fName + ' -> Convert to PNG');
      //  Log(fName + ' -> Convert to PNG');
      //  inc(fCount);
        PNG.Assign(BMP);
        PNG.CompressionLevel:=9;
        PNG.SaveToFile(ChangeFileExt(fName,'.png'));
    finally
        BMP.Free;
        PNG.Free;
    end;
end;
 

相关阅读 >>

Delphi检测用户是否具有administrator权限

Delphi用邻域平均法对图像进行平滑处理

Delphi开发firemonkey应用程序时无法打开窗体的解决

Delphi通过post传递参数给php

Delphi tms web core webmemo 横竖滚动条

Delphi 脉搏波9808血压计读取测试程序

Delphi在postgresql中读写二进制数据

Delphi编写的lpk.dll专杀，可清理rar

Delphi tzipfile 用法

Delphi android路径 tpath 文件路径，文件管理

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi BMP转换PNG