在Delphi 6 DirectShow过滤器中,对TBitmap的更改不会出现在渲染

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

如您所见,它只是两个简单的循环,它们使用字节指针遍历24位位图中的RGB值.当它在非DirectShow测试应用程序中时,此代码工作正常.但是,在我的DirectShow过滤器中,无论使用何种值,我都看不到渲染位图的任何变化.你甚至可以看到一个测试线,我只是将每个字节设置为0.我仍然看到图像未经修改.为了确保我没有幻像或损坏的位图对象,我添加了一行来在位图上打印一个简单的句子.该句子确实显示在渲染的位图上.

更令人困惑的是,当这个代码运行时,我每秒会得到数千个软页面错误,正如任务管理器所报告的那样.如果我禁用此代码,软页面错误就会消失.什么可能导致代码执行此操作？我在循环中进行了跟踪,确实看到每行后字节值改变了值,但图像仍未受影响.

最后,如果有人知道在不使用Scanline的情况下快速进行像素访问,我想知道.我通过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;