Работа с портами LPT

← →
Cat (2004-08-25 15:40) [0]

Здравствуйте...
В Паскале есть фун-ия: Port[порт]. А есть ли что либо подобное
в Дельфи? Т.е нужно прочитать и считать биты LPT порта
В идеале мне бы кусочек подобного кода на Дельфи царапните,
var
x : integer;
begin
Port[378h] :=222;
Port[379h] :=x;
end.
Заранее спасибо
The Cat

← →
Sergey Kaminski © (2004-08-25 15:48) [1]

В Делфи нет такого псевдо-массива, как был в Паскале.
Но зато никто не отменил ассемблер in,out.

НО: Windows линейки NT тебе не позволит напрямую обратиться к порту, только из драйвера.

← →
oldman © (2004-08-25 15:53) [2]

"нужно прочитать и считать биты LPT порта"

А это что, разные операции? :)))

← →
Cat (2004-08-25 15:56) [3]

Да, я уже пробовал, выводит ошибку
begin
asm
mov ax, 2 или mov ah, 2
out 379h, ah или ax
end;
end.
Как будто только out до 99h, а дальше ошибки, типа, не знаю такие
порты

Есть альтернатива (по памяти пишу) инициализация принтера
и через регистры в переменные вгонять?
asm
mov ah, 3
mov dx, 7
int 17h // вообщем инициализирует порт

end;

← →
Cat (2004-08-25 15:58) [4]

Так это ж долго на ассемблере писать
А, хотя не в тему конференции вопрос, но может чирканете
API функции работы с портами LPT?

← →
oldman © (2004-08-25 16:02) [5]

Ну ты захотел - прерывание инициализации порта...
Ты еще int 13h обработай! Под ХР!!! :)))

А CreateFile разве не поможет?

← →
Cat (2004-08-25 16:08) [7]

Да, если на вывод, то помогает через PrinterDialog выводить
бесспорно

А мне надо еще и считать управляющие биты

тебе сюда http://www.specosoft.com

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