delphi - 对 TBitmap 的更改不会出现在 Delphi 6 DirectShow 过滤器的渲染图像中，并会生成大量软页面错误

Question

我有一个用DSPACK组件库编写的Delphi6 DirectShow过滤器(推送源视频过滤器)。我遇到了一个真正令人烦恼的问题，一些简单的代码在将修改后的位图输出到 FillBuffer() 调用中的目标媒体样本之前修改了位图。代码如下所示。

正如您所看到的，这只是两个简单的循环，它们使用字节指针来遍历 24 位位图中的 RGB 值。该代码在非 DirectShow 测试应用程序中运行良好。但是，在我的 DirectShow 过滤器中，无论使用什么值，我都没有看到渲染的位图有任何变化。您甚至可以看到一条测试线，我只是将每个字节设置为 0。我仍然看到图像未修改。为了确保我没有幻影或损坏的位图对象，我添加了一行来在位图上打印一个简单的句子。句子does显示在渲染的位图上。

更令人困惑的是，当此代码运行时，根据任务管理器的报告，我每秒会遇到数千个软页面错误。如果我禁用此代码，软页面错误就会消失。什么可能导致代码执行此操作？我跟踪了循环，确实看到字节值在每行之后都发生变化，但图像不受影响。

最后，如果有人知道不使用扫描线进行像素访问的快速方法，我想知道。我跟踪了 TBitmap.Scanline，它调用了 FreeImage。如果可以的话，我想尽量减少内存分配。我无法使用 GR32.TBitmap32，因为我正在使用 Synopse 的快速 jpeg 解码器，并且它不适用于 TBitmap32 对象。

更新:问题是我在访问 ScanLine 属性之前没有将位图的 PixelFormat 属性设置为 pf24Bit。有关更多信息，请参阅此线程:Pixel modifying code runs quick in main app, really slow in Delphi 6 DirectShow filter with other problems

procedure brightnessTurboBoost(var clip: TBitmap; rangeExpansionPowerOf2: integer; shiftValue: Byte);
var
   p0: PByte;
   x,y: Integer;
begin
   if (rangeExpansionPowerOf2 = 0) and (shiftValue = 0) then
       exit; // These parameter settings will not change the pixel values.

   for y := 0 to clip.Height-1 do
   begin
       p0 := clip.scanline[y];

       // Can't just do the whole buffer as a big block of bytes since the
       //  individual scan lines may be padded for CPU alignment.
       for x := 0 to (clip.Width - 1) * 3 do
       begin
           if rangeExpansionPowerOf2 >= 1 then
               p0^ := IntToByte((p0^ shl rangeExpansionPowerOf2) + shiftValue)
           else
               p0^ := IntToByte(p0^ + shiftValue);

// Test wiping the image (didn't work, still see image).
// p0^ := 0;
           Inc(p0);
       end;
   end;

   clip.Canvas.TextOut(10, 10, 'HELLO THERE IS THERE ANYONE THERE?');
end;

Answer 1

那么，您究竟如何将 IMediaSample 缓冲区数据复制到 TBitmap 中，而不是向后复制呢？最有可能的事情(实际上比其他事情更有可能)是您正在更改副本，并且永远不会将更改翻转回您传递到下游的缓冲区。另外，处理过程中还会出现页面错误(例如在来回转换图像数据时分配过多的内部内存)。