Скачать: CL | DM;

Как записать байт в lpt порт   Найти похожие ветки 

← →
Дмитрий В   (2006-09-23 15:20) [0]

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

---

← →
Степан   (2006-09-23 21:01) [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("Нифига не работает");
// .... //

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.047 c