Как сохранить всю страницу из нета (с картинками!)?
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Как сохранить всю страницу из нета (с картинками!)? - 2007-07-31 20:59:44.176666
|
|
|
Joe Black
Сообщений: 5
Оценки: 0
Присоединился: 2007-07-31 18:18:34.553333
|
Как сохранить всю страницу из нета вместе со всеми картинками
в папку, в один фаил (формат вроде *.mht) ?
Если кто знает компонет, хотя лучше бы исходники…
|
|
|
|
|
RE: Как сохранить всю страницу из нета (с картинками!)? - 2007-07-31 21:02:28.396666
|
|
|
Mahoraz
Сообщений: 2908
Оценки: 30
Присоединился: 2007-03-15 20:51:18.450000
|
Какой еще компонент, файл-сохранить как-веб архив и все…
|
|
|
|
|
RE: Как сохранить всю страницу из нета (с картинками!)? - 2007-07-31 22:26:54.086666
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
quote:
Какой еще компонент, файл-сохранить как-веб архив и все…
Он имел ввиду программно из _своей_программы_ =)
По сабжу:
Парси сорец паги на теги типа <img> и прочую лабудень, сохраняй на жеский ..
|
|
|
|
|
RE: Как сохранить всю страницу из нета (с картинками!)? - 2007-08-04 22:33:02.240000
|
|
|
sergeiprog
Сообщений: 302
Оценки: 0
Присоединился: 2007-04-24 10:02:27.956666
|
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.Button1Click(Sender: TObject);
var
k, p: Integer;
Source, dest, ext: string;
begin
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') then
begin
p := LastDelimiter('/', Source);
dest := ExtractFilePath(ParamStr(0)) + Copy(Source, p + 1,
Length(Source));
DownloadFile(Source, dest);
end;
end;
end;
|
|
|
|
|
RE: Как сохранить всю страницу из нета (с картинками!)? - 2007-08-05 14:17:56.840000
|
|
|
IGAL
Сообщений: 6
Оценки: 0
Присоединился: 2007-05-18 16:09:54.373333
|
Поише прогу для закачки сайтов.:D
|
|
|
|
|
RE: Как сохранить всю страницу из нета (с картинками!)? - 2007-08-05 15:49:49.316666
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
IGAL, мама в детстве думать не научила? аффтар просит программый метод, чтобы реализовать его в своей проге, а не бля ссыль к примеру на Teleport Pro.
sergeiprog, фигня а не код, ибо каскадные стили, Java скрипты и прочее даже не ишет ..
|
|
|
|
|
|
