VPF::Сохранение веб страницы - Форум программистов

svarogik

Дата 13.12.2008, 23:49 (ссылка)

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

Загрузка ...

Бывалый

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

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

С помощью класса Twebbrowser сделал браузер, как сделать сохранение загруженной вебстраницы на жестком диске, и как потом организовать ее обратную загрузку с жесткого диска в браузер?

Rrader

Дата 14.12.2008, 07:51 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Код


uses OleCtrls, SHDocVw, ActiveX;

...

{ Открытие страницы с жесткого диска }
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    WebBrowser1.Navigate('file://' + OpenDialog1.FileName);
end;

...

{ Сохранение через диалог Save As }
procedure InvokeCommand(Document: IDispatch; CmdID, Options: Integer;
  var vaIn, vaOut: OleVariant);
var
  CmdTarget: IOleCommandTarget;
begin
  { Документ не пустой }
  if Document <> NIL then
  begin
    Document.QueryInterface(IOleCommandTarget, CmdTarget);
    if CmdTarget <> NIL then
    try
      CmdTarget.Exec(NIL, CmdID, Options, vaIn, vaOut);
    finally
      CmdTarget := NIL;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
  Flags: DWORD;
begin
  with WebBrowser1 do
  begin
    Flags := QueryStatusWB(OLECMDID_SAVEAS);
    if (Flags and OLECMDF_SUPPORTED <> 0) and (Flags and OLECMDF_ENABLED <> 0) then
      InvokeCommand(Document, OLECMDID_SAVEAS,
        OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);
  end;
end;

Это сообщение отредактировал(а) Rrader - 14.12.2008, 08:28

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

Let's do this quickly!
Rest in peace, Vit!

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