Canvas у... TWebBrowser

← →
TIF © (2008-03-01 22:11) [0]

Как скопировать "изображение" странички, загруженной в веб-браузер? К примеру, нужно скопировать его и отобразить на канве формы... Или сохранить в файл.

Canvas у webbrowser нет

← →
antonn © (2008-03-01 22:13) [1]

PaintTo() попробывать :)

← →
TIF © (2008-03-01 22:17) [2]

> PaintTo() попробывать :)

Уверен? Сам-то пробЫвал?

← →
TIF © (2008-03-01 22:25) [3]

НЕ РАБОТАЕТ!!!

Рисует белый пряумоугольник величиной в браузер... И всё.

← →
TIF © (2008-03-02 23:30) [4]

нашёл решение...

PaintTo() - это самоубийство... есть способ получше )

← →
Игорь Шевченко © (2008-03-02 23:34) [5]

TIF © (02.03.08 23:30) [4]

Тебя забанят и будут абсолютно правы.

> абсолютно правы.

procedure TForm1.Button4Click(Sender: TObject); var ViewObject: IViewObject; sourceDrawRect: TRect; begin if EmbeddedWB1.Document <> nil then try EmbeddedWB1.Document.QueryInterface(IViewObject, ViewObject); if ViewObject <> nil then try sourceDrawRect := Rect(0, 0, EmbeddedWB1.Width, EmbeddedWB1.Height); ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle, Canvas.Handle, @sourceDrawRect, nil, nil, 0); finally ViewObject._Release; end; except end; end;

> ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle...

-------------------------------------------------------^^^
Бред

> finally
> ViewObject._Release;
> end;

Бред

> EmbeddedWB1.Document.QueryInterface(IViewObject, ViewObject);
> if ViewObject <> nil then

А почему не
if EmbeddedWB1.Document.QueryInterface(IViewObject, ViewObject) = S_OK then
?

> except
> end;

Контрольный в голову?
В какой строке тут ожидаются исключения?

Копипастеры мастдай.

Canvas у... TWebBrowser Найти похожие ветки