高手和大虾来回答！！！

wwwGameFans

我用Delphi + DirectDraw编程时遇到一个问题，如下：
C++语言的程序为：
  DDSURFACEDESC2 ddsd;
   ......
   int mempitch = ddsd.lPitch;
   UCHAR * video_buffer = ddsd.lpSurface;
   // plot 1000 random pixels with random colors on the primary surface,
   // they will be instantly visible
   for (int index=0; index<1000; index++)
     {
       UCHAR color = rand() % 256;
       int x = rand() % 640;
       int y = rand() % 480;
       // plot the pixel
       video_buffer[x+y*mempitch] = color;<----------------------------问题部分？？？
     } // end for index
   其中lpSurface是一个指针，怎样才能把标记的部分变为Pascal语言呢？ [em7] [em7] [em7] [em24] [em24] [em24]

huasoft111

Pvideo_buffer: Pointer;

Pvideo_buffer:=Pointer(x+y*mempitch);
Pvideo_buffer^:=color

wwwGameFans

不对啊！！！

真的不懂

var  ddsdDSURFACEDESC2 ;
   ......
     mempitch,index,x,y:Integer;
           Color:Byte;
video_bufferbyteArray;

  mempitch:= ddsd.lPitch;
   video_buffer:=Pointer(ddsd.lpSurface);

   for Index = 0 to 999 do
      Begin
       Color:=Random(256);
        x := Random(640);
        y := Random(480);
       // plot the pixel
       video_buffer[x+y*mempitch] := color;
      End;

这是对一个640x480x256色t的表面写1000个随机位置随机颜色的点

wwwGameFans

你的方法Delphi可以编译，但单独运行时提示( Invalid variant type conversion),还是没效果啊！！！

sanikoyes

获取LPSURFACE前先要LOCK住表面