Проблема с Bitmap

← →
ASilver © (2003-09-29 13:20) [0]

Почему bitblt с PBitamp размером 600x800 занимает времени больше 1 секунды. Как лечить.

← →
SPeller © (2003-09-29 17:15) [1]

> bitblt с PBitamp размером 600x800 занимает времени
> больше 1 секунды

А это как?

← →
miek © (2003-09-29 19:58) [2]

Код в студию

← →
ASilver © (2003-09-30 14:31) [3]

DC := GetDC(0);
bitblt(btm.canvas.handle,0,0,800,600,DC,0,0,SRCCOPY);

← →
SPeller © (2003-09-30 15:28) [4]

Странно, у меня такой код:

procedure TForm1.SPLPicture1Click(Sender: PObj);
var DC: HDC;
begin
DC := GetDC( 0 );
// BitBlt( DC, 0, 0, 800, 600, SPLPicture1.Bitmap.Canvas.Handle, 0, 0, SRCCOPY );
BitBlt( SPLPicture1.Bitmap.Canvas.Handle, 0, 0, 800, 600, DC, 0, 0, SRCCOPY );
end;

Работает мгновенно в обоих случаях. Может, у тебя формат битмапа не совпадает с тем, что на экране, и время тратится на преобразование?

← →
SPeller © (2003-09-30 15:30) [5]

ЗЫ: В компонент предварительно был вставлен скриншот рабочего стола размером 800х600.

← →
miek © (2003-09-30 20:20) [6]

Весь код в студию. Товарищ правильно говорит - должно все работать нормально.

procedure TForm1.SPLPicture1Click(Sender: PObj);
var
DC: HDC;
Bitmap : PBitmap;
begin
Bitmap := NewBitmap(800,600);
Bitmap.PixelFormat := pfCustom;
DC := GetDC( 0 );
BitBlt(Bitmap.Canvas.Handle,0,0,800,600,DC,0,0,SRCCOPY );
....
Bitmap.Free;
end;

А вот и он, больной зуб!

Bitmap.PixelFormat := pfCustom;

Смени на что-нибудь определенное. pf32bit, например.

Ok. Всё работает нормально. Извиняюсь за глупый вопрос.

Проблема с Bitmap Найти похожие ветки