Рисунки

← →
Driverrr (2003-04-23 13:20) [0]

Уважаемые специалисты, подскажите:
1) Как скопировать изображение заданной части окна в TMemoryStream?
2) Как из TMemoryStream скопировать изображение на заданную часть окна?

← →
AlexT1000 © (2003-04-23 15:58) [1]

1)
TArrayByte = array[0..0] of byte;
PArrayByte = ^TArrayByte;
p : PArrayByte;
B := TBitmap.Create;
B.Width := Form.Width ;
B.Height := Form.Height ;
B.PixelFormat := pf24bit;
Form.PaintTo(B.Canvas.Handle,0,0);
// загнали изображение окна в битмап

// теперь построчно в стрим
M : = TMemoryStream.Create;
M.Size := B.Width * B.Height * 3;
for i:=0 to B.Height -1 do
M.Write(PArrayByte(B.ScanLine[i])^,B.Width * 3);

2) наоборот из мемору по строкам копируешь в созданный битмап
а потом
Form.Canvas .Draw(0,0,B);

можешь перед записей строк битмапа записыватьв поток Width и Height битмапа , что бы потом воссоздать его с нужным размером
( и Left Top что бы знать куда рисовать)

Рисунки Найти похожие ветки