Lpt порт и delphi

[_PROGRAMM_]

Добрый вечер. Вот какой вопрос у меня возник. Почитал я тут статью. Я нашел много интересного, но сейчас не об этом. Я уже занимался с lpt портом, экспериментировал, вставлял светодиоды и т.д., но мне помогала программа wndlpt. Теперь я хочу сделать свою. В общем наткнулся на то что нужно использовать библиотеку input32 (кстати для семерки 32 разрядной подойдет? Если нет, то что использовать?) пишу я, допустим, код

out32(888, data);

Насколько я знаю, если data:=1 then загорится светодиод, питающийся от первого пина(может я не прав), Какую информацию мне нужно отправлять чтобы зажечь 1,2,3 и т.д пины? Собственно, это меня больше всего интересует.
Спасибо.

[Silver_S]

www.dsioffe.narod.ru/stuff/spp.doc
Мне когда-то эта информация помогла.

Чтоб зажечь 2 пин, переменной data задаем значение 1. Каждый бит data отвечает за отдельный пин (см инфу)
Если нужно зажечь несколько пинов, устанавливайте в Data несколько битов.

[_PROGRAMM_]

Каждый бит data отвечает за отдельный пин (см инфу)

Спасибо, но я не нашел

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

[raxp]

...поищите статьи Владимира Дегтяря. Да, собственно, и тем на форуме достаточно, поиск по тегу "LPT".

[Silver_S]

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

Спасибо, но я не нашел

Смотрите подзаголовок "Программные регистры стандартного параллельного порта (SPP)"
Опишу первую табличку
База - базовый адрес порта, в нашем случае 888 = $378.
База + 0 = 888 + 0 (стандарный адрес , как в вашем случае).
Восемь бит - "Биты 7-0" (то бишь байт) записанные в этот порт отвечают за "Данные 7-0"
Смотрим большую табличку выше - пины данных со 2 по 9.
то есть если написать

out32(888, 3);

на пины 2(данные 0) и 3(данные 1) подадутся логические единицы т.к 3 = 1 + 2, т.е. установлены 0 и 1 биты.

[Smitt&Wesson]

Я для своих разработок использую IOPort. Бесплатная версия вполне работоспособна, только при каждом запуске программы, будет выскакивать окошко. Стоимость лицензии тоже невысокая - 700 деревянных. Ставится как компонент. Удачи.

[_PROGRAMM_]

Я для своих разработок использую IOPort

Да не. Я ради спортивного интереса хочу сам сделать.

[mifka72]

когда-то очень помог:
http://www.pcports.ru/Articles.php

раздел "Программирование LPT порта"

[_PROGRAMM_]

База - базовый адрес порта, в нашем случае 888 = $378.
База + 0 = 888 + 0 (стандарный адрес , как в вашем случае).
Восемь бит - "Биты 7-0" (то бишь байт) записанные в этот порт отвечают за "Данные 7-0"
Смотрим большую табличку выше - пины данных со 2 по 9.

Спасибо огромное. Все понял.

когда-то очень помог:

Посмотрите мой первый пост. Он затеян из-за этих статей.

[mifka72]

А я почитал, и разобрался, там даже пример программы на дельфи есть.
На основе неё делал программку управления пинами и плату с лампочками и переключателями для "обратной связи".

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