Delphi - 将 bmp 转换为 png 失败
Delphi - convert bmp to png fails
我有以下简单代码将剪贴板图像转换为 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);
我有以下简单代码将剪贴板图像转换为 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);