IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Работа с портами
сообщение
Сообщение #1


Гость






Необходимо осуществлять работу с COM портом - подскажите пожалуйста как это делается ? Не могу найти стандартные процедуры ввода вывода в порт в Хелпе. Слышал про Port и PortW, но как их использовать не понял. Если можно примеры (BorlandPascal или TurboPascal под Windows).
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Четыре квадратика
****

Группа: Пользователи
Сообщений: 579
Пол: Мужской

Репутация: -  4  +


Код
var MyPort:text;
begin
 assign(MyPort,'CON');{<==}
 Rewrite(MyPort);
 WriteLn(MyPort,'123')
end.


Вместо CON (консоль) можно:
--LPT1,LPT2,LPT3 - принтеры (насчет др. устройств на этих портах не знаю sad.gif )
--PRN = LPT1
--COM1,COM2
--AUX = COM1
--NUL - в пустоту


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


Хочу добавить:
1. Port, и PortW это виртуальный масив аппаратных портов (в бейсике in|out).
2. Чтобы порт принтера работал в винде, надо в настройках принтера включить эмуляцию LPT порта для Dos приложений.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 22.11.2017 17:54
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"