[GriLab]

Доброго времени суток!

Такой вопрос: каким образом можно сохранить себе на компьютер WEB-страницу со всем содержимым, т.е. все рисунки, скрипты и тд.? Архив *.mht тоже принимается, но желательно все файлы по отдельности.

Google и Yandex не помог. Сохранение исходника страницу через IdHTTP и парсинга кода не предлагать - много работы и проблем, а времени мало.

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

[GriLab]

Почему меня игнорируют на этом форуме?

[v1s2222]

На этом сайте был исходник "скачивателя" сайтов. Поищи лучше.

[GriLab]

Спасибо, исходник я нашел. Сказать честно, это не то, что я искал. Тем более исходник вылетает с ошибкой Access Violation. Есть еще варианты?

[lmikle]

TWebBrowser и у него посмотреть какие методы есть???

Например, здесь: http://delphi.about.com/od/twebbrows...ave-as-mht.htm

И вообще, гуглом будем пользоваться перед тем как задавать вопрос?

[GriLab]

Есть еще варианты?

[GriLab]

Сообщение от lmikle

TWebBrowser и у него посмотреть какие методы есть???

Например, здесь: http://delphi.about.com/od/twebbrows...ave-as-mht.htm

И вообще, гуглом будем пользоваться перед тем как задавать вопрос?

Imikle, на данный момент это единственная страница, на которой есть сохранение в MHT и HTML. Я эту страницу как раз вчера и сохранил себе на компьютер.

Есть еще варианты, без использования TWebBrowser?

[GriLab]

Imikle, я испытал этот исходник. Ожидания не оправдались: сохраняется только текст (изображения, скрипты не сохраняются).

[Aristarh Dark]

во, картинки вроде сохраняет

Код:

uses
  CDO_TLB, ADODB_TLB;

procedure TForm1.Button1Click(Sender: TObject);
var
   Msg: IMessage;
   Conf: IConfiguration;
   Stream: _Stream;
   URL : widestring;
begin
   URL := 'http://www.delphisources.ru';

   Msg := CoMessage.Create;
   Conf := CoConfiguration.Create;
   try
     Msg.Configuration := Conf;
     Msg.CreateMHTMLBody(URL, 0, '', '') ;
     Stream := Msg.GetStream;
     Stream.SaveToFile('C:\delphisources.mht', adSaveCreateOverWrite) ;
   finally
     Msg := nil;
     Conf := nil;
     Stream := nil;
   end;
end;

ЗЫЖ CDO_TLB в windows\system32\cdosys.dll

[GriLab]

Aristarh Dark, уже этот код предлагали выше (Imikle). Не работает. Сохраняет текст страницы и все...

[Aristarh Dark]

Я именно на этом коде сохранил и картинки были.

[GriLab]

А у меня ничего не сохраняет, кроме пустых файлов формата JPG и текста страницы.