Помогите решить задачу

[Fedorfx]

Всем привет.
Есть прога не моя.
в ней есть данные в виде боольшого списка - буквы и цыфры.(листов этак на 10 000)
ЗАДАЧА забрать данные из этой проги в мою прогу(VB)/

Думаю как делать.
посылать через сенд мессадж PgDown потом через GetPixel получать скрин из листа и через собственный распознователь символов писать все это дело в свою базу.

У кого есть мысли по самой идеи. Как реализовать почти знаю но предпологаю что алгоритм не самый быстрый.
P.S. В той проге что содержит данные я могу поменять только размер шрифта и все

Может есть готовые модули распозновалки?

[FaKk2]

Эээ... исходные данные картинка или текст?
А то думаю, нафиг распознование коли текст есть.

[GSerg]

Канэшно текст. Ты представляешь 10000 картинками? Где такой комп надыбать бы

Но даже если картинки, то их можно напринтскринить и файнридеру скормить.

[FaKk2]

Не, а зачем хитрить с конвертированием в битмап? GetWindowText отменили, чтоли? или я невнимательно прочитал...

[Fedorfx]

Дело такое.
Есть прога, которая коннектится через инет к базе и работает с данными. В ней есть окно которое ПОКАЗЫВАЕТ мне данные. Там нет ни Save as ни чего. Есть только print and preferense где я могу выбрать фонт. в принте есть принт то clipboard.

так вот данные естественно текс. Одним шрифтом и одним цветом.
Ну не знаю я softice и дебугеры мне не знакомы и socketspy конечно может и поможет но наверняка эти люди сжимают трафик и шифруют его.
Вот я и решил содрать текст через экранную копию.
Посмотрел Spy++
окно вроде стандартное
рамка - в ней класс AfxFrameOrView42s и справа scrollbar

.P.S а насчет GetWindowText не знал и не думал. А это со всеми окнами работает и что есть из этой оперы еще?

[alibek]

FAKK2, а ты возьми GetWindowText с PictureBox, на котором напечатан текст?

Fedorfx, если GetWindowText не прокатит, то только так тебе и останется делать (писать распозновалку). Но это будет не очень сложно, потому что экранный шрифт всегда будет выглядеть одинаково; просто загоняешь в буфер образы символов и затем сравниваешь их.
Если задача разовая, то советую использовать SnagIt, он может выдирать текст из изображения.

[marvan]

Предлагаю обойтись без VB
Есть программа Automate, позволяющая автоматизировать повторяющиеся действия. Есть программы Kleptomania и SnagIt. Первая распознаёт текст с экрана и имеет встроенный OCR, вторая тоже умеет хватать некст, но только из окон или в ввиде картинки, но зато умеет сама работать с прокручивающимися документами.
Но только перед этим стоит таки попытаться самостоятельно разобраться с форматом данных который использует исследуемая программа.

[Fedorfx]

GetWindowText не прокатил
буду посмотреть SnagIt
где можно посмотреть что за зверь AfxFrameOrView42s
может там есть метод для обмена данными, но нет реализации в проге?

[Fedorfx]

да кстати

Dim hHandle As Long
hHandle = FindWindow(vbNullString, "test1")
hHandle = FindWindowEx(hHandle, 0&, "AfxFrameOrView42s", vbNullString)
Dim MyStr As String
MyStr = String(GetWindowTextLength(hHandle) + 1, Chr$(0))
GetWindowText hHandle, MyStr, Len(MyStr)
txtText.Text = MyStr

второй хендл находиться но вот возвращается 1 байтик и все
по виду данных похоже на Listbox

[tyomitch]

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

Это если фон однородный. Если пёстрый - текст просто так не выделить...

[Fedorfx]

Белый фон у меня
и буковки ровные и черные
но идея мне нравиться перестала.не по пацански как то.
изучаю ее artmoney ищу массивы с данными.

[alibek]

Это если фон однородный. Если пёстрый - текст просто так не выделить...

Да, об этом я не подумал.
Но если буквы известного цвета, то логика простая -- цвет - черный, не цвет - белый.

[|kerish|]

Представляю сколько лет уйдет на сканирование и распознование всех десяти тысяч картинок в каждой по xxx пунктов...