Вопрос работа с http Опции

[Unconnected]

Привет всем. Возникла такая задача - нужно научить прогу скачивать файл с файлообменника. И всё бы хорошо, делать это я умею (да и гугл знает), если есть конкретная ссылка на файл, а на нужном файлообменнике (depositfiles.com, да он и не один такой) сначала нужно подождать 60 сек, а потом уже дадут ссылку. И я вот не знаю, как вообще этот механизм работает и как с ним взаимодействовать. Так понял, там скрипт крутит счетчик, и в нужный момент запрашивает ссылку, что ли, и отображает.. как это дело парсить (или что с ним делать вообще )?

[volvo]

Не, не так. Смотри:

function Get_Address (s : string) : string;
var
  P_Start, P_Finish : Integer;
begin
   P_Start := Pos('/get_file.php?fid=', s);
   P_Finish := PosEx('''', s, P_Start);

   result := 'http://depositfiles.com/ru' + Copy(s, P_Start, P_Finish - P_Start);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   mpFormDS : TIdMultiPartFormDataStream;
   My_URL, st:string;
   first_Ans : String;
begin
   try
      IdHTTP1.Request.ContentType := 'multipart/form-data';
      IdHTTP1.HandleRedirects := true;
      mpFormDS := TIdMultiPartFormDataStream.Create;
      mpFormDS.AddFormField('submit', 'FREE downloading');  // Имитация нажатия на кнопку "Халява" : )

      MyURL := Edit1.Text;
      First_Ans := IdHTTP1.Post(MyURL, mpFormDS); // Первый ответ, его будем парсить для "fid="
      Sleep(1000); // Чуть-чуть подождать
      Memo1.Text := First_Ans; // Показать, что взяли

      // Теперь ждем минимум 60 сек. Я сделал по-наглому:
      Sleep(65000);
      // Можешь просто повесить на таймер, можешь другим потоком ждать

      // Ага, прошли 60 сек. Что дальше? А вот что:
      st := IdHTTP1.get(Get_Address(first_Ans)); // Получаем ответ сервера на GET-запрос (не POST)
      memo1.Lines.Add('GET:');
      memo1.Lines.Add(st);

      mpFormDS.Free;
   except
       // Сообщаем об ошибке
       Form1.Caption := 'Error';
   end;
end;

Вот чего я наблюдаю в Мемо:

GET:
<form action="http://fileshare177.depositfiles.com/auth-12994305304167710eedc23c832841b4-109.66.201.115-624149232-34756774-guest/FS177-9/cs16full.exe" method="get" onSubmit="download_started();show_begin_popup(0);">
<input class="download" value="Скачать файл" type="submit"/>
</form>

Ну, что с этим делать - разберешься, я думаю... Кракозябры - из-за кодировки, я предупреждал.