DirectDraw не работает в потоке

[NesterenkoAlex]

Пишу игру, в ней 2 потока, один физический другой графический.
печаль с графикой на DirectDraw.
Короче:
Граф. Поток рисует кадр на битмапе по кнвам точнее примитивами лини,прямоугольники. все рисуется все хорошо(было бы лучше если бы мне сразу сказали что битмап не Thread Safe былоб хорошо и уже пару недель назад.)

А вот при блитинге на внеэкранную поверхность чет ничего не происходит.
А может и не при блитинге.

в граф потоке после отрисовки на битмапе делаю так

while HR<> DD_OK do
     begin

       hr:=DDCopyBitmap(FImageBuffer, buf, w, h);
     end;

вот сама DDCopyBitmap:

function DDCopyBitmap(  DDSurface:IDirectdrawSurface7; Bitmap:Tbitmap;dx,dy:integer):Hresult;
var
hdcImage:HDC;
dc:HDC;
bm:Hbitmap;

begin
try
 result:=E_FAIL;
 if (Bitmap=nil) or (DDSurface=nil)  then
  exit;
 
 hdcimage:=createCompatibleDC(0);
 bm:=selectObject(HDCimage,bitmap.Handle);
 result:=FImageBuffer.GetDC(DC);
 if result=DD_OK then
   begin
     StretchBlt(DC,0,0,size.X,size.Y,hdcimage,0,0,dx,dy,SRCCOPY);
     DDSurface.ReleaseDC(dc);
     
   end;
   selectobject(hdcImage,bm) ;
   deleteDC(hdcImage);
finally
  result:=DD_OK;
  
end;

end;

никаких ошибок при выполнении не возникает он просто делает и думает что все норм. А при флипе поверхностей мерцание пустых страниц.


Раньше в место граф потока был цикл в форме работало нормально, но бывало случался такой баг: Графика рисовалась как надо, а физ поток сильно замедлялся. И на смену приоритетов не реагировал.

Итак! Как заставить директ драв рисовать в отдельном потоке а не на форме? Помогите плиз! ибо это все что меня тормозит он начала написания мультиплеера для этой геймы

[NesterenkoAlex]

Неужели никто мне не поможет!

[NesterenkoAlex]

Люди! Хелп! гуглить уже сил нет!

[WorldMaster]

А вот эта статейка не поможет? Статья

[NesterenkoAlex]

Английского не знаю но по приведенным примерам кода понял что при доступе к поверхности нужно входить в критическую секцию. Вечером попробую. Побежал на пары. Спасибо.

[WorldMaster]

Сообщение от NesterenkoAlex

Английского не знаю но по приведенным примерам кода понял что при доступе к поверхности нужно входить в критическую секцию. Вечером попробую. Побежал на пары. Спасибо.

Гугл транслейт в помощь.

[NesterenkoAlex]

После танца с бубном заработало, только я пока не понял почему!

function DDCopyBitmap(  DDSurface:IDirectdrawSurface7; Bitmap:Tbitmap;dx,dy:integer):Hresult;
var
hdcImage:HDC;
dc:HDC;
bm:Hbitmap;

begin
try
 result:=E_FAIL;
 if (Bitmap=nil) or (DDSurface=nil)  then
  exit;
 hdcimage:=createCompatibleDC(0);
 bm:=selectObject(HDCimage,bitmap.Handle);
 result:=FImageBuffer.GetDC(DC);
 if result=DD_OK then
   begin
     StretchBlt(DC,0,0,size.X,size.Y,hdcimage,0,0,dx,dy,SRCCOPY);
     DDSurface.ReleaseDC(dc);

   end;
   selectobject(hdcImage,bm) ;
   deleteDC(hdcImage);
finally
  result:=DD_OK;

end;

end;

в потоке начале потока сделал лок битмапа.
ну и для проверки

buf.Canvas.Font.Size:=36;
buf.Canvas.TextOut(0,0,'Работай cerf!');

как оказалось, что пока выяснял, что битмап не Threadsafe понахреновертил ереси. в итоге все вернул на исходную и вуаля! Работает.