[Natalivm09]

Сообщение от robt

да, тамже все прототипы функций описаны для нее
или как обычно, непорусски ни бе ни ме?

с прототипами я разобралась, не знаю как ее подключить, первый раз с таким столкнулась

[Aristarh Dark]

Зри в корень, точнее в последнюю строку:

Delphi Prototypes

Код:

procedure PortOut(Port : Word; Data : Byte);
procedure PortWordOut(Port : Word; Data : Word);
procedure PortDWordOut(Port : Word; Data : DWord);
function PortIn(Port : Word) : Byte;
function PortWordIn(Port : Word) : Word;
function PortDWordIn(Port : Word) : DWord;
procedure SetPortBit(Port : Word; Bit : Byte);
procedure ClrPortBit(Port : Word; Bit : Byte);
procedure NotPortBit(Port : Word; Bit : Byte);
function GetPortBit(Port : Word; Bit : Byte) : WordBool;
function RightPortShift(Port : Word; Val : WordBool) : WordBool;
function LeftPortShift(Port : Word; Val : WordBool) : WordBool; 
function IsDriverInstalled : Boolean;

Important! To use these functions in your Delphi program, the correct calling convention of stdcall is required. For example:

Код:

procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';

[Natalivm09]

Сообщение от Aristarh Dark

Зри в корень, точнее в последнюю строку:

у меня так и записано, в var описала, как там. откомпиллировался, но пишет что unable to start io.sys service. файл io.dll в одну папку с проектом надо?

[Natalivm09]

короче, с 7 правда не работает, пишет не совместима...что делать??? подскажите...

[Natalivm09]

Перешла на xp(виртуальная машина) начала устанавливать, но пишет the io.sys service is present but the driver cannot be connected to. Файл io.dll загружен, но не может быть установлен! ПОЧЕМУ???????????????

[Bargest]

Я уже говорил. Пользовательские приложения - это одно. Драйвера - совсем другое. Драйвера работают в 0 кольце защиты, пользовательские - в третьем. Работа с портами в 3 кольце запрещена аппаратно (команды IN/OUT вызывают исключение и не выполняются, если конкретный порт запрещен приложению; в современных системах все порты всем запрещены). Поэтому единственный выход - работать в нулевом кольце, а это уже к драйверам.
Читай про написание драйверов, про DDK, используй соответствующие инструменты. Делать такое на делфи - как правое ухо чесать левой пяткой.

[Aristarh Dark]

Попробуй вот это, я с помощью этой библиотеки удачно управлял LPT портом в XP.
Кста, тут на форуме есть исходник.

[robt]

Сообщение от Bargest

Я уже говорил. Пользовательские приложения - это одно. Драйвера - совсем другое.

поспешил с выводами
в этой либе драйвер лежит в ресурсах и грузица при использовании оной

[Bargest]

Прикольное решение. Только вот драйвера, разработанные для одной винде, часто не грузятся в другой (что, видимо, и произошло у ТС).

З.Ы. праздный интерес: 3C0h - это что-то из регистров какого-то старенького видеоадаптера?

[robt]

Сообщение от Bargest

Прикольное решение. Только вот драйвера, разработанные для одной винде, часто не грузятся в другой (что, видимо, и произошло у ТС).

З.Ы. праздный интерес: 3C0h - это что-то из регистров какого-то старенького видеоадаптера?

там же заявлено for Windows 95/98/NT/2000/XP
а четам у ТС это ее проблеммы, виртуалка виртуалке рознь

[Natalivm09]

помогите, запускаю project, а он пишет что обнаружен троян! только при запуске, в чем дело?

[robt]

Сообщение от Natalivm09

помогите, запускаю project, а он пишет что обнаружен троян! только при запуске, в чем дело?

ну ясен фиг, если что то при старте ставит драйвер, то почему бы это не назвать трояном

[Natalivm09]

Помогите! не заню как протестировать программу, не уверена что комп на котором пишу содержит мои регистры 3с0h и 3с1h, хочу проверить читает он и записывает ли, какие регистры можно позаписывать?

[Rat]

Пиши в регистры видеоадаптера. Сразу будет видно - попала/не попала.