Проблемка с 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 можно и на асме писать - будет работать, но проверить - руки не дошли.

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