Прямой доступ

← →
Tols78 (2003-05-06 07:11) [0]

Господа подскажите пожалуйсто. В Pascale писал так:

port [40$],0

И также извлекал из порта.
Как в Делфи организовать доступ к портам (прием, передача данных)

Подскажите пожалуйсто

← →
MBo © (2003-05-06 07:29) [1]

в win9X можно ассемблерной вставкой (in, out)

← →
Tols78 (2003-05-06 12:03) [2]

MBo © (06.05.03 07:29)

в win9X можно ассемблерной вставкой (in, out)

Можно по подробней.

← →
Digitman © (2003-05-06 12:21) [3]

procedure Port(PortNo: Word; Value: Byte);
asm
mov dx, ax
mov al, cl
out dx, al
end;

usage:

Port($40, 0);

← →
Tols78 (2003-05-06 18:11) [4]

Digitman © (06.05.03 12:21)

Спасибо

← →
k-man © (2003-05-06 18:55) [5]

Удалено модератором
Примечание: Задай вопрос в СВЛЕЙ ветке

← →
vuk © (2003-05-06 19:06) [6]

Если коротко, то потому, что нефиг. :o)

А если серьёзно, то нормальная операционная система должна обеспечивать защиту от сбоев, а если разрешить пользовательским процессам шарить напрямую по портам, то такую защиту обеспечить невозможно. Поэтому доступ и закрыт.

← →
Cranium © (2003-05-06 20:57) [7]

Удалено модератором
Примечание: Задай вопрос в СВОЕЙ ветке

← →
vuk © (2003-05-06 20:59) [8]

>А ели чере API
Через API = через драйвер, что не есть напрямую. Да и не к любому порту.

> Как в Делфи организовать доступ к портам (прием, передача
> данных)

> Через API = через драйвер, что не есть напрямую. Да и не
> к любому порту.

Ну если не придираться к словам то читай тут
http://delphi.vitpc.com/treasury/weights.htm

Tols78 (06.05.03 18:11)
Исправленная процедура

procedure Port(PortNo: Word; Value: Byte); asm xchg dx, ax out dx, al end;

И учти, не до всех портов пустят, и ты возможжно даже об этом не узнаешь.

Прямой доступ Найти похожие ветки