从非主线程绘制到主窗体画布

我正在尝试为我的学校项目制作一款街机游戏。基本思想是在主线程之外的其他线程中完成所有数学和绘图，并且仅将主线程用于输入例程。绘图是通过保存在外部单元中的过程完成的，并且是通过创建位图，然后在位图上绘制部分环境，最后在主窗体的画布上绘制位图来完成的。当我完成绘图过程时，我尝试从主线程运行它，并设法使 everythink 按预期工作（除了整个应用程序窗口被冻结的事实，但由于主线程一直在不停地工作，比如这是预期的）。然后我尝试将该过程放入其他线程中，它停止工作（尽管调试例程报告该过程被重复执行，但它没有绘制任何东西）。在添加和删除一些调试例程之后，它开始无明显原因地工作，但不可靠。在大约 80% 的情况下，它运行顺利，但在其余情况下，它会在十到三十帧后停止，有时甚至不会在卡住的最后一帧中拖动某些环境部分。

主窗体单元的重要部分如下所示

procedure TForm1.Button1Click(Sender: TObject);

begin
running:=not running;
if running then AppTheard.Create(false);
end;

Procedure AppTheard.execute;

begin
 form1.Button1.Caption:='running';
 while running do begin view.nextframe; end;
 form1.Button1.Caption:='no longer running';

end;

另一个单元中的下一帧过程如下所示

     Camera = class
 owner:Tform;
 focus:GravityAffected;
 Walls:PBlankLevel;
 Creeps:MonsterList;
 FrameRateCap,lastframe:integer;
 Background:TBitmap;
 plocha:TBitmap;
 RelativePosY,RelativePosX:integer;
 constructor create(owner:Tform; focus:GravityAffected; Walls:PBlankLevel; Creeps:MonsterList; FrameRateCap:integer; background:TBitmap);
 procedure nextframe;
end;    



 procedure camera.nextframe;
 var i,i1,top,topinfield, left,leftinfield: integer ;

  procedure Repair
      //some unimportant math here

  Procedure vykresli(co:vec);
   begin
   if co is gravityaffected then
    plocha.Canvas.Draw(co.PositionX*fieldsize+Gravityaffected(co).PosInFieldX-Left*fieldsize+leftinfield-co.getImgPosX,
     co.PositionY*fieldsize+Gravityaffected(co).PosInFieldY-top*fieldsize+topinfield-co.getImgPosY,
     co.image)
   else
     plocha.Canvas.Draw(co.PositionX*fieldsize-Left*fieldsize+leftinfield-co.getImgPosX,
     co.PositionY*fieldsize-top*fieldsize+topinfield-co.getImgPosY,
     co.image);
   end;

 begin
   // some more unimportant math

  vykresli(focus);                                                 

  For i:= Left+1 to left+2+(plocha.Width div fieldsize) do                                                         //vykreslení zdí
   For i1:= Top+1 to top+2+(plocha.Height div fieldsize) do
    if (i< Walls.LevelSizeX) and (i1< Walls.LevelSizeY) and (i>=0) and (i1>=0) and walls.IsZed(i,i1) then
     begin vykresli(walls^.GiveZed(i,i1)^);end;

  while abs((gettickcount() mod high(word))-lastframe) < (1000 div FrameRateCap) do sleep(1); 
  lastframe:=gettickcount mod high (word);

  owner.Canvas.Draw(-fieldsize,-fieldsize,plocha);     

 end;

有人可以告诉我我做错了什么吗？

编辑：我得到了我所要求的帮助，但几年后，我意识到我真正需要的建议是根本不使用线程并尝试类似的事情this https://stackoverflow.com/questions/5399928/execute-action-every-x-seconds-delphi反而。

我发现你的做法有很多错误。

1) 所有VCL交互必须在主线程内完成

您的线程直接访问 VCL 控件。您不能这样做，因为 VCL 不是线程安全的。您必须将所有事件同步回主线程，并让主线程完成这项工作。

2) 所有自定义 UI 绘图（到表单）必须在表单内部完成OnPaint event.

这解释了为什么它有时有效，有时无效。表单会自动绘制，如果您不使用此事件，您的自定义绘图将由 VCL 绘制。

3）所有UI绘制必须在主线程内完成

这让我们回到第 1 点和第 2 点。VCL 不是线程安全的。您的辅助线程应该只负责执行计算，而不负责绘制 UI。在执行一些计算或完成一些冗长的工作后，您必须将结果同步回主线程，并让该主线程进行绘图。

4）线程应该是完全独立的

您不应该在这个辅助线程中放置任何代码，因为它知道如何显示它。就您而言，您明确引用了该表单。您的线程甚至不应该知道它是否正在被表单使用。你的线程应该只执行冗长的计算工作，并且对用户界面的考虑绝对为零。当您需要指示主窗体重绘时，将事件同步回主窗体。

结论

您需要研究线程安全。通过这样做，您将能够回答您自己的大部分问题。严格设置此线程只是为了处理繁重的工作，否则会使 UI 陷入困境。不必太担心用户界面缓慢，大多数现代计算机都能够在不到一秒的时间内执行复杂的绘图。这不需要在单独的线程中。

EDIT

经过几年的经验，我开始意识到上面的#3 不一定正确。事实上，在许多情况下，这是从线程内执行详细绘图的好方法，但主线程只负责将该图像呈现给用户。

当然，这本身就是一个完整的话题。您需要能够安全地将一个线程中管理的图像绘制到另一个线程。这也需要使用Synchronize.