Это не статья, это ближе к руководству...
Предыстория такова - один очень хороший человек регулярно постит на netz.ru новость с подборкой из 5-6 обоин. Обоины красивые спору нет, НО - для того чтобы их выкачивать - приходится ручками говорить качалке: "давай вот этот файл... а потом вот этот... а потом ещё и вот этот..." что, согласитесь, недоедает. Поскольку моя любимая качалка (Download Master) не умеет сама генерить закачку на тысячу-полторы обоин ;-) через некоторое время было найдено решение, о котором я и хочу вам рассказать.
Собственно, для тех кто понимает Delphi (паскаль) решение вот оно:
===== CUT MegaDownload.dpr =====
USES SysUtils;
{$APPTYPE CONSOLE}
var a: Longint;
BEGIN
for a:=StrToInt(ParamStr(3)) to StrToInt(ParamStr(4)) do WriteLn(ParamStr(1)+IntToStr(a)+ParamStr(2));
END.
===== CUT MegaDownload.dpr =====
Это хозяйство компилится (delphi 5 в моём случае), и запускается следующим образом:
MegaDownload.exe <префикс_имени_файла> <постфикс_имени_файла> <номер_с_которого_начинать> <номер_по_который_выдавать>
Где:
<префикс_имени_файла> - строка, которая идет _до_ номера картинки в линке,
<постфикс_имени_файла> - строка, которая идет _после_ номера картинки в файле,
<номер_с_которого_начинать>, <номер_по_который_выдавать> - без комментариев.
Например, для netz-овского коллектора строка запуска будет выглядеть так:
megadownload "http://netz.ru/images/uploads/" ".jpg" 1700 1774
Что мы имеем на выходе?
На выходе мы имеем вывод на консоль вида:
http://netz.ru/images/uploads/1700.jpg
http://netz.ru/images/uploads/1701.jpg
.
.
.
http://netz.ru/images/uploads/1773.jpg
http://netz.ru/images/uploads/1774.jpg
Ну а если перенаправить этот вывод в файл, а полученный файл скопировать в буфер обмена - любая уважающая себя качалка (см. выше) подхватит его и предложит добавить список файлов в закачку. Что собственно и добивались
Напоследок два линка:
http://www.vetton.ru/ - оченно хороший сайт с обоями.
http://www.target.org.ru/download/megadownload.rar - исходник, скомпиленный .exe и .bat-пример.
Предыстория такова - один очень хороший человек регулярно постит на netz.ru новость с подборкой из 5-6 обоин. Обоины красивые спору нет, НО - для того чтобы их выкачивать - приходится ручками говорить качалке: "давай вот этот файл... а потом вот этот... а потом ещё и вот этот..." что, согласитесь, недоедает. Поскольку моя любимая качалка (Download Master) не умеет сама генерить закачку на тысячу-полторы обоин ;-) через некоторое время было найдено решение, о котором я и хочу вам рассказать.
Собственно, для тех кто понимает Delphi (паскаль) решение вот оно:
===== CUT MegaDownload.dpr =====
USES SysUtils;
{$APPTYPE CONSOLE}
var a: Longint;
BEGIN
for a:=StrToInt(ParamStr(3)) to StrToInt(ParamStr(4)) do WriteLn(ParamStr(1)+IntToStr(a)+ParamStr(2));
END.
===== CUT MegaDownload.dpr =====
Это хозяйство компилится (delphi 5 в моём случае), и запускается следующим образом:
MegaDownload.exe <префикс_имени_файла> <постфикс_имени_файла> <номер_с_которого_начинать> <номер_по_который_выдавать>
Где:
<префикс_имени_файла> - строка, которая идет _до_ номера картинки в линке,
<постфикс_имени_файла> - строка, которая идет _после_ номера картинки в файле,
<номер_с_которого_начинать>, <номер_по_который_выдавать> - без комментариев.
Например, для netz-овского коллектора строка запуска будет выглядеть так:
megadownload "http://netz.ru/images/uploads/" ".jpg" 1700 1774
Что мы имеем на выходе?
На выходе мы имеем вывод на консоль вида:
http://netz.ru/images/uploads/1700.jpg
http://netz.ru/images/uploads/1701.jpg
.
.
.
http://netz.ru/images/uploads/1773.jpg
http://netz.ru/images/uploads/1774.jpg
Ну а если перенаправить этот вывод в файл, а полученный файл скопировать в буфер обмена - любая уважающая себя качалка (см. выше) подхватит его и предложит добавить список файлов в закачку. Что собственно и добивались
Напоследок два линка:
http://www.vetton.ru/ - оченно хороший сайт с обоями.
http://www.target.org.ru/download/megadownload.rar - исходник, скомпиленный .exe и .bat-пример.