Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1079
от 01.03.2008, 14:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 441, Экспертов: 61
В номере:Вопросов: 1, Ответов: 1

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 124742: Добрый день. Помогите до конца разобраться с работой с LPT портом. По ниже приведенному коду произвожу запись в порт со 2 по 9 пины. Возможно также производить запись в пины 1, 14, 16 и 17 ; и читать состояние пинов 10-13 и 15 ...

Вопрос № 124.742
Добрый день.
Помогите до конца разобраться с работой с LPT портом.

По ниже приведенному коду произвожу запись в порт со 2 по 9 пины. Возможно также производить запись в пины 1, 14, 16 и 17 ; и читать состояние пинов 10-13 и 15

var
hLpt: THandle;
ret: DWORD;
Address: byte;
Data: byte;
const
IOCTL_PAR_SET_WRITE_ADDRESS = $16001C;
procedure TForm1.FormCreate(Sender: TObject);
begin
hLPT := CreateFile('LPT1', GENERIC_WRITE, 0, nil,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
CloseHandle(hLpt);
end;
procedure TForm1.Button1Click(Sender: TObject);
Var S1:PChar;
begin
//Caption:=IntToStr(EOF);
S1 := 'This is without driver print'+#10;
WriteFile(hLpt, S1^, Length(S1), ret, nil);
Edit1.Text := IntToStr(ret);
end;

СПАСИБО
Отправлен: 25.02.2008, 13:38
Вопрос задал: Супер Иван Иваныч (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 3)

Отвечает: PavelGM
Здравствуйте, Супер Иван Иваныч!

Windows не способна оперировать на уровне "пинов". Работа ведется с данными, а не с пинами, а ваши пины 2-9 - это просто 8 байт data шины. Вам нужен доступ к регистрам порта - считывание регистра состояния даст 10-13 пины, да и 15 (Error) там же. Не знаю можно ли получить такую информацию через CreateFile, но через ставший уже классическим драйвер gwiopm.sys - без проблем - у меня так индикатор работает.
Ответ отправил: PavelGM (статус: Студент)
Ответ отправлен: 27.02.2008, 12:03


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.71 от 27.02.2008
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное