Скопировать картинку из WebBrowser'a

[Lumen]

Всем привет!

Подскажите пожалуйста, как реализовать сабж.
Пока сделал вот так:

Код: Выделить всё

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim mDoc As HTMLDocument
Dim i As HTMLImg
Set mDoc = WebBrowser1.Document

Set i = mDoc.images(3)
URLDownloadToFile 0, i.src, App.Path + "\" + "temp.tmp", 0, 0
Picture1.Picture = LoadPicture(App.Path + "\" + "temp.tmp")
End Sub


Интересует вопрос, как сделать то же самое не скачивая картинку в файл и загружая её оттуда. Чую что без OLE не обойтись, но затрудняюсь с реализацией. Помогите пожалуйста...

[tyomitch]

Качалка в Кирпичах.
Блин, скоро подпись себе такую поставлю

[Lumen]

tyomitch
Объясни пожалуйста тупому, как с помощью твоей качалки загрузить картинку, не сохраняя её в файл. И как к ней потом обратиться, чтобы запихнуть её в пикчербокс, а то я малость не догоняю.

Заранее спасибо.

[Хакер]

Объясни пожалуйста тупому, как с помощью твоей качалки загрузить картинку, не сохраняя её в файл. И как к ней потом обратиться, чтобы запихнуть её в пикчербокс, а то я малость не догоняю.

Ещё один желающий прочитать n-ную строчку файла, не открывая его.

Так можно, но тебе не понравится.

[GSerg]

Ещё один желающий прочитать n-ную строчку файла, не открывая его.

С чего бы?

[Хакер]

"С чего бы?" - это "Не вижу аналогии" или нечто другое?

[GSerg]

С чего такой вывод?

[Хакер]

С того, что для использования VB-шной LoadPicture нужно сохранять картинку в файл. Точно также, как для чтения файла нужно его открывать.

Автор конечно может написать свою LoadPicture, понимающую кучу форматов. Но ему едва ли этот вариант понравится.

[GSerg]

А...
Так есть OleCreatePictureIndirect, OleLoadPicture, GDIплюсная всеформатная грузилка и обёртка к оной Тёмыча...

[Хакер]

GSerg
Так первые два понимают мало форматов (не понимают jpg, gif и прочие широко распространённый в вебе). Насчёт GDI+ ничего сказать не могу. Не видел, не юзал.

[tyomitch]

Первые два понимают и JPEG, и GIF. Не понимают, из распространённых, PNG и TIFF.
Именно туда к ним и стекается стандартная LoadPicture, не прямо же в msvbvm разборщик форматов.
(Ты бы хоть проверял свои утверждения, раньше чем постить?)

[tyomitch]

Автору на заглядение, пример через обёртку:

Код: Выделить всё

Private Sub Form_Load()
Set Picture = CreateImageFromUrl("http://bbs.vbstreets.ru/templates/subSilver/images/logo_phpBB.gif").Picture
End Sub


Какая-то версия обёртки лежит на http://mix.web.ur.ru/JPEG.zip (я уже не помню, последняя там или нет).

[Хакер]

(Ты бы хоть проверял свои утверждения, раньше чем постить?)

А я сверялся с MSDN.

Там написано:

Remarks
The stream must be in BMP (bitmap), WMF (metafile), or ICO (icon) format.

[tyomitch]

А лучше бы ты прочитал хотя бы первый заголовок из выдачи http://www.google.com/search?q=OleLoadPicture