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

> ВНИМАНИЕ!

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

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Вопрос работа с http
сообщение
Сообщение #1


mea culpa
*****

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

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


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


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #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 -


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

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


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

 





- Текстовая версия 9.09.2025 19:01
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name