Delphi – 将bmp转换为png失败

发布时间：2020-12-15 09:07:13 所属栏目：大数据来源：网络整理

导读：我有以下简单的代码将剪贴板图像转换为bmp然后转换为png： if Clipboard.HasFormat(CF_PICTURE) thenbegin bitmap := TBitmap.Create; png := TPNGImage.Create; try bitmap.Assign(Clipboard); bitmap.SaveToFile(ExtractFilePath(application.ExeName) + '

我有以下简单的代码将剪贴板图像转换为bmp然后转换为png：

if Clipboard.HasFormat(CF_PICTURE) then
begin
    bitmap := TBitmap.Create;
    png := TPNGImage.Create;
    try
        bitmap.Assign(Clipboard);
        bitmap.SaveToFile(ExtractFilePath(application.ExeName) + 'filename.bmp');
        png.Draw(bitmap.Canvas,Rect(0,bitmap.Width,bitmap.Height));
        png.SaveToFile(extractfilepath(application.ExeName) + 'filename.png');
    finally
        bitmap.free;
        png.free;
    end;
end;

虽然转换为bmp工作,我甚至可以在mspaint中打开它并查看其内容,转换为png失败,我有一个空白的png图像.我究竟做错了什么？

解决方法

您尚未设置PNG图像对象的尺寸(高度和宽度).在绘制之前你需要这样做.

然而,更容易的是一个简单的任务：

png.Assign(Bitmap);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!