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

Как писать биты напрямую в LPT в WinXP?   Найти похожие ветки 

← →
CJ Shark ©   (2004-10-07 09:24) [0]

Уважаемые мастера, мне понадобилось выставлять определённые биты (0 или 1) на определённых выводах порта LPT в Win XP.

делаю:

procedure WritePort(Port, bt: word);
asm
 mov AX,bt
 mov DX,Port;
 out DX,AX
end;

В Win 98 всё работает, но в WinXP защита от прямой записи в порт. И Delphi ругается, что out DX,AX - привелегированная инструкция!
Подскажите как быть?

---

← →
Axer ©   (2004-10-07 10:06) [1]

У меня такая же проблема. Мне кажется тут надо через CreateFile("LPT1"....) а потом WriteFile(...):

handle:=CreateFile("LPT1", GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0);

---

← →
Axer ©   (2004-10-07 10:46) [2]

Нашел очень полезную библиотеку DlPortIO говорят умеет в LPT под XP писать. Удачи.

---

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

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



Память: 0.45 MB
Время: 0.023 c