Форум: "Система";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
ВнизПроблемка с 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 вся ветка
Форум: "Система";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c