Управление программой через LPT порт

[firmwares]

Всем доброго времени суток!

Люди добрые помогите!!!

Есть программа и есть кнопка которая вист на LPT
Надо написать программу чтобы при нажатии кнопки висящей на LPT
Производила нажатие кнопки в моей программе!

У кого какие мысли?

Всем заранее большое спасибо!!!!

[raxp]

вы бы поиском воспользовались... вот статья DeKot
вот обсуждение
вот еще обсуждение

[DeKot]

Есть некоторые особенности при чтении входных сигналов.



Проще всего организовать процедуру чтения через таймер.Достаточно выставить интервал в таймере 100 - 200 (т.е. будет производиться опрос входов через каждые 100 - 200 мсек , соответственно)

procedure TForm1.Timer1Timer(Sender: TObject);
var flag_pressKey: boolean; // флаг, регистрирующий нажатие кнопки S1
begin
  if (Dec_Bin(Inp32($379))[3] = 0) and  (flag_pressKey = false) then {нажата кнопка S1}
  begin
    flag_pressKey:= true; { отметили нажатие S1, что бы при следующем такте таймера не происходил повторный запуск процедуры реакции на нажатие S1 }
    < код процедуры реакции на нажатие кнопки S1>
  end;
   if Dec_Bin(Inp32($379))[3] = 1 then flag_pressKey:= false; {когда кнопка отпущена, сброс флага }
end;

Об операторе Dec_Bin(Inp32($379))[3] = 0 почитайте в статье
работа с LPT портом

[firmwares]

Я конечно все понимаю, но вот только все эти статьи про управление устройствами которые висят на LPT, а мне нужно программой управлять через него!
Я не отридцаю тот факт, что чтото упустил.
Я очень очень прошу объясните мне что да как!
Если есть исходники или листинги, то очень хотелось бы взглянуть!
Мне это очень надо!

Мне очень трудно даются Deliphi так как все стараюсь достичь сам (некому меня учить, но я не сдаюсь)
Прошу понять как мне сложно в этом разобраться!

[raxp]

Я конечно все понимаю, но вот только все эти статьи про управление устройствами которые висят на LPT, а мне нужно программой управлять через него!

вот, про управление светодиодом и мониторинг

что касается управления кнопкой в вашей программе кнопкой "висящей" на LPT, так используйте чтение определенного сигнала и событие "клика" вашей кнопки, что ж тут "заумного-то"... можете и через sendmessage.

[DeKot]

Держи проект. Подключи кнопку S1 с резистором по схеме поста №3.

[firmwares]

DeKot
Спасибо тебе болшое!
Ты очень выручил!

[polzovatelpk]

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

Держи проект. Подключи кнопку S1 с резистором по схеме поста №3.

Объясните что должно выполняться этой программой, если замкнуть ключ в схеме в 3 посте ?

[raxp]

Ответы на ваши вопросы Владимир Дегтярь дает в номерах 3-м и 4-м нашего журнала http://procoder.info:

[DeKot]

Объясните что должно выполняться этой программой, если замкнуть ключ в схеме в 3 посте ?

Вы же хотите запустить какую то прогу при замыкании внешней физической кнопки, подключенной к LPT порту.
Вот и вставте вместо < ... >

 begin
    flag_pressKey:= true; { отметили нажатие S1, что бы при следующем такте таймера не происходил повторный запуск процедуры реакции на нажатие S1 }
    < код процедуры реакции на нажатие кнопки S1>
  end;

следующий код. То что выделено цветов замените на имя своей программы с правильно указанным путем к ней.

ShellExecute(Handle, nil, 'D:\Delphi\Программы\Other.exe', nil, nil, SW_SHOWNORMAL);

Что касается номинала резисторов ( это вопрос был в личку), то из опыта - достаточно 330- 470 ОМ (любой из этого диапазона).