Как скопировать х.Canvas в Printer.Canvas?

← →
Геннадий (2003-07-22 18:42) [0]

Приветствую!

Необходимо распечатать содержимое окна броузера. Как это выполнить? В нижеприведённом коде принтер печатает ПУСТУЮ страницу...

var H : THandle; DC : HDC; Can : TCanvas; begin If not PrintDialog.Execute then Exit; H:= WebBrowser.Handle; DC:= GetDC(H); Can:= TCanvas.Create; Can.Handle:= DC; Printer.BeginDoc; Printer.Canvas.Handle:= Can.Handle; Printer.EndDoc; Can.Free; end;

Подскажите, кто сталкивался.

← →
Sandman25 (2003-07-22 18:45) [1]

WebBrowser.PaintTo(Printer.Canvas.Handle, ...)

← →
Sandman25 (2003-07-22 18:47) [2]

Или что-то типа того. Только что в help нашел, никогда не использовал :)

← →
Marser (2003-07-22 21:10) [3]

printer.canvas.assign(x.canvas)

← →
Геннадий (2003-07-23 13:31) [4]

Sandman25 © (22.07.03 18:45)
WebBrowser.PaintTo(Printer.Canvas.Handle, ...)

Нет - чистый лист выходит...

procedure TPrintForm.PrintBitBtnClick(Sender: TObject); var H : THandle; DC : HDC; Can : TCanvas; begin If not PrintDialog.Execute then Exit; H:= WebBrowser.Handle; DC:= GetDC(H); Can:= TCanvas.Create; Can.Handle:= DC; Printer.BeginDoc; //Printer.Canvas.Handle:= Can.Handle; WebBrowser.PaintTo(Printer.Canvas.Handle, 0, 0); Printer.EndDoc; Can.Free; end;

← →
BOA_KAA (2003-07-23 14:09) [5]

> Marser © (22.07.03 21:10)
> printer.canvas.assign(x.canvas)

Вы бы сначала попробовали...

> PaintTo

F1: Call PaintTo to draw the control on a device context.
Как вы собираетесь нарисовать контрол на принтере?

Поробуйте использовать StretchBlt

← →
REA (2003-07-23 14:12) [6]

А у самого браузера нет печати? Имхо лучше будет.

← →
Переяслов Григорий (2003-07-23 14:17) [7]

А если Printer.Canvas := Can; ?

← →
Геннадий (2003-07-23 16:49) [8]

REA © (23.07.03 14:12)
А у самого браузера нет печати? Имхо лучше будет.

К сожалению, нет. Я не нашёл такого метода.

Переяслов Григорий © (23.07.03 14:17)
А если Printer.Canvas := Can; ?

Read only property, что б его! :))

← →
Переяслов Григорий (2003-07-23 17:56) [9]

Как так, я спокойно рисую на Printer.Canvas?
А если использовать его метод CopyRect?

← →
Геннадий (2003-07-24 14:54) [10]

Переяслов Григорий © (23.07.03 17:56)
Как так, я спокойно рисую на Printer.Canvas?
А если использовать его метод CopyRect?

Рисовать - можно. Но в данном случае необходимо отрисовать другой, уже подготовленный Canvas.

← →
Переяслов Григорий (2003-07-24 15:27) [11]

Так вот. Напиши процедуру рисования и передавай ей как параметр канву. И передавай ей потом через этот параметр канву компонента или канву принтера. Так у меня реализована возможность предварительного просмотра перед печатью. (пример содрал, кстати, из книжицы Тома Свана "Delphi 4. Библия разработчика").

К примеру.

procedure DrawPage (C : Canvas);
begin
. . .
C.Rectangle(...
. . .
end;

begin
DrawPage(Panel1.Canvas);
. . .
DrawPage(Printer.Canvas);
end.

Примерно вот так

← →
BOA_KAA (2003-07-24 15:59) [12]

← →
Геннадий (2003-07-24 16:45) [13]

:)) Так не я рисую!

Я загружаю в компонент WebBrouser сохранённый HTML-файл. Он его отображает. Вот это отображение мне и надо распечатать.

BOA_KAA © (24.07.03 15:59)
> Геннадий © (23.07.03 16:49)

Да сделайте через StretchBlt

Сейчас посмотрю что за метод.

← →
BOA_KAA (2003-07-24 16:48) [14]

> Сейчас посмотрю что за метод.
Это API :-)

← →
Геннадий (2003-07-26 16:50) [15]

Не в ту степь я копаю... Canvas WebBrouser"а не содержит всей страницы - только выделенная часть (экономный, блин:) ).

Как скопировать х.Canvas в Printer.Canvas? Найти похожие ветки