Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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



Ответ
 
Опции темы
Старый 18.11.2011, 22:43   #1
Arsenx777
Delphi, c++, php
Форумчанин
 
Аватар для Arsenx777
 
Регистрация: 14.03.2011
Адрес: Мос.обл. г.Химки
Сообщений: 288
Репутация: 8

skype: Arsen-Pro
По умолчанию Распознание капчи

Я учусь распозновать капчу, но у меня не получатся избавиться от фона, он разноцвентый, не как не получается, и не знаю как их разразать, пробовал через цыклы, нечего хорошего не вышло
Может у кого нить есть исходники, или примеры? Выложите пожалуйста, хочу понять алгоритм) и каким образом это реализуется.
6yqy 6JIaroqapeH ))
__________________
Мудр тот, кто знает нужное, а не многое.

Arsenx777 вне форума   Ответить с цитированием
Старый 18.11.2011, 23:12   #2
Son Of Pain
Профессионал
 
Регистрация: 23.12.2010
Адрес: Киев
Сообщений: 1,129
Репутация: 370

icq: 388676648
По умолчанию

Тащем там есть множество алгоритмов, и они все достаточно сложные. Придется разбираться с быстрым преобразованием Фурье, например, и еще со многими страшными штуками из теории распознавания образов.
Son Of Pain вне форума   Ответить с цитированием
Старый 19.11.2011, 00:07   #3
mihali4
*
Профессионал
 
Регистрация: 22.11.2006
Адрес: Москва
Сообщений: 9,198
Репутация: 2661
По умолчанию

При создании темы или ответа на существующий вопрос вам необходимо соблюдать следующие несложные правила:

0. Воспользоваться поиском по форуму (или "погуглить") по интересующему вас вопросу. Темы, созданные без выполнения этого пункта и имеющие кучу "близнецов" в "Похожих темах", будут просто молча закрываться, а затем уничтожаться. Так что не стоит удивляться и возмущаться - проще подумать...

Если написать грамотным русским языком - "распознавание капчи", то ответ найдется моментально.
mihali4 вне форума   Ответить с цитированием
Старый 06.12.2011, 06:07   #4
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Адрес: Химки
Сообщений: 12,266
Репутация: 2569
По умолчанию

Хороший вариант распознованяи капчи несколько раз поднимался на этом форуме - это использование либов фанридера. программы что распознаёт текст введёный через сканер.
Alar вне форума   Ответить с цитированием
Старый 24.01.2014, 17:30   #5
beegl
Программ Аналитик
Профессионал
 
Аватар для beegl
 
Регистрация: 24.05.2008
Адрес: Днепропетровск, Ukraine
Сообщений: 1,272
Репутация: 456

icq: 62754415
skype: stepanext
По умолчанию

подскажите, как распознать цвет картинки в обычном Image1,
надо примерно так:
Код:

 if Image.Picture.Bitmap.Canvas = clLime then

beegl вне форума   Ответить с цитированием
Старый 24.01.2014, 17:47   #6
doktor255
Заблокирован
 
Регистрация: 31.03.2011
Сообщений: 979
Репутация: 94

icq: 521823
По умолчанию

Распознать цвет картинки? Что за бред? Распознай тогда цвет этого форума. Это же тоже вроде как картинка на дисплее.
doktor255 вне форума   Ответить с цитированием
Старый 24.01.2014, 18:34   #7
beegl
Программ Аналитик
Профессионал
 
Аватар для beegl
 
Регистрация: 24.05.2008
Адрес: Днепропетровск, Ukraine
Сообщений: 1,272
Репутация: 456

icq: 62754415
skype: stepanext
По умолчанию

мне надо как-то узнать, какого цвета картинку будет загружена с вебсервиса (On-Line - Off-Line). См. скрин:



Код:

uses
   ComObj, Urlmon;

procedure TForm1.Button1Click(Sender: TObject);
const
  CUrlString = 'http://status.icq.com/online.gif?uin=%s&img=5';
var
  UIN: string;
  URL: string;
   FImageFileName: string;
begin
if Timer1.Enabled = True then
begin
Exit;
end;
if (EditUIN.Text <= '') or (EditUIN.Text < '') then
begin
EditUIN.Text := 'Enter UIN:';
Timer1.Enabled := True;
Exit;
end;
  UIN := Trim(EditUIN.Text);
  StateImage.Picture := nil;
  URL := Format(CUrlString, [UIN]);
  OleCheck(URLDownloadToFile(nil, PChar(URL), PChar(FImageFileName), 0, nil));
  StateImage.Picture.LoadFromFile(FImageFileName);
end;

чтоб результат был примерно такой:

Код:

if Image.Picture.Bitmap.Canvas = clLime then

если знаете как подскажите)

Последний раз редактировалось beegl; 24.01.2014 в 18:40. Причина: добавил код
beegl вне форума   Ответить с цитированием
Старый 24.01.2014, 18:58   #8
Luuzuk
Участник клуба
 
Аватар для Luuzuk
 
Регистрация: 18.01.2012
Адрес: Самара
Сообщений: 975
Репутация: 605

icq: З7ЧЗЗ89Ч5
По умолчанию

Цвет можно узнать у конкретного пикселя
Код:

if Image.Canvas.Pixels[x, y] = clLime then...

где x и y - координаты нужного пикселя на картинке.
Вот как-то так
__________________
Благодарить в репутацию. Проклинать — туда же
Luuzuk вне форума   Ответить с цитированием
Старый 24.01.2014, 19:21   #9
beegl
Программ Аналитик
Профессионал
 
Аватар для beegl
 
Регистрация: 24.05.2008
Адрес: Днепропетровск, Ukraine
Сообщений: 1,272
Репутация: 456

icq: 62754415
skype: stepanext
По умолчанию

какая-то ошибка

Код:

 if StateImage.Canvas.Pixels[12,12] = $000000FF then
  begin
  showmessage('On-Line');
  end;

beegl вне форума   Ответить с цитированием
Старый 24.01.2014, 19:29   #10
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 16,821
Репутация: 5909
По умолчанию

StateImage.Picture.Bitmap.Canvas.Pi xels
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар на форуме   Ответить с цитированием
Ответ



Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Распознание изображений kroŧ PHP 3 20.05.2011 19:00
Распознание ASCII капчи Blade Общие вопросы C/C++ 1 04.05.2010 17:09
Распознание речи в Delphi toxich Мультимедиа в Delphi 8 28.03.2010 08:54
Распознание текста DOLBY Общие вопросы Delphi 13 14.02.2008 14:31




13:52.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru