下载第三方控件ImageEn,用ImageEnView控件加载图片,代码如下
procedure TFrmMain.Button1Click(Sender: TObject);
begin
ImageEnView1.IO.LoadFromFileBMP('D:/041.bmp');//或ImageEnView1.IO.LoadFromFile('D:/041.bmp');
ImageEnView1.IO.SaveToFilePNG('D:/041.png');
end;
procedure TFrmMain.Button1Click(Sender: TObject);
begin
ImageEnView1.IO.LoadFromFileBMP('D:/041.bmp');//或ImageEnView1.IO.LoadFromFile('D:/041.bmp');
ImageEnView1.IO.SaveToFilePNG('D:/041.png');
end;