TWebBrowser - сохранить картинку

[Air]

Здравствуйте.
Знаю как сохранить HTML-код страницы, но не понял как сохранить картинку.
О программе:
Всё просто, TWebBrowser открывает заранее указанный URL и это адрес картинки, нужно просто сохранить её на диск, но как вызвать это действо я не знаю, подскажите пожалуйста.

Заранее благодарен.

[Air]

Решение найдено.
http://programmersforum.ru/showpost....11&postcount=2

Благодарю:
Vitееf
Квэнди

[QunneD]

Эх, вот мой способ. Мало-ли захочешь его использовать

var
   img : String;
   scr : TStringList;
begin
   img := 'http://site.com/image.jpg';
   scr := TStringList.Create;
try
   scr.Add(idHTTP1.Get(img));
finally
   scr.SaveToFile('image.jpg');
   scr.Free;
end;
end;

[Alar]

Air, этот способ сохраняет не через TWebBrowser, а закачивает по http протоколу из сети.
То что вы видите в WebBrowser можно взять из кеша или WebBrowser.document

[Air]

QunneD Спасибо, приму к сведению.
Alar Как мне достать картинку из WebBrowser.document?

[asdfg]

а как получить адреса всех картинок из WebBrowser?

[Dj_smart]

Как пример посоветую пропарсить тэг <img>, хотя там наверняка есть чтото эдакое

[Air]

asdfg

uses SHDocVw;
...
function WebBrowser_GetHTMLCode(WebBrowser:TWebBrowser; ACode:TStrings):Boolean;
var
 ps:IPersistStreamInit;
 ss:TStringStream;
 sa:IStream;
 s:string;
begin
ps:=WebBrowser.Document as IPersistStreamInit;
s:='';
ss:=TStringStream.Create(s);
try
 sa:=TStreamAdapter.Create(ss,soReference) as IStream;
 Result:=Succeeded(ps.Save(sa,True));
 if Result then ACode.Add(ss.Datastring);
 finally
  ss.Free;
 end;
end;

В переменной ACode содержится массив строк HTML.
Можно назначить поиск командой Find, первым параметром задать искомое слово(<img), а второй вернёт индекс строки, которую потом нужно просканировать до значения <img src="">
далее уже сохранять строку в текстовую переменную и когда в поиске встретится код "> прекратить сканирование строки.
в той переменной должен быть адрес картинки.

всю процедуру нужно запускать циклом, чтоб отсканировать весь массив ACode.
_
Как-то так...