Delphi

Question

我有以下简单代码将剪贴板图像转换为 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, 0, bitmap.Width, bitmap.Height));
        png.SaveToFile(extractfilepath(application.ExeName) + '\filename.png');
    finally
        bitmap.free;
        png.free;
    end;
end;

虽然转换为 bmp 有效，我什至可以在 mspaint 中打开它并查看其内容，但转换为 png 失败并且我有一个空白的 png 图像。我做错了什么？

Answer 1

您尚未设置 PNG 图像对象的尺寸（高度和宽度）。在绘制之前，您需要这样做。

然而更简单的是一个简单的分配：

png.Assign(Bitmap);

Delphi - 将 bmp 转换为 png 失败

Delphi - convert bmp to png fails

bitmap

png