Cохранить картинку с сайта загруженного в WebBrowser компонент - Работа с сетью в Delphi

Terikon · 22.11.2010, 01:36

Подскажите пожалуйста как можно сохранить картинку с сайта загруженного в WebBrowser компонент.?
Т.е. я работаю с кампонентом WebBrowser, в него загружаю сайт (как найти адрес картинки я знаю), надо сохранить именно ту картинку,каторая отображается именно в данный момент, а не та каторая будет загружена при следующем обновление.? Т.е. с КЕША.
Нашол ответ на бэйсике.
помогите на делфи переделать, или может есть ещё какой способ вытащить картинку.

Код:

Dim b() As Byte

Inet1.Protocol = icHTTP

Inet1.URL = "http://www.адрес твоей картинки"

b() = Inet1.OpenURL(Inet1.URL, icByteArray)

Open "C: est.gif" For Binary Access Write As #1

Put #1, , b()

Close #1

mihali4 · 22.11.2010, 02:50

В поиск. И внизу, в "Похожих темах" полно ответов.
Закрыто.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
получить картинку из WebBrowser	пауэрлифтинг	Общие вопросы Delphi	5	27.03.2012 13:04
WebBrowser сохранить картинку	StartMis	Работа с сетью в Delphi	3	21.10.2011 12:37
компонент WebBrowser	Sarra	Общие вопросы Delphi	10	03.11.2010 15:09
Как загрузить картинку с сайта в программу?	Neset	Работа с сетью в Delphi	2	09.03.2009 12:41
Компонент WebBrowser	ADAMIT	Общие вопросы C/C++	1	31.01.2008 12:44

22.11.2010, 01:36	#1
Terikon Форумчанин Регистрация: 22.02.2009 Сообщений: 174	Cохранить картинку с сайта загруженного в WebBrowser компонент Подскажите пожалуйста как можно сохранить картинку с сайта загруженного в WebBrowser компонент.? Т.е. я работаю с кампонентом WebBrowser, в него загружаю сайт (как найти адрес картинки я знаю), надо сохранить именно ту картинку,каторая отображается именно в данный момент, а не та каторая будет загружена при следующем обновление.? Т.е. с КЕША. Нашол ответ на бэйсике. помогите на делфи переделать, или может есть ещё какой способ вытащить картинку. Код: `Dim b() As Byte Inet1.Protocol = icHTTP Inet1.URL = "http://www.адрес твоей картинки" b() = Inet1.OpenURL(Inet1.URL, icByteArray) Open "C: est.gif" For Binary Access Write As #1 Put #1, , b() Close #1`

22.11.2010, 02:50	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	В поиск. И внизу, в "Похожих темах" полно ответов. Закрыто.