Считать текст с картинки

[KoBRaAndrey]

Нужно считать текст с картинки, а как не знаю. Текст не капча, и не "корявый" просто текст.

[mihali4]

TextCopyHelper

Text Copy Helper позволяет снимать текст с объектов где
обычное копирование Ctrl+C, -невозможно: надписи на панелях
управления, кнопках, трее, ниспадающих меню, проводнике и
пр.

Просто возьмите прицел мышкой в правом верхнем углу
интерфейса программы и наведите его на цель, граница
которой засветятся, затем вторично нажмите кнопку мыши,
и захваченный текст будет перенесен в окно программы или
буфер обмена.

[Arigato]

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

[KoBRaAndrey]

Мне нужно допустим со скрина текст вот такой прочитать, и сохранить в лог файл. а как делать маски?

[shock-in]

Задаёшь в каком квадрате искать первую букву, прогоняешь по ней алгоритм свой на совпадения, если нашлась - записываешь в файл, то переходишь к следующему квадрату.
все буквы надо забить в примерно такой код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
c:Tcanvas;
reds1,reds2,reds3,ind1,ind2,ind3,whil,extwhil,x,y:integer;
begin
extwhil:=0;
x:=0;
y:=0;
ind1:=9436606;
ind2:=9436606;
ind3:=3247105;
while extwhil <> 1 do
begin
x:=x+1;
if x=1280 then x:=0;
if x=1279 then y:=y+1;
c := TCanvas.Create;
c.Handle := GetWindowDC(GetdesktopWindow);
reds1  := c.Pixels[x,y];
reds2  := c.Pixels[x+3,y];
reds3  := c.Pixels[x+5,y];
     ReleaseDC(0, c.Handle);
     c.Handle:=0;
c.Free;
 if (reds1 = ind1)and (reds2 = ind2) and (reds3=ind3)
 then begin
  extwhil:=1;
 showmessage(inttostr(x) + 'x' + inttostr(y));
end;
end;

криво конечно и гемора много , но впринципе должно работать

[mihali4]

Состыкуйтесь с Димоном (USDownloader), он отзывчивый парень.
Он использует для "разгадки" капчей длль-ки от файнридера.
Может, поделится технологией.

[KoBRaAndrey]

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

[raxp]

>>> тук-тук <<<

[KoBRaAndrey]

я с ним говорил по асе что в контактах написна, он не знает про библиотеки, и не пользовлася ими с файн риадер

[KoBRaAndrey]

shock-in не робит код,+ Прога повисает
Можете подсказать рабочий пример? Это ведь простейший шрифт