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

Проблемка с LPT и CreateFile   Найти похожие ветки 

← →
chernoruk ©   (2002-08-18 14:20) [0]

Создаю handle:=CreateFile("lpt1",...)
Далее с помощью FileWrite(handle, buffer, 1, nil)
-в общем символ один туда посылаю, а светодиоды не мигают...

---

← →
chernoruk ©   (2002-08-18 21:34) [1]

Вроде для файла получается, а для порта-нет

---

← →
DC-AC   (2002-08-19 07:28) [2]

И для порта получается. Для принтера получится, а для светодиодиков - нет ;-)

---

← →
France   (2002-08-19 09:30) [3]

Там надо через ассемблерную вставку колбасить. Напиши, отвечу.
Здесь надо долго писать.

---

← →
France   (2002-08-19 09:32) [4]

Ах, да...забыл
serpantin@list.ru

---

← →
France   (2002-08-19 09:47) [5]

Ага, вот нашел!!!

Выводим в порт

procedure ToLPT;
begin
asm
mov al, <Данные>
mov dx, <Порт ($378, $37A)>
out dx, al
end
end;


Принимаем из порта

function InLPT:byte;
begin
asm
mov dx, <Порт ($279, $379)>
in al,dx
mov Result,al
end;
end;

Вот и все!

---

← →
Green_mkp   (2002-08-19 18:46) [6]

Ну ну , тока для NT 2K XP будет вам на asm-е
розовая птица обломинго :-)
тут дровина нужна

---

← →
Serg Gurin   (2002-08-26 00:05) [7]

Не совскм так просто как писал France. Там надо переключать регистр при чтении или записи. А что касается NT 2K XP - есть драйвер который позволяет это делать. К сожалению отчень медленный. Мне приносили прогу, утверждая что при ее запуске в этих версиях windows можно и на асме писать - будет работать, но проверить - руки не дошли.

---

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

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



Память: 0.46 MB
Время: 0.012 c