Опять FastDIB :))

← →
PenguinX © (2004-06-21 14:27) [0]

Всем привет!
Опять мучаюсь с FastDIB.
Пишу:
--------
...
procedure TForm1.Button1Click(Sender: TObject);
var b1, b2: TFastDIB;
begin
b1 := TFastDIB.Create;
b2 := TFastDIB.Create;
Image1.LoadFromFile("C:\Pictures\mypic.bmp");
b1.hDC := Image1.Canvas.Handle;
Rotate90CW(b1, b2);
Image2.Canvas.Handle := b2.hDC;
end;
...
----------
При этом Image2 остаётся пустым, хотя в Image1 отображается картинка. Если вместо строчки b1.hDC := Image1.Canvas.Handle вставить b1.LoadFromFile("C:\Pictures\mypic.bmp"), то всё нормально. Однако мне нужно не загружать изображение с помощью FastDIB, а именно присваивать контекст устройства.

← →
PenguinX © (2004-06-21 15:12) [1]

Удалено модератором

← →
PenguinX © (2004-06-21 15:46) [2]

Удалено модератором

← →
Sandman25 © (2004-06-21 15:50) [3]

Image2.Picture.Assign(Image1.Picture)?

← →
PenguinX © (2004-06-21 15:56) [4]

2Sandman25
Теперь сами вдумайтесь в то, что вы написали.

← →
Огромное Кулясище (2004-06-21 17:08) [5]

Попробуй, может, для тестирования нарисовать через BitBlt, раз уж есть Hande.

← →
Sandman25+2 (2004-06-21 17:55) [6]

PenguinX © (21.06.04 15:56) [4]

А че тут думать? Я пытался донести до Вас мысль, что Canvas
тут ни при чем.

Image2.Picture.Bitmpa.Handle := B2.HDC

2Sandman25+2
Так ведь проблема не в получении изображения с TFastDIB, а в передачи в сам TFastDIB. При операциях с изображением он работает со свойством Pixels**, а затем выводит на Device Context.
ЗЫ: Прочтите plz внимательней вопрос.

Опять FastDIB :)) Найти похожие ветки