Delphi - 将bmp转换为png失败

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);