Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.02.2014, 07:48
Fransuz_F Fransuz_F вне форума
Прохожий
 
Регистрация: 05.02.2014
Сообщения: 12
Версия Delphi: Delphi 6
Репутация: 10
По умолчанию Работа с LPT портом

Добрый день форумчане, столкнулся с проблемой. Печатающее устройство получает информацию через линии данных интерфейса. Печать полной строки (80 символов) печатающее устройство подразделяет на 4 зоны по 20 символов в каждой. Бумага и красящая лента расположены между рядом 80 бойков и непрерывно вращающимся печатающим барабаном. Блок управления производит развертку хранимой в буферной памяти информации, сравнивает с кодом символов, находящихся перед рядом бойков, выбирает позиции совпадающих символов, затем в требуемый момент приводит в действие выбранный боек и печатает соответствующий символ. Если в буферную память печатающего устройства поступает код одной из команд Возврат каретки, Перевод строки, или Перевод формата, оно осуществляет сброс счетчика, печать содержимого буферной памяти и выполняет указанную команду - Возврат каретки, Перевод строки, или Перевод формата соответственно. Вот примерный код
Вложения
Тип файла: 7z A522-5.7z (465.9 Кбайт, 2 просмотров)
Ответить с цитированием
  #2  
Старый 20.02.2014, 10:15
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Ээ, и что нужно сделать?
Сделать, чтоб "Если в буферную память печатающего устройства поступает код одной из команд Возврат каретки, Перевод строки, или Перевод формата, оно НЕ осуществляло сброс счетчика, печать содержимого буферной памяти и выполняет указанную команду - Возврат каретки, Перевод строки, или Перевод формата соответственно"?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #3  
Старый 20.02.2014, 12:23
Fransuz_F Fransuz_F вне форума
Прохожий
 
Регистрация: 05.02.2014
Сообщения: 12
Версия Delphi: Delphi 6
Репутация: 10
По умолчанию

Вот смотрите в программе, я нажимаю на кнопку готов, поступает сигнал о готовности печатающего устройства, далее нажимаем кнопку ВК поступает ВК, далее нужно сделать запрос по нажатию кнопки Запрос на ЛПТ порт какие ножки включены, записать их в буферную память, по нажатию строб вывести эти биты то есть мы отправили на вторую и третью ножку логиескую 1 то это будет выглядеть вот так (1100000) и это должно вывестись в Label. Вот в принципе и все.
Ответить с цитированием
  #4  
Старый 20.02.2014, 15:18
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Выглядит так:
Цитата:
Ребята, столкнулся с проблемой. В общем, я вышел из дома, доехал до работы, там поработал, начальник на меня поорал, я разозлился, но до конца дня досидел и поехал домой. Дома уснул. Вот в принципе и все.

И что сделать то? За вас написать программу для работы с ЛПТ?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #5  
Старый 25.02.2014, 08:58
Fransuz_F Fransuz_F вне форума
Прохожий
 
Регистрация: 05.02.2014
Сообщения: 12
Версия Delphi: Delphi 6
Репутация: 10
По умолчанию LPT port

Имеется LPT порт, имеется программа для управления LPT порта, какую функцию или процедуру нужно написать чтоб считывать с LPT порта биты, например если все ножки отключены то будет выводиться 00000000, отправляем логическую 1 на ножки 1,2,5 выдает 11001000. Как реализовать эту процедуру помогите люди!
Ответить с цитированием
  #6  
Старый 25.02.2014, 11:54
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Вот тут почитай, и вообще про эту библиотеку. Она нормально работает, правда только до XP, в Win7 уже не работает.
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #7  
Старый 25.02.2014, 12:12
Fransuz_F Fransuz_F вне форума
Прохожий
 
Регистрация: 05.02.2014
Сообщения: 12
Версия Delphi: Delphi 6
Репутация: 10
По умолчанию

Понимаете, у меня программа готова под управление LPT порта, то есть я могу включать и отключать ножки, но мне нужно чтоб когда все ножки отключены регистра данных LPT порта, например при нажатии кнопки в Label выводилось 00000000, затем я отправляю на ножки 1,2,7,8 логическую 1 обратно нажимаю на кнопку и должно уже выводится 11000011, так вот какую процедуру или функцию мне нужно написать я не знаю, помогите с этим вопросом пожалуйста!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:10.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter