Цифры с картинки по известному шрифту.

[IWTK]

Привет Всем. Вот сейчас стоит задача достать цифры с картинки.
Картинка простая почти. Содержит фон и белые цифры. В фоне от 4 до 10 цветов.
Прочитал кучу тем по этому поводу, но все хотят достать текст из каптчи, которую глазом еле распознаешь, да и потом еще при в воде не правильно вводишь. Я решил попробовать поработать с более быстрым на мой взгляд способом. Не сравнивать с шаблонами цифр, а переделать имеющуюся картинку. Подскажите как можно сделать следующее:
1. Подгрузить картинку в буфер или еще куда, и сделать ее черно белой, т.е. допустим фон белый а цифры черные, либо наоборот.
2. Потом мне ее надо нарисовать на другом окне, это я умею, вот только желательно нарисовать ее с прозрачностью фона, т.е. что бы фон был прозрачный, а цифры были полностью видны как надо.

Надеюсь на Вашу помощь. Заранее всем очень признателен.

[IWTK]

Ну раз тут никто ни чего не пишет напишу я.
Нашел функцию которая делает инверсию цветов.

function InvertBitmap(Bmp: TBitmap): TBitmap;   
var  
  x, y: integer;   
  ByteArray: PByteArray;   
begin  
  Bmp.PixelFormat := pf24Bit;   
  for y := 0 to Bmp.Height - 1 do  
  begin  
    ByteArray := Bmp.ScanLine[y];   
    for x := 0 to Bmp.Width * 3 - 1 do  
    begin  
      ByteArray[x] := 255 - ByteArray[x];   
    end;   
  end;   
  Result := Bmp;   
end;

Пример использования.
Image1.Picture.Bitmap := InvertBitmap(Image1.Picture.Bitmap);

Автор: Song

Делает именно инверсию, а мне нужно сделать черное белую. Думаю небольшое изменение этой функции решит вопрос.

Может теперь кто то что то поможет.

[IWTK]

Да пожалуйста объясните что именно в этой функции происходит. Если можно поподробней и построчно.

[spamer]

Вот посмотри эти темы, может быть может:
1
2
3
4
А также попробуй еще поискать по лову "Распознавание".