| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как записать байт в lpt порт [D7, XP]

Дмитрий В ©   (2006-09-23 15:20:00) 

Здравствуйте! Мне нужно управлять устройством через LPT порт. В связи с этим подскажите пожалуйста, как записать в LPT порт байт.

---

Степан   (2006-09-23 21:01:00) [1]

Вот пример... Все остальное в MS Win SDK или MSDN

// .... //
var
 FHandle: Cradinal;
 Buff: array [0..0] of Byte;
 BuffSize, Count: Word;
// .... //
FHandle := CreateFile('LPT1', GENERIC_READ or GENERIC_WRITE, 0, nil,
 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if FHandle = INVALID_HANDLE_VALUE then begin
 FHandle := 0;
 Exit;
end;
Buff[0] := $FF;
BuffCount := 1;
if WriteFile(FHandle, Buff, BuffSize, Count, nil) then
 if Count = BuffSize then
   ShowMessage('Записано!')
 else
   ShowMessage('Нифига не работает');
// .... //

---

Наверх