[8shar]

Доброго дня. Есть программа скрин которой здесь:
http://antsa.narod.ru/img.jpg
Вверху есть рамочка, в рамочке значения давления, температуры, расхода, мне нужно их забрать от туда. Программа старая (вроде как) MSDOS, использует процесс который называется NTVDM.EXE, он является вирт.машиной, исполняющей 16-разрядные ДОС-приложения.
Все это выводиться в консоль (CMD проще говоря).
Мне позарез нужно достать от туда эти данные:
Что я УЖЕ (за 3 дня) знаю что есть:

ReadConsoleOutput
http://winapi.freetechsecrets.com/wi...soleOutput.htm
В ReadConsoleOutput функция читает характер и цвет атрибут данных из прямоугольных блоков характера клеток в буфер экрана консоли, а также функция записывает данные в прямоугольных блоков на указанном месте в буфер назначения.

ReadConsoleOutputAttribute
http://winapi.freetechsecrets.com/wi...tAttribute.htm
В ReadConsoleOutputAttribute функция копии указанного количества плана и цвет фона атрибуты из последовательных ячеек консольный буфер экрана, начиная с указанного места.


ReadConsoleOutputCharacter
http://winapi.freetechsecrets.com/wi...tCharacter.htm
В ReadConsoleOutputCharacter функция копии ряда персонажей из последовательных ячеек консольный буфер экрана, начиная с указанного места.

Я делаю:

Код:

var
 pid: DWORD;
 hStdout: thandle;
 Buffer:array of integer;
 c:coord;
 wr:cardinal;
begin
 c.X:=1;
 c.Y:=1;
 GetWindowThreadProcessId(FindWindow('C:\WINDOWS\system32\cmd.exe',nil), @pid);
 hStdout := GetStdHandle(STD_OUTPUT_HANDLE);
 ReadConsoleOutputAttribute(hStdout,@Buffer[0],2,C,Wr);

 Memo1.Lines.Add(IntToStr(buffer[0]));
 Memo1.Lines.Add(IntToStr(wr));
end;

Но не работает. Помогите пожалуйста разобраться. Мне просто позарез нужны эти цифры...

[Страдалецъ]

Не пользовался такими функциями, но могу предположить, что чтение аттрибута вам ненужно, если там консоль интерпретируется как экран 80х25, то имеем 4000 байт, где 2000 байт аттрибут цвета (нафик вам ненужные) и 2000 байт собственно знаки. Потому скорее всего надо использовать ReadConsoleOutputCharacter. Могу так-же предположить, что вместо Buffer:array of integer; надо сделать Buffer:array[1..2000] of byte;
Тогда по логиге из Buffer вас будет интересовать 2 и 3 строка т.е. 81-240 символы.

[8shar]

Сообщение от Страдалецъ

Тогда по логиге из Buffer вас будет интересовать 2 и 3 строка т.е. 81-240 символы.

А там же есть C: coord мы задаем координаты точки откуда начинать чтение, и 2 значит сколько символов читать. Можно просто функцию написать потом ее 14 раз (по числу параметров) вызвать и записать в 14 переменных. а потом уже работать с ними.

[Страдалецъ]

Можно и так конечно, хотя большой разницы нет, что 14 раз вызвать функцию с нужными координами, что прочитать один раз 160 байт и обращаться к нужному элементу по индексу.

[8shar]

Только вопрос как получить это??!?!?!?

[Страдалецъ]

У меня появилось сильное сомнение, что

Код:

 
hStdout := GetStdHandle(STD_OUTPUT_HANDLE)

правильно отрабатывает, чему равен у вас hStdout