программы не работают на 64-bit. Посоветуйте - что сделать?

[sergey-2]

в конце 80-х составил несколько программ на ТР в готовом виде (.exe) для выполнения работ со студентами. Программы включали, в том числе печать LPT на матричный принтер, чтение/запись в файлы, подпрограммы. Раньше возникали вопросы с печатью, но некоторые сборки ХР позволяли печать на матричный (с лазерным не получалось). А недавно обнаружил, что программы не работают на 64-bit. Посоветуйте - что сделать. ТР еше помню (слабо, но осталась литература), а для новых языков уже староват (мне 70). Хотелось бы, что программы работали с W 10 и с матричным принтером.
Спасибо

[alexcoder]

Попробуйте поставить виртуальную машину с DOS и пробросить LPT порт.

[digitalis]

Сообщение от sergey-2

Раньше возникали вопросы с печатью, но некоторые сборки ХР позволяли печать на матричный (с лазерным не получалось).

Странно. Если есть драйвер данного принтера, то печатать не должно быть проблем независимо от его "лазерности". Смутно подозреваю, что речь идёт о печати графики? Тогда графический режим печати из программы выполняется на уровне команд принтера (Esc-последовательность).
А если выгрузить графику в .bmp? Картинку-то оно должно распечатывать безотносительно типа принтера. Ес-сно, если установлен драйвер этого принтера.
Ну и радикальный выход: забросить ТР на антресоль и освоить что-нибудь посовременне. Delphi, например - чтобы не отрываться от привычного Паскалевского синтаксиса. Переход прост, как через улицу на зелёный.
-------------------------
Первый раз слышу, что для того, чтобы что-то напечатать, нужны специальные сборки ОС и то лишь для "кошерных" принтеров.

[Desc]

sergey-2, прекрасно понимаете что для Turbo Pascal среда обитания DOS.
Не поверю что о LPT знаете а про DOS не слышали.
Следовательно нужен DOSBox:
Turbo Pascal (With DOSBox) for PC Windows 10 – Download Latest Version
или
Turbo Pascal (With DOSBox)

P. S.
Возник попутный вопрос.
Если используете мат. плату на которой есть LPT-порт, с Windows 10 не тормозит это железо?
Подозреваю что как минимум мешает ограничение по максимально допустимому объему ОЗУ.

[sergey-2]

Сообщение от Desc

sergey-2, прекрасно понимаете что для Turbo Pascal среда обитания DOS.
Не поверю что о LPT знаете а про DOS не слышали.
Следовательно нужен DOSBox:
Turbo Pascal (With DOSBox) for PC Windows 10 – Download Latest Version
или
Turbo Pascal (With DOSBox)

P. S.
Возник попутный вопрос.
Если используете мат. плату на которой есть LPT-порт, с Windows 10 не тормозит это железо?
Подозреваю что как минимум мешает ограничение по максимально допустимому объему ОЗУ.

Я понял так: скачиваю Turbo Pascal (With DOSBox); открываю старую программу; перевожу ее в .exe.
Поясню. На занятиях применял 4-6 старых РС (2 очень старых и 2-4 с XP) с печатью на FX 800 (80-х). Если студента устраивают результаты расчетов, то он их печатает. На работе каждый год прошу не выбрасывать старые принтеры и РС. Сейчас ставят новые РС с W 10 (без LPT) и поэтому решил делать так: студент выполняет расчеты; скрин с экрана копирует в файл и потом с ним работает. Но прграммы "не пошли", т.к. 32-bit.
Почему матричный принтер. Обычный результат расчета - это 4-6 строк, а потом следующий результат и так идет лентой. Лазерный печатает 4-6 строк на 1 стр.

[Desc]

DOSBox - позволит запускать TP в виртуальной DOS.
По поводу разрядности ОС.
В 64 разрядных ОС есть директории:
Program Files (x86) - для приложений 32 бит;
Program Files - для приложений 64 бит.

В 64-разрядных версиях Windows 64-разрядные приложения устанавливаются в папку Program Files. Однако, 64-разрядные версии Windows также поддерживают 32-разрядные программы, и Microsoft не хочет, чтобы 32-битное и 64-битное программное обеспечение смешивались в одном месте. Таким образом, 32-разрядные программы устанавливаются в папку «Program Files (x86)».

Когда вы запускаете 32-разрядную программу в 64-разрядной версии Windows, уровень эмуляции WOW64 плавно перенаправляет доступ к файлу с «C:\Program Files» на «C:\Program Files (x86)». 64-разрядные программы по-прежнему используют обычную папку Program Files.

Источник: В чём разница между папками «Program Files (x86)» и «Program Files» в Windows

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

Сохранил скрин и потом с ним работать, зачем издеваться над людьми?
Перепишите исходники, вывод на матричный принтер замените на запись в файл.

[FPaul]

Если остались исходники и в них не было прямого обращения к портам, к памяти, то можно попробовать скомпилировать их при помощи FreePascal в режиме совместимости с Turbo Pascal - в начале исходника добавить

{$mode TP}

Для работы с графикой потребуется небольшая переработка исходника - модули CRT и Graph заменить на WinCRT и WinGraph, взятые http://math.ubbcluj.ro/~sberinde/wingraph/main.html
Эти новые WinCRT и WinGraph перекомпилировать в режиме совместимости Dilphi - в начале исходников добавить

{$mode Dilphi}

И в собственных исходниках подогнать целые типы переменных под объявления из модулей.

Если LPT так необходим, то тут ничего не поделать - только запуск из DOSBox с пробросом порта LPT (хотя не уверен, что это именно для LPT возможно).
Если производится печать в принтер, то можно попробовать не печатать в сам принтер, а запустив спулер печати, перенаправлять вывод в файл. Спулер печати можно взять по ссылке
lptx http://www.ibiblio.org/pub/academic/...rsx85a/240002/ Судя по описанию, он перехватывает int 17h, но не прямой доступ к порту.


Исходники - большие? Их можно привести? И покажите, как проходит работа студента на небольшом примере. Может быть всё же есть возможность быстрого переноса с небольшими изменениями на FreePascal и заменой вывода в файл вместо принтера.

[sergey-2]

Сообщение от Desc

DOSBox - позволит запускать TP в виртуальной DOS.
Сохранил скрин и потом с ним работать, зачем издеваться над людьми?
Перепишите исходники, вывод на матричный принтер замените на запись в файл.

Спасибо. Видимо, это лучший совет. Придется записывать данные в 2 файла в разных папках.
Меня от этого сдерживало следующее: студент работает по-разному и поэтому все его результаты (более подробно) приходится записывать в мой отдельный текстовый файл (студент об этом не знает). Этот файл применяю крайне редко - при конфликте или когда студент потерял свои распечатки.

[ViktorR]

а для новых языков уже староват (мне 70)

К чему весь этот переполох? Зачем цепляться за то, что тлен?
Мне немного по более, но освоил Python. Написал свою методичку ...
Для студентов это более полезным будет, да и себя надо держать в тонусе.
digitalis

Ну и радикальный выход: забросить ТР на антресоль и освоить что-нибудь посовременне. Delphi, например - чтобы не отрываться от привычного Паскалевского синтаксиса. Переход прост, как через улицу на зелёный.

В том, что бы забросить TP нет никакого радикализма. Это надо было сделать давно. Все предпосылки для этого проявились сразу, с появлением Windows.
Delphi для ученого заведения? Тут есть проблема с лицензией, но есть Lazarus, можно и Free Pascal.
А как писать на TP приложения с GUI? А как использовать API?
Есть Lazarus, можно и Free Pascal.
Программирование на Python дают во многих школах. Здесь вам и GUI и графика, и ...
Сейчас задания по ЕГЭ Информатика - это Pascal, C++, Python и школьный язык.
Кроме того, с этого года школьники сдают ЕГЭ с обязательным использованием компьютера и одной из сред программирования.
Есть желание работать, вперёд, осваивайте новые технологии и языки, ...

Не цепляйтесь за прошлое. Оно прекрасно, но пока в том, своём времени, а здесь и сейчас нужны другие знания.

[sergey-2]

Сообщение от FPaul

Если остались исходники и в них не было прямого обращения к портам, к памяти, то можно попробовать скомпилировать их при помощи FreePascal в режиме совместимости с Turbo Pascal - в начале исходника добавить

{$mode TP}

...
Исходники - большие? Их можно привести? И покажите, как проходит работа студента на небольшом примере. Может быть всё же есть возможность быстрого переноса с небольшими изменениями на FreePascal и заменой вывода в файл вместо принтера.

Спасибо. Уже давно склоняюсь к применению лазерного принтера - записывать 2-4 результата и печатать.
Меня от этого сдерживало следующее: т.к. студент работает по-разному, то все его результаты (в более развернутом виде) приходится записывать в мой отдельный текстовый файл (студент об этом не знает). Этот файл применяю крайне редко - при конфликте или когда студент потерял свои распечатки (иногда при проверке соответствия варианту задания).

Придется записывать данные в 2 файла в разных папках (одна из которых будет моя скрытая).
Скажите FreePascal будет для меня сложен ? Исходная писалась на TP5 или TP6. Последний раз ее немного изменял в 2008 (вот тогда и обнаружил, что старею). Появлялись неверные результаты и пришлось заменить некоторые word (65535) на longint.