IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Вопрос работа с http
Unconnected
сообщение 5.03.2011 22:07
Сообщение #1


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


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


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Unconnected
сообщение 6.03.2011 17:36
Сообщение #2


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Короче сделал всё по инструкции (кстати, вот интересный блог, где программист Маша рассказывает про http и как с ним работать), пока в тестовой проге:

procedure TForm1.Button1Click(Sender: TObject);
var mpFormDS:TIdMultiPartFormDataStream;
begin
with idhttp1 do begin
HandleRedirects:=true;
IdHTTP1.Request.ContentType :='multipart/form-data';
request.UserAgent:=usag[random(u-1)+1];//тут куча юзер-агентов
end;
mpFormDS := TIdMultiPartFormDataStream.Create;
mpFormDS.AddFormField('submit','Бесплатно');
IdHTTP1.Post('http://depositfiles.com/ru/files/yu3qmo80r', mpFormDS);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.text:=idHttp1.Response.RawHeaders.GetText;
end;


Обновил, кстати, Indy до 10й версии - думал, начнёт работать в паре с KOL-ом, ан нет, не шмогла, AV был непобедим.. dry.gif ((
На событие OnRedirect поставил окошко Showmessage, но через минуту оно не выпрыгивает. Верно делаю? Запрос вроде нормальный уходит:



Сообщение отредактировано: Unconnected - 6.03.2011 17:51


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Unconnected   Вопрос работа с http   5.03.2011 22:07
volvo   Un, ты меня удивляешь :) У тебя браузер какой? FF?...   5.03.2011 23:22
Unconnected   Да сниффил поначалу, сторонней прогой, но потом ре...   6.03.2011 0:05
volvo   Без боя не отдаст. Там вся игра должна происходить...   6.03.2011 4:02
Unconnected   Короче сделал всё по инструкции (кстати, вот интер...   6.03.2011 17:36
volvo   Попробуй чуть по-другому: ты в результате посылки ...   6.03.2011 18:38
Unconnected   Да, получаю страницу со временем, вытаскиваю ID, ш...   6.03.2011 19:24
volvo   Не, не так. Смотри: function Get_Address (s : str...   6.03.2011 20:17
Unconnected   Ураа, заработало :)) Я сначала и Get-ом тоже пробо...   6.03.2011 21:13
Unconnected   Ааа блин, щас с ума сойду :wacko: На второй день ...   14.03.2011 21:25
volvo   Не понял... Что куда ты вставляешь? Вот я сейчас в...   14.03.2011 22:10
Unconnected   А, чёрт... вот же, совсем забыл про ограничения на...   14.03.2011 22:27
Unconnected   И ещё - просто может пригодится кому-нибудь - част...   14.03.2011 23:25
Unconnected   Принимается, как видно в правом окне, два печенья....   17.03.2011 18:41


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 9.07.2025 16:09
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"