делфи7 и LPT

[gothic]

Доброго всем времени суток. Товарищи програмисты я начинающий в этом деле поэтому прошу помощи у вас. Нужна помощь в написании программы работающей с LPT(далее ЛПТ) портом. Я знаю что ЛПТ порт имеет 8 двунаправленных цепей. Их то и нужно задействовать. Нужно чтобы при замыкании контактов ЛПТ порта воспроизводился один из восьми звуков в зависимости от замкнутого контакта.

[mss]

ЛПТ порт имеет 8 двунаправленных цепей

Иметь-то он их имеет, только вот использовать его для указанного режима ввода можно лишь в случае когда порт работает в режиме не ниже EPP, а режим порта выставляется в BIOS Setup и изменить его средствами ОС невозможно, не говоря уже о приложении.
Так что если режим порта - SPP, то затея обречена на провал.

[gothic]

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

в режиме не ниже EPP,

У меня ЛПТ порт всегда стоит в таком режиме. Нужна помощь просто в написании программы работающей в этих 8-и цепях.

[raxp]

статьи DeKot-а, используй поиск/

[Swarog]

gothic - щас тебя еще не много обламаю, не важно что у тебя стоит в биосе, epp режим не будет работать пока не пройдет процедуру согласования. Если устройство не поддреживает EPP, (а набор переключателей точно не поддерживает ), порт будет работать в SPP режиме. Собственно говоря это было раз. ЛПТ порт ты используешь родной тот что на системнике? если нет тогда твоя идея становится еще сложнее. Если все же на системнике...
в спп режиме у тебя на вход работает всего 5 линий. Можно увеличить но тогда придется поработать со схемотехникой. У меня в дипломе ЛПТ расширяется до 144 линий работающих как на вход так и на выход (двунапраленные) правда цена такому расширению резкое сокращение скорости (в 4 раза на запись и в 2 раза на чтение) и здоровый ящик с декодерами и тригерами. Теперь как работать: ищешь в интернете библиотеку InpOut32.dll, объявляешь две функции из нее:

function Inp32 (PortAddress: LongWord): LongWord; stdcall; external 'inpout32.dll' name 'Inp32';
procedure Out32 (PortAddress, value: LongWord) stdcall; external 'inpout32.dll' name 'Out32';

твои данные ты можешь читать следующим образом

data := inp32($379);

переключатели подключай к 10, 11, 12, 13 и 15 контакту на розетке (распиновку поищие в инете), да кстати 10 контак инверсный если на входе 0 то читается 1 и наоборот.

вот собственно и все. можешь конечно попробывать подключить контакты на шину данных, может что и получится тогда тебе надо будет читать адрес $378. На тех машинах что мне достались данный фокус не прошел.

[gothic]

ЛПТ уменя родной на компе. Но мне еще нужно чтобы определенная кнопка запускала определенный звук. (нужен код программы)

Всего звуков восемь.

[Swarog]

читаешь порт если установлены биты воспроизводишь звук, как читать я показал, как воспроивзодить звук не знаю, надо лезть в поиск. расчитывай что у тебя будет всего 5 звуков, либо делай расширитель порта, на вскидку для 8 входов понадобится один дешифратор 3-8, и 2 микросхемы (2и-не)х4, опрашивай циклично, прерывания от ЛПТ ты не отловишь

[gothic]

Немного раннее я писал:

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

Товарищи програмисты я начинающий в этом деле

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

[raxp]

...попробуйте скачать себе на машину cправочник Delphi-World, ответы на многие вопросы вы найдете там/

...насчет LPT, поиском вы не пользовались 1 2 3 4 5 6 7 (темы уже заезженые и разжеванные)

[gothic]

поиском я пользовался но ничего понятного не нашел