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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.07.2014, 14:10   #1
WeezyWayne
Пользователь
 
Регистрация: 26.04.2014
Сообщений: 26
По умолчанию Получение капчи и дальнейшее использование

Уже часов 5 себе мозг "имею".
Как получить капчу на регистрацию отсюда : http://money-birds.com/signup ?
Вот что последнее пробовал :

Код:
html:=HTTP.Get('http://money-birds.com/signup');
Delete(html,1,pos('<img src="/captcha.php?rnd=',html)+length('<img src="/captcha.php?rnd='));
Delete(html,pos('"',html),length(html));

stream:=tmemorystream.create;
http.get('http://money-birds.com/captcha.php?rnd='+html,stream);
stream.savetofile('D:\1.png');
stream.free;
image1.picture.loadfromfile('D:\1.png');
Вылетала ошибка : ss (2014-07-16 at 02.10.00).jpg

Помогите, пожалуйста

P.S. И если не сложно, то приведите пример отправки запроса на регистрацию с полученной капчей. А то при каждом новом запросе она же меняется, а я не в куриваю как по другому делать )

Последний раз редактировалось Stilet; 16.07.2014 в 15:08.
WeezyWayne вне форума Ответить с цитированием
Старый 16.07.2014, 15:07   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Видимо ты получаешь не PNG, а какой-то другой формат.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.07.2014, 15:18   #3
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,242
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Видимо ты получаешь не PNG, а какой-то другой формат.
Да не.
Вот это
Код:
http.get('http://money-birds.com/captcha.php?rnd='+html,stream);
выдает пустой stream.
Sibedir вне форума Ответить с цитированием
Старый 16.07.2014, 15:45   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
выдает пустой stream.
А. ну может быть и так.
А может быть просто после приема нужно прописать stream.Position:=0; чтоб сохранявка отработала норм
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.07.2014, 17:36   #5
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
А. ну может быть и так.
А может быть просто после приема нужно прописать stream.Position:=0; чтоб сохранявка отработала норм
savetofile пофиг на позицию.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 17.07.2014, 08:30   #6
WeezyWayne
Пользователь
 
Регистрация: 26.04.2014
Сообщений: 26
По умолчанию

С куками капча забирается...

Код:
http.Request.Host:='money-birds.com';
http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8';
http.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/35.0.1916.153 Safari/537.36';
http.Request.Referer:='http://money-birds.com/signup';
http.Request.AcceptEncoding:='gzip,deflate,sdch';
http.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
http.request.customheaders.add('Cookie: PHPSESSID=hp7nv8p81gipe4i99iaj11ag25');
html:=HTTP.Get('http://money-birds.com/signup');
Delete(html,1,pos('<img src="/captcha.php?rnd=',html)+length('<img src="/captcha.php?rnd='));
Delete(html,pos('"',html),length(html));

stream:=tmemorystream.create;
http.get('http://money-birds.com/captcha.php?rnd='+html,stream);
stream.savetofile('D:\1.png');
stream.free;
image1.picture.loadfromfile('D:\1.png');
Как теперь её отправить ? Ведь при следующем запросе капча будет другой и сайт мою не примет.
WeezyWayne вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получение капчи snip4ik Работа с сетью в Delphi 6 26.02.2013 01:30
получение капчи - как такое возможно? winhttp C# (си шарп) 3 08.01.2013 22:47
Дальнейшее использование выбранного диапазона ячеек shaurma.ru Microsoft Office Excel 3 28.05.2011 02:43
Написание программы и дальнейшее работа с проектом. rossijanin Свободное общение 28 04.11.2010 22:13
НУЖНО НАПИСАТЬ ПРОГУ И ДАЛЬНЕЙШЕЕ ЕЕ СОПРОВОЖДЕНИЕ! shurpet Фриланс 2 03.09.2007 18:13