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

[bilibian]

Привет.

Пытаюсь распознать очень простую капчу.


Подумал, что разумно будет сделать изображение черно-белым, но для начала его нужно перевести в формат bmp, чтобы с ним можно было работать, исходное изображение получаю PNG.

// из Png в bmp
procedure PNGFileToBitmap(const Source, Dest: String);
var
 Bitmap: TBitmap;
 PNG: TPNGObject;
begin
 PNG := TPNGObject.Create;
 Bitmap := TBitmap.Create;
 {In case something goes wrong, free booth PNG and Bitmap}
 try
   PNG.LoadFromFile(Source);
   Bitmap.Assign(PNG);    //Convert data into bitmap
   Bitmap.SaveToFile(Dest);
 finally
   PNG.Free;
   Bitmap.Free;
 end
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  FS: TFileStream;
  html: string;
  Fon,i,j: Integer;
begin
  idHTTP1:=TIdHTTP.Create(nil);
  idHTTP1.HandleRedirects:=true;
  idHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 6.1; rv:2.2) Gecko/20110201';
  idHTTP1.HandleRedirects:=True;
  idHTTP1.ReadTimeout:=5000;

  IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  idHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;

  
  // преобразовываем из одного формата в другой
  PNGFileToBitmap('captcha.png','captcha.bmp');


  // загружаем картинку на форму
  Image1.Picture.LoadFromFile('captcha.bmp');

  
  // Определяем цвет фона
  Fon:=Image1.Canvas.Pixels[0,0];
  
  // Перекрашиваем все не фоновые  пиксели в белые остальные в черные
  For i:=0 to Image1.Picture.Width do
    For j:=0 to Image1.Picture.Height do
      If Image1.Canvas.Pixels[i,j]=Fon then begin
        Image1.Canvas.Pixels[i,j]:=RGB(255,255,255);
      end
      else Image1.Canvas.Pixels[i,j]:=0;

  // очищаем память
  IdSSLIOHandlerSocketOpenSSL1.Free;
  IdHTTP1.Free;
end;

В итоге получаю картинку без изменений. В чем может быть дело? Или есть другие пути решения?

И еще интересует один момент, разве нельзя работать с изображением без TImage? Ведь готовый код будет использоваться в нескольких потоках и придется для каждого создавать компонент TImage.

[Stilet]

В итоге получаю картинку без изменений.

А каких изменений ты ожидал от простого пересохранения файла?

И еще интересует один момент, разве нельзя работать с изображением без TImage?

Можно. TBitmap класс для этого и создан. Я правда не в курсе как с PNG работать без GDI+, но по идее в новых Делфи уже и для PNG должен быть класс соответствующий.

[DpolenST]

Может из-за того что размеры Image1 не задал?

Я обычно картинку вывожу на форму только после обработки, а до этого загружаю ее в отдельный Bitmap с которым и работаю. Так на много быстрее чем изменять картинку прямо на форме.

[bilibian]

Не получалось сделать изображение черно-белый так как кодировал не так как надо. Сделал так: чтобы символы стали черными.

Далее нужно запилить эталоны, я думаю, и сравнивать их в цикле по пикселям с оригинальной капчей, если хоть один пиксель не совпадает, то переходим к следующему эталону, а если все пиксели сошлись, то берем название эталона в качестве распознанного символа, или я мыслю не в том направлении?

Вот только где хранить эталоны? В папке, а потом подгружать по одному во время сравнивания? Или есть вариант загрузить их все в прогу и проверить?