Управление Lpt Портом

[GROMIT]

Добрый вечер! Недавно сделал 2 программы для управления LPT портом, первая программа на Delphi , вот она , а другая на Turbo Pascal 7 . Первая программа работает, а вторая нет. Посылаю данные в порт я таким образом, код программы не мой, но аналогичен моему

uses dos,crt;
var
  data:byte;
begin
ReadLn(data);
port[MemW[$0040:$0008]]:= data;
end.

Но реакции ноль . Светодиод не загорается. В случае с прогой на Delphi все нормально. Может я где-то ошибся? Подскажите пожалуйста!

форум листал, только вот что-то поиск не работает на форуме, пишет что все или одно из слов короче 4-х символов

Изменено 11 февраля, 2009 пользователем GROMIT

[Реклама]

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321

[mao-sin]

port[MemW[$0040:$0008]]:= data;

А с чего вы взяли - что это ($0040:$0008) адрес LPT-порта???

[Реклама]

20% скидка на весь каталог электронных компонентов в ТМ Электроникс!

Акция "Лето ближе - цены ниже", успей сделать выгодные покупки!

Плюс весь апрель действует скидка 10% по промокоду APREL24 + 15% кэшбэк и бесплатная доставка!

Перейти на страницу акции

Реклама: ООО ТМ ЭЛЕКТРОНИКС, ИНН: 7806548420, info@tmelectronics.ru, +7(812)4094849

[marinovsoft]

($0040:$0008). Эт вроде "список оборудования" или "буфер клавиатуры"? жаль рядом ralf brown interrupt list нет

А вообще станартно для lpt1 определен адрес 0378h (оно же $378)

[Реклама]

Выбираем схему BMS для заряда литий-железофосфатных (LiFePO4) аккумуляторов

Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ очень важен контроль процесса заряда и разряда для избегания воздействия внешнего зарядного напряжения после достижения 100% заряда. Инженеры КОМПЭЛ подготовили список таких решений от разных производителей. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

[GROMIT]

Этот код я взял из одной темы по управлению LPT портом.

А как тогда надо адрес сюда вписать?

так:

port[MemW[$0378h]]:= data; ??

Изменено 11 февраля, 2009 пользователем GROMIT

[marinovsoft]

вот так

port[$378]:= data;

[Nex]

А подскажет ли кто нибудь как отправлять данные в COM порт?

[GROMIT]

2marinovsoft так в ХР не работает, там надо писать так как я в первом посте написал, только не понятно как вписать адрес лпт порта вписать

[GROMIT]

Значит так, вот тема откуда я взял тот самый код

ссылка на тему

[GROMIT]

Не знает чтоль никто? а ?

перерыл весь форум по комп электроники, обыскался гуглом, нашел все тоже самое

Изменено 12 февраля, 2009 пользователем GROMIT

[marinovsoft]

Уважаемый GROMIT! В системах класса NT, к которым и относится winXP, прямой доступ к портам запрещен. Могу посоветовать только giveIO.sys (Все, больше ничего не скажу, со всеми вопросами - в google. Тема очень "разжеванная")

[GROMIT]

ага, ясно. спасибо, сделаю на Delphi

[marinovsoft]

А подскажет ли кто нибудь как отправлять данные в COM порт?

Подскажем. В Delphi и BCB можно использовать Turbo Async Professional.

А вообще, можно поконкретнее узнать ТЗ?