VPF::Полностью скачать страничку - Форум программистов

DenCobra

Дата 9.10.2006, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 1.12.2005

Репутация: нет
Всего: нет

Как можно скачать страничку полностью вместе с картинками. и т.п а не только голый html

Snowy

Дата 9.10.2006, 14:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

скачать html, найти в нём тэги <img> и запросить указанные там картинки.
Всё вместе это не скачивается - каждая картинка - отдельный файл и должна запрашиваться отдельно.

Teran

Дата 9.10.2006, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Цитата(Snowy @ 9.10.2006, 14:05

)

скачать html, найти в нём тэги <img> и запросить указанные там картинки.

а как же тогда быть с разными скриптами???

--------------------

Ни цего не понимаю

Fallen_Angel

Дата 9.10.2006, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 9.10.2006
Где: Екатеринбург

Репутация: нет
Всего: нет

Вот код... сохраняет с картинками и т.п.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, ActiveX, MSHTML;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SaveHTMLSourceToFile(const FileName: string;
  WB: TWebBrowser);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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
    FileStream.Free;  
  end;

  try
    WebBrowser1.ExecWB(4, 0);
  except
    on E: Exception do  ShowMessage('bred');
  end;
end;  

procedure TForm1.Button1Click(Sender: TObject);
begin  
  if SaveDialog1.Execute then
    SaveHTMLSourceToFile(SaveDialog1.FileName, WebBrowser1);  
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;

end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »