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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.02.2016, 20:35   #1
nokia8801
 
Регистрация: 15.01.2016
Сообщений: 4
Сообщение Капча на OLX.ua

Всем привет! Довольно интересная тема - это отправка сообщений авторам объявлений на OLX.ua. Проблема состоит лишь в том что картинка капчи формируется при помощи ссылки http://olx.ua/captcha/ , где в ответе получаем просто картинку. Пытаюсь реализовать это программно с помощью IdHTTP1. Для этого делаю GET запрос на объявление. За тем делаю запрос/выгрузку капчи, за тем отправляю в виде данных:
Код:
LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo.Add('contact[email]=');
LoginInfo.Add('contact[txt]=99999999999999999999999999999999999999999999999999');
LoginInfo.Add('attachment[0]=');
LoginInfo.Add('contact[captcha]='+capcha.Text);
Но если в браузере FireFox эта тема прокатывает, то через программу ничего не происходит.
Кстати авторизацию я делаю спокойно и отправляю сообщения авторам до появления капчи элементарно. Но с капчей отправлять не хочет. В чем может быть дело? Ниже приведу коды кнопок.
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);


begin

IdHTTP1.Get('http://olx.ua/obyavlenie/iphone-3gs-32gb-white-neverlock-IDiz7yq.html');


end;
Код:
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Fileload('http://olx.ua/captcha/', 7);
//g:=idHTTP1.Get('http://olx.ua/obyavlenie/iphone-3gs-32gb-white-neverlock-IDiz7yq.html');  //Идем на страничку
//LoginInfo := TStringList.Create;
//Response := TStringStream.Create('');
//LoginInfo.Add('contact[email]=');
//LoginInfo.Add('contact[txt]=88888888888888888888888888888888888');
//LoginInfo.Add('attachment[0]=');

//IdHTTP1.Post('http://olx.ua/obyavlenie/iphone-3gs-32gb-white-neverlock-IDiz7yq.html',LoginInfo,Response);
//g:=utf8toansi(Response.DataString);
//if pos('введён', g)<>0 then begin
// showmessage('Не верно введен код');
// fileload('http://olx.ua/captcha/', 7);
//end;

end;
Код:
procedure TForm1.BitBtn3Click(Sender: TObject);
var
cap: string;
LoginInfo: TStringList;
Response: TStringStream;
g: string;
begin

LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo.Add('contact[email]=');
LoginInfo.Add('contact[txt]=99999999999999999999999999999999999999999999999999');
LoginInfo.Add('attachment[0]=');
LoginInfo.Add('contact[captcha]='+capcha.Text);


//IdHttp1.Request.Host:=('olx.ua');
//IdHttp1.Request.UserAgent:=('Mozilla/5.0 (Windows NT 6.1; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0');
//IdHttp1.Request.Referer:=('http://olx.ua/obyavlenie/iphone-3gs-32gb-white-neverlock-IDiz7yq.html');
//IdHttp1.Request.Accept:=('image/png,image/*;q=0.8,*/*;q=0.5');
//IdHttp1.Request.AcceptLanguage:=('ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
//IdHttp1.Request.AcceptEncoding:=('gzip, deflate');
//IdHttp1.Request.Connection:=('keep-alive');
//IdHttp1.Request.CacheControl:=('max-age=0');
IdHTTP1.Post('http://olx.ua/obyavlenie/iphone-3gs-32gb-white-neverlock-IDiz7yq.html',LoginInfo,Response);
end;
nokia8801 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автоизация на OLX.ua IDHTTP nokia8801 Общие вопросы Delphi 4 19.01.2016 12:20
Оказать содействие в размещении объявлений на сайте olx по определенным стандартам сайта uliana Свободное общение 6 24.09.2012 22:22
Капча losbl9 Работа с сетью в Delphi 1 17.01.2012 18:08
Капча Boy7407 Общие вопросы Delphi 1 06.01.2012 18:59
Капча! jkeher Фриланс 3 18.11.2011 02:04