在线程位图绘制中合并绘制结果

Question

我想加快绘制位图的速度，因此我设计了一个类似BITMAP THREAD CLASS 的类。完成部分图像的单独绘制后，我想在 Thread.done 过程中合并所有图像 我的代码是这样的

    type
      TbmpthreadForm = class(TForm)
        .....
        THreadImage: TImage;
        procedure Button_threadstartClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private-Deklarationen }
        procedure ThreadDone(Sender: TObject);
      public
        { Public-Deklarationen }
        fserver, fdatabasename, ftablename: String;
        global_thread_counter: Integer;
        XPixel, YPixel: Integer;
        Masterbitmap: TBitmap;
      end;

    var
      bmpthreadForm: TbmpthreadForm;

    implementation

    {$R *.dfm}

    procedure TbmpthreadForm.ThreadDone(Sender: TObject);
    begin
      dec(global_thread_counter);
      MyStatusBar.SimpleText := 'Thread Count ->' + IntToStr(global_thread_counter);

      Masterbitmap.Canvas.Lock;
      with (Sender as TPaintBitmapThread) do
      begin
        bitblt(Masterbitmap.Canvas.handle, 0, 0, XPixel, YPixel,
          bitmap.Canvas.handle, 0, 0, srcand);
        THreadImage.Picture.Bitmap.Assign(Masterbitmap);
        // lets see local tthread intermediate results  and save it to HD
        THreadImage.Picture.Bitmap.SaveToFile('c:\temp\myimage' + IntToStr(Index)
  + '.bmp');
      end;
      Masterbitmap.Canvas.UnLock;

      if (global_thread_counter = 0) then
      begin
         ...
      end;
    end;
procedure TbmpthreadForm.Button_threadstartClick(Sender: TObject);
var
     ..... 
begin

  index_max := 2000000;
  threadCounter := 10;
  Indexdelta := round(index_max / threadCounter);

  ///
  ///
  ....
  Masterbitmap.Width := XPixel;
  Masterbitmap.Height := YPixel;

  for i := 0 to threadCounter - 1 do
  begin
    n := i * Indexdelta;
    m := (i + 1) * Indexdelta;
    //  just a test sql string .... 
    sqlstr := 'select * from  Mytable  where objectindex <' + IntToStr(m) +
      ' and Objectindex >' + IntToStr(n);

    aPaintBitmapThread := TPaintBitmapThread.Create(XPixel, YPixel, ......   , fserver, fdatabasename, ftablename,
      sqlstr, i);
    aPaintBitmapThread.OnTerminate := ThreadDone;
    Memo1.Lines.Add('start thread->' + IntToStr(i));
    inc(global_thread_counter);
  end;

end;

Thread.done 设计遵循 SO (reference question 由于生成的图像/ Masterbitmap 看起来与 run 到 run 有点不同，我想我的方法不是线程安全设计，用于将 Thread bmp 内容复制到 VCL mainform 中的 masterbitmap 中， 我在我的代码中看不到任何错误，有什么问题？？？？

补充问题

Q1：TPaintBitmapThread 中的 fbitmap 是在 Thread.create 过程中创建的，对于 TAdoconnection，我找到了注释，它应该在 thread.execute 中创建。位图也必须这样做吗？

Q2 : 附件图片显示了一个线程的图像（位图）的预期结果和实际的图像结果（如 THreadImage.Picture.Bitmap.SaveToFile 命令所见）

Answer 1

    bitblt(Masterbitmap.Canvas.handle, 0, 0, XPixel, YPixel,
      bitmap.Canvas.handle, 0, 0, srcand);

您明确调用了 Masterbitmap.Canvas.Lock，但是您没有调用 bitmap.Canvas.Lock（因此您可以在此调用中随时松开画布句柄...）

此外，您需要考虑 GDI 本身内的线程安全性：应不惜一切代价避免在不同线程之间共享任何 GDI 对象。例如，如果您同时将位图选择到两个不同的设备上下文中（但在不同的线程中），您可能会在 GDI 本身中遇到问题...

请注意，旧版本的 delphi 不能防止共享缓存句柄（字体、画笔和钢笔句柄缓存在全局列表中。如果我没记错的话，这已在 XE3 服务包中修复）。

简而言之：如果您真的需要多线程，我会考虑完全避免使用 TCanvas 和 TBitmap。 （这样更容易实现多线程安全）