Распознавание капчи.

[zumm]

Ну тогда да, остается только каллибровать этап "Четкая"

[Alex Cones]

Не вижу эффекта - что-то напутал в коде?

procedure TForm1.Button7Click(Sender: TObject);
Var
 Bit : TBitMap;
 X, Y : Integer;
 X1, Y1 : Integer;
 C : Integer;
begin
  Gauge1.MaxValue := 49;
  Image8.Picture.Bitmap.Assign(Image7.Picture.Bitmap);
  Image8.Repaint;
  For Y := 0 To 49 Do
  Begin
   For X := 0 To 129 Do
    Begin
     Bit := TBitMap.Create;
     Bit.Width := 130;
     Bit.Height := 50;
     Bit.Assign(Image7.Picture.Bitmap);
     With Bit.Canvas do
      begin
       Brush.Color := $0000FF;
       FloodFill(X,Y,Pixels[X,Y],fsSurface);
      End;
     C := 0;
     For Y1 := 0 To 49 Do
      For X1 := 0 To 129 Do
       If Bit.Canvas.Pixels[X1, Y1] = $0000FF Then Inc(C);
     With Image1.Canvas do
      Begin
       Brush.Color:=clWhite;
       If C < 25 Then Image8.Canvas.FloodFill(X, Y, clBlack, fsBorder);
      End;
     Bit.Free;
    End;
    Gauge1.Progress := Y;
    Gauge1.Repaint;
    Image8.Repaint;
   End;
end;

P.S. На скорост пока забейте - потом оптимизирую.

[Virtson]

а что должен делать код (по какому принципу удаляются внутренние) ?

[Alex Cones]

ЦИКЛ по Х и У
НАЧ
КОПИРУЕМ БИТМАП
ДЕЛАЕМ ЗАЛИВКУ ПО ПИКСЕЛЮ Х, У
СЧИТАЕМ КОЛИЧЕСТВО ЗАЛИТЫХ ПИКСЕЛЕЙ.
ЕСЛИ МЕНЬШЕ НЕК. ЗНАЧЕНИЯ - ДЕЛАЕМ ЗАЛИВКУ ЦВЕТОМ ФОНА В ОРИГИНАЛЕ.
КОН

Описывал в третьем посте этой темы.

[Virtson]

Считаю, здесь (и в др. подобных задачах) функция попиксельной заливки своя нужна,
такая что кол-во пикселей сразу считает.

[Alex Cones]

какие успехи по проекту ?

Пока приостановил, пока двиг не доделаю и прог на нем не перепишу.

[TwiX]

Сам когда-то парился над этой темой... Пришёл к выводу, что лучше использовать antigate, т.к. писать свой распознаватель очень долго, а изменить скрипт по генерации капчи - 5 минут. Так, когда билайн немного переделал свой сайт, у меня умер распознаватель капчи для отправки смс =)
А проблема по ходу вот в чём:

Image8.Canvas.FloodFill(X, Y, clBlack, fsBorder);]

Т.е мы заливаем чёрную точку с параметрами clBlack, fsBorder. Тут либо надо изменить clBlack на clWhite, либо fsBorder на fsSurface (без разницы)

Если FillStyle = fsBorder, то наоборот, заполняется область окрашенная любыми цветами, не равными Color, а на цвете Color метод останавливается

Т.е. мы остановимся сразу на нашей точке

[Johnson]

ведь нету буквы состоящей из двух независимых частей

Ы?

И ещё на капчах этого генератора частенько К видна как I< соответственно и распознается криво...

[54545456]

"К видна как I<"

а зачем здесь распознавать символы?)
тут на капче только буквы и цифры.
и вообщем апнем темку) что еще реализовано? и если можешь, тс, скинь плиз исходник +) особенно интересует код удаления линий, т.к. все остальное у меня реализовано. сейчас главное осталось удалить линии, разрезать на символы, и обучать НС =)

[_SERGEYX_]

Еще зависит от цвета фона и шрифта. Если взять схожие цвета, например 255-0-0 и 255-0-255, то при преобразовании в ч/б получится черный цвет. И распознавать будет нечего. Пример на картинке. Я как-то делал на сайте капчу таким образом:
вывожу на капчу символы обычным текстом без наворотов и под ней текстовая надпись "введите первый и третий символы". "Первый и третий" получаю через Random. За все время ни один бот не проскочил.