Можно ли использовать TBitMap в потоке?

[TwiX]

Написал прогу, начал тестить - иногда вылетает ошибка Out of system resources. Начал искать описание ошибки - нашёл. Сказали, что TBitMap - элемент VCL и его нельзя использовать в потоке.
Как быть?

[Karabash]

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

Сказали, что TBitMap - элемент VCL и его нельзя использовать в потоке.

Утверждение более чем странное, если не сказать - вредное.

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

Как быть?

Копать в сторону Synchronize (метода класса TThread).

[TwiX]

Synchronize - это не то, ведь я работаю не с компонентом формы. А если уж делать синхронизацию, то, как по мне, лучше использовать критические секции...

Возник опять такой же вопрос... Вспомнил, что уже задавал его - начал копать в поиске - нашёл. Но тут ничего не оказалось. Как я понял, что TBitmap нужно чем-то не vcl-ным заменить. А чем?

[Пепел Феникса]

TBitmap не визуальный класс.
единственное аккуатнее с использованием одного обьекта во многих потоках.

[TwiX]

один поток. Пытаюсь изменить pixelFormat - вылетает Out of system resources.

[Stilet]

Код в студию.

[TwiX]

Код, например, такой:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TMyThread.Create(false);
end;

{ TMyThread }

procedure TMyThread.Execute;
var
  Canvas: TCanvas;
  bmp: TBitmap;
  ScreenDC: HDC;
  clr: Cardinal;
  i: integer;
begin

  ScreenDC := GetDC(HWND_DESKTOP);

  Canvas := TCanvas.Create;
  Canvas.handle := ScreenDC;
  bmp := TBitmap.Create;
  bmp.Width := 10;
  bmp.Height := 10;

  bmp.Canvas.CopyRect(Rect(0, 0, 10, 10), Canvas, Rect(0, 0, 10, 10));
  try
    bmp.PixelFormat := pf4bit;
    //bmp.SaveToFile('1.bmp');
  except
    on e: Exception do
          ShowMessage(e.Message);
      end;
   //bmp.SaveToFile('1.bmp');
end;

Причем, примерно 1 раз из 5 ошибки не появится. Пробовал использовать Lock у канваса - не помогает

[Stilet]

Canvas := TCanvas.Create;

А освобождать объект в конце действа как бы не модно?

bmp.Canvas.CopyRect(Rect(0, 0, 10, 10), Canvas, Rect(0, 0, 10, 10));

А я больше BitBlt люблю использовать.

[TwiX]

Причем здесь освобождение? Писал чисто для примера. А копирект на моем ноуте работает не медленней чем битблт (первая работает через проц, а вторая через видеокарту по-моему) .
Так а ошибка то почему?

[mutabor]

А если не в потоке, ошибка появляется?
4 бит? Необычная глубина цвета какая-то, нужна именно такая?