VPF::загрузить картинку в PicturesBox из WebBrowser

xXxSataNxXx

Дата 27.12.2009, 00:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 25.12.2009

Репутация: 1
Всего: 1

На сайте есть строчка

Код


<img src="......" height=150 width=300>

Как отобразить эту картинку в PicturesBox?

diadiavova

Дата 27.12.2009, 12:12 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Извлеки из элемента значение атрибута src и передай его методу Load пикчербокса. Если картинка отображается в браузере, то можно конечно и из кэша, но это надо винапи юзать и я не помню как это делается.

Добавлено через 3 минуты и 29 секунд
http://forum.vingrad.ru/forum/topic-266078...y1917444/0.html

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

xXxSataNxXx

Дата 29.12.2009, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 25.12.2009

Репутация: 1
Всего: 1

Спасибо, я уже понял как... А если извлечь ресурсную ссылку, то картинка будет уже другая...

Код


Imports System.Runtime.InteropServices

<ComImport()> _
<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)> _
<GuidAttribute("3050F669-98B5-11CF-BB82-00AA00BDCE0B")> _
Public Interface IHTMLElementRenderFixed
    Sub DrawToDC(ByVal hdc As IntPtr)
    Sub SetDocumentPrinter(ByVal bstrPrinterName As String, ByVal hdc As IntPtr)
End Interface

А функция сама выглядит так:

Код


Public Function HTMLImgToBitmap(ByRef HTMLImg As Object) As Bitmap
        Dim Render As IHTMLElementRenderFixed = HTMLImg
        Dim Bmp As Bitmap = New Bitmap(CInt(HTMLImg.width), CInt(HTMLImg.height))
        Dim Grph As Graphics = Graphics.FromImage(Bmp)
        Dim Hdc As IntPtr = Grph.GetHdc
        Render.DrawToDC(Hdc)
        Grph.ReleaseHdc(Hdc)
        Grph.Dispose()
        Return Bmp
    End Function

Добавить, например, кнопку Button1 с кодом:

Код


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each c As HtmlElement In WebBrowser1.Document.Images
If c.GetAttribute("width") = 150 And c.GetAttribute("height") = 150 Then PictureBox1.Image = HTMLImgToBitmap(c.DomElement)
Next
End Sub

Это сообщение отредактировал(а) xXxSataNxXx - 29.12.2009, 21:18

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »