TWebBrowser и сохрванение страницы

[monrus]

Привет всем. Кто-нить знает как можно сохранять страницы сайтов с их содержимым. В TWebBrowser я не нашел такого.
Спасибо.

[zubr]

Код взят из DRKB:

Код:

procedure TForm1.SaveHTMLSourceToFile(const FileName: string; 
  WB: TWebBrowser); 
var 
  PersistStream: IPersistStreamInit; 
  FileStream: TFileStream; 
  Stream: IStream; 
  SaveResult: HRESULT; 
begin 
  PersistStream := WB.Document as IPersistStreamInit; 
  FileStream := TFileStream.Create(FileName, fmCreate); 
  try 
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream; 
    SaveResult := PersistStream.Save(Stream, True); 
    if FAILED(SaveResult) then 
      MessageBox(Handle, 'Fail to save HTML source', 'Error', 0); 
  finally 
    { В ответ на уничтожение объекта TFileStream, передаём
      soReference в конструктор TStreamAdapter. } 
    FileStream.Free; 
  end; 
end;

Только необходимо добавить unit ActiveX

[monrus]

спасибо. щас попробую

[monrus]

вот еще нашел:
Сохранение вместе с исходником все файлы (.CSS, JPG, GIF Etc..) ?
Код
1
2
3
4
5   try
       WebBrowser1.ExecWB(4, 0);
     except
       on E: Exception do  msError:=true;
     end;

А как можно сохранить всю страницу с картинками и пр. только в определенный каталог?

[zubr]

WebBrowser1.ExecWB(4, 0);

Это ты просто вызываешь команду IE на сохранение страницы, естественно, при этом выскакивает диалог выбора каталога.
Простого варианта, имхо нет. Ручками, используя объектную модель IE парсить страницу и по полученным линкам загружать и сохранять картинки. Примерно так:

Код:

//загрузка имиджа по линку в поток
function LoadImage(src:string; str:TMemoryStream):boolean;
var
  istr: IStream;
  statstg: TStatStg;
  buf: string;
  pos: Int64;
  cb: Integer;
begin
 Result := False;
 try
  istr := TStreamAdapter.Create(str, soReference) as IStream;
  If URLOpenBlockingStream(nil, PChar(src), istr, 0, nil)<>S_OK then
  exit;
  istr.Stat(statstg, 0);
  If statstg.cbSize = 0 then
  exit;
  SetLength(buf, statstg.cbSize);
  istr.Seek(0, 0, pos);
  istr.Read(@buf[1], statstg.cbSize, @cb);
  str.Position:=0;
  str.Write(buf[1], statstg.cbSize);
  str.Position:=0;
 except
  exit;
 end;
 Result := True;
end;

//парсим все имеджи страницы
procedure ParsImages;
var
  doc: IHTMLDocument2;
  allEl: IHTMLElementCollection;
  img: IHTMLElement;
  i: Integer;
  srcImg: string;
  str: TMemoryStream;
begin
 doc := WebBrowser1.Document as IHTMLDocument2;
 If doc = nil then
 exit;
 allEl := doc.all;
 If allEl = nil then
 exit;
 allEl := allEl.tags('img') as IHTMLElementCollection;
 For i:=0 to allEl.length-1 do
 begin
  img:=allEl.item(i, i) as IHTMLElement;
  If img=nil then
  continue;
  srcImg := string(img.getAttribute('src', 0));//получили линк на картинку
  //код загрузки по линку и сохранения картинки
  str := TMemoryStream.Create;
  try
   If LoadImage(srcImg, str) then
   str.SaveToFile('MyFile.gif');
  finally
   str.Free;
  end;
 end;

З.Ы. Необходимо добавить юниты mshtml и ActiveX

[Sla]

интересно то как, а шо     
TWebBrowser подгружает стили? и даже обрабатывает?
И... понимает @import ?

Тогда почему так мало хороших браузеров?

[zubr]

Sla, TWebBrowser - это программная оболочка IE, использующая его объектную модель. Что может IE - то может и TWebBrowser.

[Sla]

zubr, ага, спасибо

[monrus]

zubr
т.е. как ты показал в примере работает ИЕ? сохраняет каритнки и прю файлы?

[zubr]

Принципиально, да. А как может быть по другому? Броузер сначала загружает страницу, затем парсит все ссылки на картинки и другие объекты, все это грузит в кеш и отображает в своем окне. Другой вопрос, что механизм работы с кешем в программном интерфейсе IE никак не отображен.

[monrus]

ясно.спасибо