delphi - TBitmap 到 TPngImage 和内存使用情况

Question

我有一个由 11 个白色 TBitmap 组成的数组(32 位 512x512 像素 = 1 MB)我想将它们分配给 TPngImage 数组以减少内存使用，我预计 1 mb 白色位图会变成 1.76 KB png，内存使用量会急剧下降我用任务管理器监控了一下，差异只有 0.824 MB，为什么呢？在内存中无损压缩 TBitmap 的最佳/快速方法是什么？

for I := 0 to 10 do
begin
  Bitmaps[I] := TBitmap.Create;
  Bitmaps[I].PixelFormat := pf32bit;
  Bitmaps[I].Canvas.Pen.Color := clWhite;
  Bitmaps[I].SetSize(512,512);
  Bitmaps[I].Canvas.Rectangle(0,0,512,512);
end;<p></p>

<p>for I := 0 to 10 do
begin
  Pngs[I] :=  TPngImage.Create;
  Pngs[I].Assign(Bitmaps[I]);
  Bitmaps[I].Free;
end;
</p>

<小时/>

更新

形成@bummi 研究，我认为最好的办法是将 png 保存在内存流数组中，这使得差异为 9.7 MB。

for I := 0 to 10 do
begin
  Png :=  TPngImage.Create;
  Png.Assign(Bitmaps[I]);
  Streams[I] := TMemoryStream.Create;
  Png.SaveToStream(Streams[I]);
  Bitmaps[I].Free;
  Png.Free;
end;

Answer 1

当您发布 TBitmap 时，您发布了两件事:

• FastMM4 Delphi 堆管理器的内存
• HBITMAP Windows GDI 句柄

有时，如果您最小化所有程序的窗口然后将它们恢复回来，Windows 会缩小工作集，但这是不被允许的。由于今天相对较小的 10MB 差异而重新安排进程内存不会毫无意义地减慢速度。

从 https://stackoverflow.com/a/14380287/976391 的答案开始阅读更多内容

http://fastmm.sourceforge.net/附带自述文件和演示如何测量进程内的内存使用情况(如果它让您好奇的话)。

但是如果您确实想减少 RAM 使用量 - 那么就不要分配它。只需制作一个 TBitmap 并从中分配所有 PNG。不过，你们的寡妇们再次明确表示，10MB 不是值得关心的数字。

<小时/>

此外，正如 user539848 所发现的，您有 11 个位图，而不是 10 个。为了避免差一错误，您最好不要使用神奇的常量，而是使用可靠的编译器结构。

for I := Low(Bitmaps) to High(Bitmaps) do
begin
  Bitmaps[I] :=...