Работа с LPT портом

@Fransuz_F · Регистрация: 03.02.2014

Студворк — интернет-сервис помощи студентам

Добрый день форумчане, столкнулся с проблемой. Печатающее устройство получает информацию через линии данных интерфейса. Печать полной строки (80 символов) печатающее устройство подразделяет на 4 зоны по 20 символов в каждой. Бумага и красящая лента расположены между рядом 80 бойков и непрерывно вращающимся печатающим барабаном. Блок управления производит развертку хранимой в буферной памяти информации, сравнивает с кодом символов, находящихся перед рядом бойков, выбирает позиции совпадающих символов, затем в требуемый момент приводит в действие выбранный боек и печатает соответствующий символ. Если в буферную память печатающего устройства поступает код одной из команд Возврат каретки, Перевод строки, или Перевод формата, оно осуществляет сброс счетчика, печать содержимого буферной памяти и выполняет указанную команду - Возврат каретки, Перевод строки, или Перевод формата соответственно.
Вот примерная программа

@dondublon · 20.02.2014, 08:27

Вопрос-то в чём?

@Fransuz_F · 20.02.2014, 09:02 **[ТС]**

Как это осуществить? На кнопку "Запрос" считывать биты с LPT порта и вывести их в строб,
при нажатии на кнопку "строб" вывести полученные биты в Label (какие включены или отключены. т.е 1 либо 0) там должно выводиться типо 1001101, то есть какая ножка включена а какая отключена

@dondublon · 20.02.2014, 09:09

Для начала: Delphi russian knowledge base -> Системные функции и winapi -> работа с железом -> порты.
Поскольку работа идёт через winapi, можете погуглить то же самое для С.

@Fransuz_F · 20.02.2014, 09:18 **[ТС]**

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

Для начала: Delphi russian knowledge base -> Системные функции и winapi -> работа с железом -> порты.
Поскольку работа идёт через winapi, можете погуглить то же самое для С.

Вы программу мою смотрели? Я же говорю что нужно отправить в ЛПТ порт запрос на какую либо ножку в моем случае это ножки от 2 до 8, отправить это в строб, после того как мы поймали строб записать эти данные в Label

@dondublon · 20.02.2014, 09:19

Нет, я просто сказал, куда вам копать.

@Fransuz_F · 20.02.2014, 09:21 **[ТС]**

Я просто уже копал много, но ничего не смог найти((, а эту работу до конца недели надо сдать, эх жаль наверное уволят))

@dondublon · 20.02.2014, 09:27

Точно копали много?
Гугль мне выдал первой же ссылкой: http://lexwebmaster.narod.ru/lpt_delphi.html
По-моему, там хорошо разжёвано, и установка пинов, и считывание (внизу).

@Fransuz_F · 20.02.2014, 13:02 **[ТС]**

Хорошо давайте сделаем по другому, какую процедуру написать чтоб с ЛПТ порта по нажатию кнопки выводились 0 либо 1, например нажал на кнопку процедура считала данные с ЛПТ порта если все ножки отключены выдает нам в Label или Edit 00000000, если 2,5,7, включены то 10010100. Как это мне написать с помощью какой процедуры или функции может быть

@dondublon · 20.02.2014, 13:05

Не знаю, я с LPT не работал.

@cotseec · 20.02.2014, 18:44

Работа с портами COM и LPT на низком уровне (Win7 вряд ли прокатит, на WinXP - возможно получится)
XP LPT с исходниками
посмотрите, может пригодится, также по ссылке предыдущего оратора есть библиотека Inpout32 и описание работы с ней, для

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

процедура считала данные с ЛПТ порта если все ножки отключены выдает нам в Label или Edit 00000000, если 2,5,7, включены то 10010100

используйте

Сообщение от по ссылке тов. dondublon

...Для считывания состояния (значения) используется функция Inp32. В коде выглядит так: Inp32(888);...

в результате получите значение размером байт, по которому (отдельным битам) уже можно судить о "включении/выключении ножки"

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@dondublon 4653 / 2073 / 366 Регистрация: 17.03.2012 Сообщений: 10,183 Записей в блоге: 6
	20.02.2014, 08:27
	Вопрос-то в чём? 0

@Fransuz_F 1 / 1 / 0 Регистрация: 03.02.2014 Сообщений: 13
	20.02.2014, 09:02 [ТС]
	Как это осуществить? На кнопку "Запрос" считывать биты с LPT порта и вывести их в строб, при нажатии на кнопку "строб" вывести полученные биты в Label (какие включены или отключены. т.е 1 либо 0) там должно выводиться типо 1001101, то есть какая ножка включена а какая отключена 0

@dondublon 4653 / 2073 / 366 Регистрация: 17.03.2012 Сообщений: 10,183 Записей в блоге: 6
	20.02.2014, 09:09
	Для начала: Delphi russian knowledge base -> Системные функции и winapi -> работа с железом -> порты. Поскольку работа идёт через winapi, можете погуглить то же самое для С. 0

@dondublon 4653 / 2073 / 366 Регистрация: 17.03.2012 Сообщений: 10,183 Записей в блоге: 6
	20.02.2014, 09:19
	Нет, я просто сказал, куда вам копать. 0

@Fransuz_F 1 / 1 / 0 Регистрация: 03.02.2014 Сообщений: 13
	20.02.2014, 09:21 [ТС]
	Я просто уже копал много, но ничего не смог найти((, а эту работу до конца недели надо сдать, эх жаль наверное уволят)) 0

@dondublon 4653 / 2073 / 366 Регистрация: 17.03.2012 Сообщений: 10,183 Записей в блоге: 6
	20.02.2014, 09:27
	Точно копали много? Гугль мне выдал первой же ссылкой: http://lexwebmaster.narod.ru/lpt_delphi.html По-моему, там хорошо разжёвано, и установка пинов, и считывание (внизу). 0

@Fransuz_F 1 / 1 / 0 Регистрация: 03.02.2014 Сообщений: 13
	20.02.2014, 13:02 [ТС]
	Хорошо давайте сделаем по другому, какую процедуру написать чтоб с ЛПТ порта по нажатию кнопки выводились 0 либо 1, например нажал на кнопку процедура считала данные с ЛПТ порта если все ножки отключены выдает нам в Label или Edit 00000000, если 2,5,7, включены то 10010100. Как это мне написать с помощью какой процедуры или функции может быть 0

@dondublon 4653 / 2073 / 366 Регистрация: 17.03.2012 Сообщений: 10,183 Записей в блоге: 6
	20.02.2014, 13:05
	Не знаю, я с LPT не работал. 0