Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c