delphi jpg转png

{
关键字=jpg转png
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 13:46:22
数字签名=7605A16271DCE41824C55E1A1CE6C1DA
}

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, jpeg;

uses
pngimage;

function jpg2png(sjpg, spng: string): boolean;
var
JPG: TJPEGImage;
BMP: TBitmap;
PNG: TPngObject;
begin
{jpg转png
}
JPG := TJPEGImage.Create;
BMP := TBitmap.Create;
PNG := TPngObject.Create;
try
if fileexists(sjpg) then begin
JPG.LoadFromFile(sjpg);
// JPG.LoadFromStream(); 从流中载入的函数
BMP.Assign(JPG);
PNG.Assign(BMP);
PNG.SaveToFile(spng);
end;
except
bmp.Free;
png.Free;
result := false;
end;
result := true;
end;