[alikoder]

Совсем запутался с задачей.

Суть вот в чем:

1) Есть сайт на котором размещен различный контент для загрузки.
2) Имеется чужой исходник менеджера загрузки через indy.
3) На сайте стоит примитивный способ ограничения скачки этого самого контента (тобишь стоит таймер на 60 секунд перед началом скачивания того или иного файла). Почему примитивный - потому, что в исходном коде каждой странички, на одной и той же строке, есть ссылка на нужный файл, скопировав которую, можно скачать файл без 60 секунд ожидания.

Теперь вопросы.
Как научить менеджер загрузки, при заходе по адресу именно данного сайта, находить нужную строку, что скопировать url из неё в буфер обмена.

И еще.... каким вообще способом известные всем менеджеры загрузки, перехватываю ссылку на скачивание из браузеров? Внедряя свои плагины в них или ставят хуки... как же??? Весьма озадачен данным вопросом, не могу спокойно уснуть уже которую ночь, размышляя как это воплотить.
P.S. Никакой инфы по этому вопросу уже долго не могу найти...

[poli-smen]

Сообщение от alikoder

Как научить менеджер загрузки, при заходе по адресу именно данного сайта, находить нужную строку, что скопировать url из неё в буфер обмена.

Сначала делаешь проверку на имя хоста (сайта). Если совпадает делаешь разбор (парсинг) скачанного HTML-файла.

Сообщение от alikoder

И еще.... каким вообще способом известные всем менеджеры загрузки, перехватываю ссылку на скачивание из браузеров? Внедряя свои плагины в них или ставят хуки... как же???

Обычно внедряют свои плагины в браузеры.

[alikoder]

Сообщение от poli-smen

Сначала делаешь проверку на имя хоста (сайта). Если совпадает делаешь разбор (парсинг) скачанного HTML-файла.

Что то не пойму, нужно все время скачивать каждый html файл?

Ммм а насчет плагинов именно для перехвата ссылки, есть какая нибудь информация?

[poli-smen]

Сообщение от alikoder

Что то не пойму, нужно все время скачивать каждый html файл?

А ты хочешь имея только исходный URL и не обращаясь к интернету из него получить прямую ссылку на нужный контент?

Сообщение от alikoder

Ммм а насчет плагинов именно для перехвата ссылки, есть какая нибудь информация?

Нет. Плагины для браузеров я не писал - не было нужды. Но если бы понадобилось, то я начал бы с >>google<<.

[M.A.D.M.A.N.]

Берешь Cygwin, там есть утилиты для работы с сетью, типа wget/curl, так же есть разнородные утилиты для работы с регулярками, пишешь шелл-скрипт, далее запускаешь и радуешься (с).

[alikoder]

M.A.D.M.A.N. Спасибо попробую!

poli-smen а насчет парсинга, как парсить страницу если нужна только строчка с ссылкой на файл, и поместить её в edit.
Просто я вообще понять не могу этот парсинг, примеры искал, все не то... или может плохо искал...

<script>
	function linkclick() {
		var so = new SWFObject("client_adv_600x400-14.swf", "mymovie", "600", "400", "8", "#336699");
		so.addVariable("timeWait", 5);
		so.addVariable("fileLink", "http://www14.test.ru/smEdg5QNU/439043/1%2F22%5D.avi");
		so.addParam("wmode", "transparent");
		so.write("linkmodal");
		$('#linkmodal').modal();
	}
</script>

[alikoder]

ууууууу что то почитал и еще больше запутался

[NumLock]

Pos для "fileLink"

[alikoder]

нумлок - я понимаю дружище, но как реализовать не врубаюсь, смотрел несколько примеров в сети, пробовал переделывать для себя, на этом все.... ну не шарю я в этом парсинге, можешь направить меня на путь истинный?

[poli-smen]

Сообщение от alikoder

нумлок - я понимаю дружище, но как реализовать не врубаюсь, смотрел несколько примеров в сети, пробовал переделывать для себя, на этом все.... ну не шарю я в этом парсинге, можешь направить меня на путь истинный?

Если в Memo1 вставить html-текст, то по нажатию кнопки Button1 из этого html-текста будет извлечена ссылка (URL) в Edit1:

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  cFindText: string = 'so.addVariable("fileLink", "';
var
  p1, p2: Integer;
  Html, Url: string;
begin
  Html := Memo1.Lines.Text;
  Url := '';

  p1 := Pos(cFindText, Html);
  if p1 > 0 then
  begin
    Inc(p1, Length(cFindText));
    p2 := PosEx('"', Html, p1);
    if p2 > 0 then
    begin
      Url := Copy(Html, p1, p2 - p1);
      if not AnsiStartsText('http://', Url) then Url := '';
    end;
  end;

  Edit1.Text := Url;
  if Url = '' then MessageDlg('Ссылка не найдена', mtError, [mbOK], 0);
end;

Также можно воспользоваться регулярными выражениями:

1. Текст с высоты птичьего полета или Регулярные выражения
2. Использование VBScript RegExp в Delphi

[alikoder]

спасибо добрый человек!