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

alexpzas

Дата 19.9.2010, 16:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет. Как можно сохранить программно открытую веб страницу по типу : файл-сохранить как- сохранить

Akella

Дата 19.9.2010, 21:08 (ссылка)

(голосов:1)

Загрузка ...

Творец

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

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

Код


StringList1 := idHttp.Get(http://адрес страницы);
StringList1.SaveToFile('d:\page1.html');

Snowy

Дата 20.9.2010, 09:03 (ссылка)

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

Загрузка ...

Эксперт

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

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

Что значит "программно открытую веб страницу"?

alexpzas

Дата 20.9.2010, 20:19 (ссылка)

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

Загрузка ...

Новичок

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

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

там запятая пропущена - Как можно программно сохранить , открытую веб страницу по типу : файл-сохранить как- сохранить

alexpzas

Дата 20.9.2010, 20:48 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


StringList1 := idHttp.Get(http://адрес страницы);
StringList1.SaveToFile('d:\page1.html');

у меня выдает ошибку undeclared identifier 'Get'

alexpzas

Дата 20.9.2010, 21:55 (ссылка)

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

Загрузка ...

Новичок

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

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

чуток переделал код

Код


ms:=TmemoryStream.create;
idhttp1.Get('http://ххх.net/download.php',ms);
ms.SaveToFile('c:\Temp\download.php');

Получилось, сохраняет страничку.... НО !!!! это не совсем то , что мне нужно.
Проблема в том что в любом браузере меню Файл - Сохранить как , сохраняет не только страничку но и все картинуки что есть на страничке в папку рядом с аштэмэль страничкой, а в даном случае сохраняется только одна страничка. Мне же нужен именно аналог "Файл - Сохранить как" вместе со всеми сопутствующими файлами (картинками)

Keeper89

Дата 20.9.2010, 22:41 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

http://delphi.about.com/od/twebbrowser/a/save-as-mht.htm не пойдет?

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

alexpzas

Дата 20.9.2010, 22:52 (ссылка)

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

Загрузка ...

Новичок

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

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

вот нашел одно из решений , если кому тоже будет интересно

Код


procedure TForm1.Button5Click(Sender: TObject);
var
 slPage: TStringList;
 sFName:string;
begin
slPage := TStringList.Create;

 slPage.Text :=Browser.OleObject.Document.body.innerHTML;

 slPage.SaveToFile('c:\1.html');

 slPage.Free;
 slPage := nil;
 end;

Или же способ который предложил Keeper89
думаю тему можно закрывать . Но если честно , своей цели я не добился, так как мне нужно было сохранит картинку капчи, а данные способы сохраняют статические картинки , а те которые постоянно перегенерируются как капча , данные способы не сохраняют. Это делает только сам браузер при нажатии сохранить как, и эта капча сохраняется в папку с сопутствующими файлами для данной вебстранички.
Но если у когото ещё есть идеи , буду рад ))

Добавлено через 2 минуты и 18 секунд
я так понимаю чтобы достичь нужного мне эффекта , всетаки нужно обойтись без WebBrowser

Данкинг

Дата 20.9.2010, 22:57 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(alexpzas @ 20.9.2010, 23:52

)

Это делает только сам браузер при нажатии сохранить как, и эта капча сохраняется в папку с сопутствующими файлами для данной вебстранички.
Но если у когото ещё есть идеи , буду рад ))

В DRKB были примеры "сохранить картинки с веб-странички".

smile

Цитата(alexpzas @ 20.9.2010, 21:19

)

И зачем тут запятая? Было хотя бы по-русски, а теперь вообще непонятно. smile

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

There's nothing left but silent epitaphs.

alexpzas

Дата 20.9.2010, 23:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

В DRKB были примеры "сохранить картинки с веб-странички".

что такое DRKB ?

Добавлено через 3 минуты и 44 секунды
Сам спросил сам ответил )))))))
Delphi Russian Knowlege Base (DRKB 3)
это самая большая и полная в рунете база знаний по Дельфи, составленная по материалам форумов Vingrad.ru и Sources.ru, а так же других источников.
Оффициальный сайт www.drkb.ru

Добавлено через 8 минут и 21 секунду
и кстати в DRKB "сохранить картинки с веб-странички" я не нашел

Данкинг

Дата 20.9.2010, 23:39 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(alexpzas @ 21.9.2010, 00:11

)

это самая большая и полная в рунете база знаний по Дельфи, составленная по материалам форумов Vingrad.ru и Sources.ru, а так же других источников.

Да, молодец. smile

Цитата(alexpzas @ 21.9.2010, 00:11

)

и кстати в DRKB "сохранить картинки с веб-странички" я не нашел

Как-то так:

Код


function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, 
      nil) = 0;
  except 
    Result := False; 
  end; 
end;


procedure TForm1.SpeedButton1Click(Sender: TObject);

var
  k, p: Integer; 
  Source, dest, ext: string;
begin
try
  for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
  begin
    Source := WebBrowser1.OleObject.Document.Images.Item(k).Src;
    p := LastDelimiter('.', Source);
    ext := UpperCase(Copy(Source, p + 1, Length(Source)));
    if (ext = 'GIF') or (ext = 'JPG') or (ext = 'PNG') then
    begin
      p  := LastDelimiter('/', Source);
     dest := ExtractFilePath(ParamStr(0)) + Copy(Source, p + 1,   Length(Source));
    dest:='c:\'+extractfilename(dest);
    DownloadFile(Source, dest);
    end;
  end;
MessageDlg ('Сохранено!',mtinformation,[mbyes],0);
except
showmessage ('Нет загруженной страницы!');
end;

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

There's nothing left but silent epitaphs.

Akella

Дата 21.9.2010, 09:24 (ссылка)

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

Загрузка ...

Творец

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

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

Детский сад. Ей Богу.

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