Как записать байт в 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("Нифига не работает");
// .... //

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