Полноценное управление LPT-портом в Delphi, как лучше?

[igorter]

Как работали порты из Windows 98 и младше, это я хорошо знаю, так как на практике так делал, там действительно было всё очень просто.
Ваша статья интересная и много нюансов хорошо расписано, как я изначально и хотел через WinAPI работать. Но не совсем только понял, почему в более нових ОС это не работает, если все стандартные Виндовсовские процедуры и функции используются, стандартный файловый ввод-вывод? Что-то Майкрософт отошел от своего первоизначального лозунга о совместимости старых програм с новыми ОС.

[Pavia]

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

Что-то Майкрософт отошел от своего первоизначального лозунга о совместимости старых програм с новыми ОС.

Это не новая ОС это новый сервис пак. Программисты Майкрософт тогда удалили символьную ссылку LPT1. Зачем они это сделали? Они не поясняли. Судя по современному MSDN такое впечатление, что откатили. Жалко проверить некогда.

[igorter]

Хочу еще спросить по USB-LPT адаптеру на CY7C68013A, может был опыт его использования? Всё сделал по инструкцмии с официального сайта на основе купленой на Алиэкспресе платы, подключил к разьему LPT по официальной схеме, не работает, да и русские драйвера были крывые не полные, пришлось их объединить с английской версией, вроде запустилось. Но, пины контрольного и статусного портов все-равно не работали, пока не нашел какой-то старой схемы и экспериментальным методом не понаходил все ноги микросхемы с правильными сигналами. И то две линии пришлось поменыть местами относительно этой схемы. Но, даже после этого мой принтер через этот переходник так и не запустился. Нашел в своих архивах старый компонент для LPT под Delphi TVicHW32, он тоже этого виртуального порта не видит. Его видит только родная утилита драйвера этого порта и через нее его можно тестировать. Хотя все на форумах так хвалили этой переходник.

[northener]

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

Как работали порты из Windows 98 и младше, это я хорошо знаю, так как на практике так делал, там действительно было всё очень просто.
Ваша статья интересная и много нюансов хорошо расписано, как я изначально и хотел через WinAPI работать. Но не совсем только понял, почему в более нових ОС это не работает, если все стандартные Виндовсовские процедуры и функции используются, стандартный файловый ввод-вывод? Что-то Майкрософт отошел от своего первоизначального лозунга о совместимости старых програм с новыми ОС.

Жизнь заставила. Нельзя или слишком трудоёмко реализовать такую обратную совместимость.

[Rasool]

Здравствуйте. Передо мной сейчас стоит задача управления LPT-портом из программы на Embarcadero Delphi XE в Windows 7 (в перспективе на Windows 10). Для начала хотя бы помигать светодиодами, подключенными к выводам LPT-порта. LPT-порт организован на PCI-плате , которая подсоединяется к компьютеру через PCI-Express и для нее устанавливается свой драйвер. В диспетчере устройств плата видна как WCH PCI Express=>DUAL SERIAL&&PARALLEL.
Есть вариант использовать inpout32.dll, там есть такие функции

function Inp32(PortAdr: Word): byte; stdcall; external 'inpout32.dll';
function Out32(PortAdr: Word; Data: byte): byte; stdcall; external 'inpout32.dll';

То есть для работы с LPT-портом нужно указывать адрес порта PortAdr. Где его можно посмотреть? Во вкладке "Ресурсы" свойств драйвера?

[Rasool]

Вчера заработал LPT-порт. Использовал драйвер inpout32.dll, в качестве адреса порта использовал адрес из "Диапазона ввода/вывода (I/O)" из вкладки "Ресурсы" драйвера параллельного порта в "Диспетчере устройств".

function Inp32(PortAdr: Word): byte; stdcall; external 'inpout32.dll';
function Out32(PortAdr: Word; Data: byte): byte; stdcall; external 'inpout32.dll';

    PortAdr1 := $EEFC;
    PortAdr2 := $EEFF;
    Data := 255;
    for PortAdr := PortAdr1 to PortAdr2 do
        Out32(PortAdr, Data);
    Sleep (2000);
    Data := 0;
    for PortAdr := PortAdr1 to PortAdr2 do
        Out32(PortAdr, Data);
    Sleep (2000);
    Data := 255;
    for PortAdr := PortAdr1 to PortAdr2 do
        Out32(PortAdr, Data);