Текущий архив: 2008.04.13;
Скачать: CL | DM;
Вниз
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]
Тебя забанят и будут абсолютно правы.
← →
TIF © (2008-03-02 23:40) [6]
> абсолютно правы.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;
← →
DiamondShark © (2008-03-03 11:14) [7]
> 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;
Контрольный в голову?
В какой строке тут ожидаются исключения?
Копипастеры мастдай.
Страницы: 1 вся ветка
Текущий архив: 2008.04.13;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.01 c
