Delphi转换bmp为png失败，如何解决这个长尾问题？

本文共计220个文字，预计阅读时间需要1分钟。

我有一段简单的代码，用于将剪贴板中的图像先转换为BMP格式，然后转换为PNG格式：pascalif Clipboard.HasFormat(CF_PICTURE) then begin bitmap :=TBitmap.Create; png :=TPNGImage.Create; try bitmap.Assign(Clipboard); bitmap.SaveToFile(ExtractFilePath('a')); finally bitmap.Free; png.Free; end; end;

我有以下简单的代码将剪贴板图像转换为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图像.我究竟做错了什么？

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

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

png.Assign(Bitmap);