Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Старый 15.07.2012, 20:26   #1
NoItemName
 Рыцарь
Аватар для J-Fobos
 
J-Fobos сломал счётчик популярности :(J-Fobos сломал счётчик популярности :(J-Fobos сломал счётчик популярности :(J-Fobos сломал счётчик популярности :(J-Fobos сломал счётчик популярности :(J-Fobos сломал счётчик популярности :(J-Fobos сломал счётчик популярности :(J-Fobos сломал счётчик популярности :(J-Fobos сломал счётчик популярности :(J-Fobos сломал счётчик популярности :(J-Fobos сломал счётчик популярности :(
Регистрация: 12.04.2009
Сообщений: 394
Популярность: 47903
Сказал(а) спасибо: 515
Поблагодарили 1,124 раз(а) в 430 сообщениях
 
По умолчанию Delphi и AntiGate.com

Модуль на Delphi для работы с сервисом AntiGate.com (Антикаптча)

Модуль написан на Дельфи.
Для работы с HTTP-протоколом используется компонент Synapse.
Последнюю версию этого компонента (на момент написания это текста релиз номер 39 не обновлялся аж с 2009 года, но наверно разработчику просто больше нечего добавить в свой проект, он и так отлично работает) можно скачать [Ссылки могут видеть только зарегистрированные пользователи. ].

Модуль может распознавать каптчу из файла, по ссылке, а также из потока (TStream).

==========================
Описание функций:

Функция RecognizeAG — умеет распознавать картинку используя сервис AntiGate.com из потока, по URL-ссылке и из картинки на компьютере.
Код:
// Распознать картинку их потока
function RecognizeAG(ImageData: TMemoryStream; AGKey: String; var CaptchaRes: String; MinLen: integer=0; MaxLen: integer=0; Numeric: integer=0; Phrase: integer=0; RegSense: integer=0; Calc: integer=0; Russian: integer=0): Integer; overload;
 
// Распознать картинку из файла
function RecognizeAG(ImageFile: String; AGKey: String; var CaptchaRes: String; MinLen: integer=0; MaxLen: integer=0; Numeric: integer=0; Phrase: integer=0; RegSense: integer=0; Calc: integer=0; Russian: integer=0): Integer; overload;
 
// Распознать картинку по ссылке
function RecognizeAG(ImageURL: String; AGKey: String; var CaptchaRes: String; Cookies: String; MinLen: integer=0; MaxLen: integer=0; Numeric: integer=0; Phrase: integer=0; RegSense: integer=0; Calc: integer=0; Russian: integer=0): Integer; overload;
Параметры функции:
ImageData — поток, содержащий каптчу
ImageFile — путь к файлу каптчи
ImageURL — ссылка на каптчу
AGKey — ключ сервиса AntiGate.com для распознавания
Cookies — при распознавании по URL можно передать в функцию куки, для открытия каптчи, когда это необходимо
CaptchaRes — буффер, в который попадает текст каптчи, либо сообщение об ошибке
MinLen — 0 по-умолчанию, помечает минимальную длину текста каптчи
MaxLen — 0 — без ограничений, помечает максимальную длину каптчи
Phrase — 0 по-умолчанию, 1 помечает что каптча состоит из нескольких слов
Regsense — 0 по-умолчанию, 1 помечает что текст каптчи чувствителен к регистру
Numeric — 0 по-умолчанию, 1 помечает что текст каптчи состоит только из цифр, 2 помечает что на каптче нет цифр
Calc — 0 по-умолчанию, 1 помечает что цифры на каптче должны быть высчитаны
Russian — 0 по умолчанию, 1 помечает что вводить нужно только русский текст, 2 — русский или английский

Функция возвращает:
Номер каптчи (CaptchaID) — в случае успеха
0 (ноль) — при ошибке

Функция GetBalanceAG — выводит текущий баланс на сервисе AntiGate.com
Код:
// Получить ваш текущий денежный баланс
 function GetBalanceAG(AGKey: String): String;
Параметры функции:
AGKey — ключ сервиса AntiGate.com для распознавания

Функция возвращает:
Строку с содержанием баланса — при успехе
‘N/A’ — при ошибке

Функция ReportBadAG — отправляет жалобу о неверно распознанной каптче в сервис AntiGate.com
Код:
// Пожаловаться на неправильно разгаданный текст
function ReportBadAG(AGKey: String; CaptchaID: Integer): String;
Параметры функции:
AGKey — ключ сервиса AntiGate.com для распознавания
CaptchaID — номер каптчи, которая была неверно распознана

Функция возвращает:
Строку с результатом ответа от сервиса (OK_REPORT_RECORDED — в случае успеха)
‘N/A’ — при ошибке

==========================
Для использования модуля в своем проекте, достаточно положить файл AntiGate.pas в папку с проектом и прописать его в Uses. Пример использования функции:
Код:
procedure Test;
 
var CaptchaID: integer;
 
 CaptchaText, AntiGateKey: String;
 
begin
 
 AntiGateKey := 'c54fa68f4d5s6df245s4d5c1a4s5d8f4'; // Ключ не настоящий
 
 CaptchaID := RecognizeAG('c:\image.jpg', AntiGateKey, CaptchaText);
 
 ShowMessage(CaptchaText);
 
end;
[Ссылки могут видеть только зарегистрированные пользователи. ]
Автор модуля Geograph
________________

В любом из нас спит гений. И с каждым днем все крепче.
Запомните раз и навсегда:= 'Помочь' <> 'Сделайте за меня';
  Ответить с цитированием
4 пользователя(ей) сказали cпасибо:
-=ShoN=- (01.02.2013), Alex-Defender (06.01.2013), rolinkt (23.10.2013), Tip.the.besT (15.09.2012)
Старый 18.07.2012, 16:14   #2
Заблокирован
 Сержант
Аватар для [Na`Vi]DendI
 
[Na`Vi]DendI на правильном пути[Na`Vi]DendI на правильном пути
Регистрация: 06.06.2012
Сообщений: 131
Популярность: 102
Сказал(а) спасибо: 141
Поблагодарили 131 раз(а) в 78 сообщениях
Отправить сообщение для [Na`Vi]DendI с помощью Skype™
 
По умолчанию Re: Delphi и AntiGate.com

Большое спасибо за статью,очень давно искал,сам написал модуль ?
  Ответить с цитированием
Старый 18.07.2012, 17:19   #3
Бандеровец
 Лейтенант-командор
Аватар для VeTaL_UA
 
VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
Отправить сообщение для VeTaL_UA с помощью ICQ Отправить сообщение для VeTaL_UA с помощью Skype™
 
По умолчанию Re: Delphi и AntiGate.com

Цитата:
Сообщение от [Na`Vi]DendIПосмотреть сообщение
сам написал модуль ?

Цитата:
Сообщение от J-FobosПосмотреть сообщение
Автор модуля Geograph

________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.

Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.


  Ответить с цитированием
Старый 06.01.2013, 06:32   #4
 Разведчик
Аватар для Tip.the.besT
 
Tip.the.besT на правильном путиTip.the.besT на правильном пути
Регистрация: 17.01.2012
Сообщений: 19
Популярность: 126
Сказал(а) спасибо: 8
Поблагодарили 30 раз(а) в 11 сообщениях
Отправить сообщение для Tip.the.besT с помощью ICQ Отправить сообщение для Tip.the.besT с помощью Skype™
 
По умолчанию Re: Delphi и AntiGate.com

Попытался заюзать под XE3, не получилось... Есть версия заточенная под XE3?
  Ответить с цитированием
Старый 06.01.2013, 13:27   #5
Заблокирован
 Сержант
Аватар для Relli
 
Relli скоро будет известенRelli скоро будет известенRelli скоро будет известенRelli скоро будет известенRelli скоро будет известен
Регистрация: 19.01.2011
Сообщений: 168
Популярность: 485
Сказал(а) спасибо: 123
Поблагодарили 67 раз(а) в 48 сообщениях
 
По умолчанию Re: Delphi и AntiGate.com

Цитата:
Сообщение от Tip.the.besTПосмотреть сообщение
Попытался заюзать под XE3, не получилось... Есть версия заточенная под XE3?

ищи на самом Antigate -_-
  Ответить с цитированием
Старый 06.01.2013, 14:11   #6
 Разведчик
Аватар для Tip.the.besT
 
Tip.the.besT на правильном путиTip.the.besT на правильном пути
Регистрация: 17.01.2012
Сообщений: 19
Популярность: 126
Сказал(а) спасибо: 8
Поблагодарили 30 раз(а) в 11 сообщениях
Отправить сообщение для Tip.the.besT с помощью ICQ Отправить сообщение для Tip.the.besT с помощью Skype™
 
По умолчанию Re: Delphi и AntiGate.com

Да смотрел, тот тоже в xe3 не пашет, а чёртов антигейт в multipart/form-data принимает, не охота копаться, как с этой гадостью свяжешься, так потом три дня думаешь где ты там чёрточку не дописал, ужас короче(пишу на синапсе, нет возможности юзать MultipartFormData).

Кстати этот пример на синапсе написан, коль такая петрушка придётся его адаптировать.

Прочитал на антигейте, что можно ещё каким-то base64 отсылать, так и не понял, это тобиш закодировать в base64 и обычным POST запросом (application/x-www-form-urlencoded) отправить?

Киньте пожалуйста пример отправки в base64 если это не тот вариант как я описал.
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Прочее] Ключи antigate astafu Халява для Читера 136 09.05.2015 02:59
[Подсказка] antigate lkotikl Общение и обсуждение 1 23.12.2011 13:49
Antigate demon-rus-nsk Общение и обсуждение 2 06.12.2011 15:16
[Информация] Помощь в Delphi 7 и в других версиях Delphi Babls77 Pascal/Delphi 4 03.11.2011 22:27

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 15:07.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net