Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.02.2013, 10:23   #1
qiperman
Пользователь
 
Регистрация: 23.02.2013
Сообщений: 14
По умолчанию Idhttp запрос

Доброго времени суток. Помогите пожалуйста новичку. Есть сайт объявлений. Я сниффером посмотрел какой запрос он отправляет. Написал такой же запрос в delphi. Есть проблема. Дело в том что этот сайт перенаправляет еще на одну страницу, для подтверждения. Подскажите как в idhttp тоже перенаправить на подтверждение, но эта страница формируется уже с моими отправленными данными. Заранее спасибо.
qiperman вне форума Ответить с цитированием
Старый 23.02.2013, 11:39   #2
Lardes
Форумчанин
 
Аватар для Lardes
 
Регистрация: 19.08.2011
Сообщений: 329
По умолчанию

У Indy для автоматического перехода существует свойство: IdHTTP.HandleRedirects := True. Можно также использовать IdHTTP.Response.Location для перехода на адрес перенаправления (редиректа)
Lardes вне форума Ответить с цитированием
Старый 23.02.2013, 17:17   #3
qiperman
Пользователь
 
Регистрация: 23.02.2013
Сообщений: 14
По умолчанию

Спасибо. Переходит только не туда. Куда надо отправлять пост запрос.
Сайт Авито.
У него есть строчка
<form method="post" action="/additem" id="f_item" class="f f_ss">
сама страничка http://www.avito.ru/additem
Заранее благодарю
qiperman вне форума Ответить с цитированием
Старый 23.02.2013, 21:03   #4
Lardes
Форумчанин
 
Аватар для Lardes
 
Регистрация: 19.08.2011
Сообщений: 329
По умолчанию

qiperman, ну так отправляй запрос туда, "куда надо".
Lardes вне форума Ответить с цитированием
Старый 23.02.2013, 21:10   #5
qiperman
Пользователь
 
Регистрация: 23.02.2013
Сообщений: 14
По умолчанию

Ну вот я пишу такую же ссылку как в сниффере, только когда я добавляю через браузер есть редиктивная ссылка, а через мою программу нету
qiperman вне форума Ответить с цитированием
Старый 23.02.2013, 21:14   #6
Lardes
Форумчанин
 
Аватар для Lardes
 
Регистрация: 19.08.2011
Сообщений: 329
По умолчанию

qiperman, ты пойми =) без кода тебе никто не поможет. Показывай =)
Lardes вне форума Ответить с цитированием
Старый 24.02.2013, 07:40   #7
qiperman
Пользователь
 
Регистрация: 23.02.2013
Сообщений: 14
По умолчанию

Вот сам код
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
list:=tstringlist.create;
list.add('private=1');
list.add('seller_name=myname');
list.add('email='+labelededit2.text );
list.add('phone=11111111111');
list.add('metro_id=9');
list.add('location_id=637640');
list.add('category_id=19');
list.add('params[44]=145');
list.add('title=title');
list.add('description=description') ;
list.add('price=0');
list.add('images[]=');
list.add('service_code=free');
list.add('main_form_submit=Продолжи ть с пакетом «Обычная продажа»');
idhttp1.Post('http://www.avito.ru/additem',list);
richedit1.text:=utf8toansi(idhttp1. Get(IdHTTP1.Response.Location));
end;
qiperman вне форума Ответить с цитированием
Старый 24.02.2013, 13:58   #8
Dellf
Пользователь
 
Регистрация: 27.12.2011
Сообщений: 21
По умолчанию

IdHTTP1.Response.Location и?
В снифире же видиш что там не? а там только "/additem/confirm".
Конечный адрес это "http://www.avito.ru/additem/confirm"
т.е. нужно делать как минимум
Код:
idhttp1.Get('http://www.avito.ru/' + IdHTTP1.Response.Location);
Но это опять же если по каким то причинам не сработает IdHTTP.HandleRedirects := True.
Либо раз уж сам делаеш Get, то HandleRedirects должен быть отключен.
Но в таком случае при редирикте будет ошибка, поэтом Пост нужно заключить в Try..
Dellf вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
IdHTTP post запрос darkblood0202 C++ Builder 6 02.05.2012 23:52
idhttp - get запрос seoanalyzer Работа с сетью в Delphi 5 29.04.2012 17:33
Idhttp ответ на post запрос andrejjka Работа с сетью в Delphi 1 30.01.2011 13:41
idhttp запрос GET пауэрлифтинг Работа с сетью в Delphi 1 14.03.2010 08:25
idHttp запрос на url, длины больше 255? TwiX Работа с сетью в Delphi 1 07.12.2009 07:12