Question

我找到了一种从BMP文件中编写avi的方法：
http://www.delphi3000.com/articles/article_2770.asp?SK=
我想从TBitmaps的数组或TList中编写avi？

Answer 1

您链接到的代码的关键部分位于下方，其中IList是TStrings，其中包含动画中包含的所有文件的名称。

for i := 0 to IList.Count - 1 do begin
  AssignFile(BFile, IList[i]);
  Reset(BFile, 1);
  Seek(BFile, m_bfh.bfOffBits);
  BlockRead(BFile, m_MemBits[0], m_Bih.biSizeImage);
  Seek(BFile, SizeOf(m_Bfh));
  BlockRead(BFile, m_MemBitMapInfo[0], length(m_MemBitMapInfo));
  CloseFile(BFile);
  if AVIStreamWrite(psCompressed, i, 1, @m_MemBits[0],
      m_Bih.biSizeImage, AVIIF_KEYFRAME, 0, 0) <> 0 then begin
    ShowMessage('Error during Write AVI File');
    break;
  end;
end;

它从磁盘读取文件的一部分并将它们写入AVI流。重要的是它从文件中读取。 TBitmap的内存中表示不一定与文件的表示匹配。但是，很容易调整给定代码以将位图临时存储在存储器流中;流将匹配文件的布局。假设IList现在是TBitmap的数组，正如您所建议的那样。然后我们可以使用它：

var
  ms: TMemoryStream;

ms := TMemoryStream.Create;
try
  for i := 0 to Length(IList) - 1 do begin
    IList[i].SaveToStream(ms);
    ms.Position := m_bfh.bfOffBits;
    ms.ReadBuffer(m_MemBits[0], m_Bih.biSizeImage);
    ms.Position := SizeOf(m_Bfh);
    ms.ReadBuffer(m_MemBitMapInfo[0], Length(m_MemBitMapInfo));
    ms.Clear;
    if AVIStreamWrite(psCompressed, i, 1, @m_MemBits[0],
        m_Bih.biSizeImage, AVIIF_KEYFRAME, 0, 0) <> 0 then begin
      ShowMessage('Error during Write AVI File');
      break;
    end;
  end;
finally
  ms.Free;
end;

在您引用的示例中，前面的代码读取列表中的第一个文件以填充各种记录并调整此处使用的数组的大小，但您应该能够像我在此处显示的代码那样进行相同的更改

如何从TBitmaps序列中编写avi文件？

1 个答案: