Ищу схему управление LPT портом и исходник к нему на Delphi 7

exzitronic · 09.10.2013, 15:00

Ищу схему управления через LPT порт на Delphi 7...Помогите пожалуста,встретил схему на 300 управляющих нагрузок но исходника к нему нет,я новичок "любитель"в программировании,но с портами дело не имел и не представляю себе как реализовать все это...Может кто поможет мне,нужна схемка управлением нагрузкой на 100 выходов и помогиие с написанием кода на Delphi 7...пожалуста помогите мне с этой проблемкой...Хочу реализовать автоматику через комп,чтоб он управлял выходами,пишу схему типа "умный дом" наткнулся на эту проблему не могу решить как это реализовать чтоб она управляла так сказать "светом,электрозамками,сигнализацией и так далее"буду сильно благодарен если к этому поможете реализовать схемку через LPT которая посылая в порт выполняла команды на компе,а потом на выходе LPT управляла устройствами...
Помогите пожалуста...Програму пишу не для продажи,а для себя.Хочу собрать нечто такое,но в портах я слаб.....
Помогите кто чем может...

exzitronic · 09.10.2013, 15:13

Требования не кретичны,можно и через COM порт лишбы было управление и исходник к нему...

tempora · 09.10.2013, 16:42

LPT-порты встречаются всё реже и реже, что будете делать, если с завтрашнего дня их не станет совсем?

exzitronic · 09.10.2013, 17:14

Для этого есть переходники...
Не исчезнут,так как для начало придется выкинуть всю технику медицины-ведь она сидит вплотную на этих портах...На мою жизнь хватит,а там не важно что будет с этой схемой...Если так думать то зачем жить,ведь рано или поздно мы умрем...Думаю ответ про жизнь стоит рядом с существованием портов,надо пользоваться пока есть шанс

tempora · 09.10.2013, 17:26

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

Думаю ответ про жизнь стоит рядом с существованием портов,надо пользоваться пока есть шанс

В жизни всё строго наоборот - нужно двигаться вперёд, пока есть шанс. А цепляние за то, что "борозды не испортит" - это как раз и есть смерть, в той или иной ипостаси.
Ладно, бог с ней, с лирикой; вы структурную схему уже продумали, вероятно - как она выглядит?

gres_go · 09.10.2013, 18:14

exzitronic, Делал давно, есть для последовательного и параллельного портов, для LPT все очень просто, отправляете данные на номер порта, 8 бит, можете включать, как Вам угодно, самый просто вариант - 8 нагрузок, включил, выключил, уровень TTL, но естественно нужна развязка и ток там никакой, если ставить мультиплексоры или например микроконтроллер, можно уже 64 нагрузки зацепить, для использования большего числа нагрузок придется юзать служебные выводы.
С COM портом сложнее, нужен девайс(например МК) который будет получать кодовую посылку, разбирать, что там пришло и выполнять то, что соответствует пришедшему коду или курить, если пришло не то, что ожидается.
Все это уже не актуально, ну разве, что использовать USB, как виртуальный компорт используя скажем, какой нибудь переходник, например есть микрухи FTDI полностью эмулирующие и COM и LPT порты, к стати, большинство из них имеет режим битбанг(дергать ногами), так, что если нагрузок не много, то вполне вариант, ничего лишнего не нужно, только развязка, скажем буфера какие нибудь.
Во вложении исходники на Delphi для COM и LPT, делал давно, что по чем не помню, разбираться лень

Да, для работы с портами есть библиотеки, поищите в интете, во вложении вроде одна.
НЕ РАБОТАЕТ в Windows 7, закрыт прямой доступ к портам, в ХР все работало.
Для LPT находил раньше много прог в инете, которые могут включать или выключать отдельные биты порта.
Во, нашел еще проект, мерил температуру термистором подключенным к пику, ловил с компорта номер измеряемого канала и при его получении измерял температуру и пулял ее в компорт, если приходили отличные от номера канала измерения данные, пулял код ошибки в порт, исходник для ПК на Delphi, архив new.
Разгребайте

OlegNZH · 09.10.2013, 18:23

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

Требования не кретичны,можно и через COM порт лишбы было управление и исходник к нему...

Не совсем понятно - "100 выходов для умного дома" . А как-же входа? Датчики? LPT и COM , конечно , умеют принимать сигналы (цифру) , и отправлять (тоже цифру) , но в любом случае , без внешнего контроллера не обойтись, который берёт сигнал от компьютера по шине, и потом раскидывает по потребителям.
Например , берутся СТАНДАРТНЫЕ РЕШЕНИЯ (уже ставшие таковыми) от Igor Cesko ( http://www.cesko.host.sk/ )... Он сделал просто и гениально- "скрестил" простейшую AVR-ку(Tiny2313) с USB портом,дав возможность управлять восемью линиями на ввод-вывод (как бонус).В библиотеке прилагаются процедуры - например установить линию порта в "1" , сбросить в "0".Далее , берём последовательные сдвиг.регистры 74HC595 (8 выходов ) , соединяем в цепочку (100 каналов на выход - ну допустим 13 регистров (13*8=104 выхода)),подсоединяем каждый регистр параллельными 3 линиями -SHIFT CLOCK,LATCH CLOCK, OUTPUT ENABLE ... (и делаем FI(FO не нужен- в пустоту вышвыриваем из последнего)). SERIAL DATA OUTPUT каждого регистра- со следующим регистром в цепочке SERIAL DATA INPUT (самый первый INPUT к процессору).Итого- КЛОКАМИ сдвигаем ДАННЫЕ ,защёлкиваем, разрешаем вывод.В итоге - с помощью пяти управляющих линий (которыми можно (и нужно) из Delphi менять состояние (0,1)) получаем необходимое количество выходов.
upd . орфографию подправил
PS .А , забыл - все китайские уличные строки на светодиодах именно так и работают(каждый светодиод - это собственно и есть Канал,которым можно управлять)...там проблема одна - чем длиннее цепочка, тем больше времени- всё закачать(но это , когда на тысячи каналов без мерцания актуально ...100...200...500 - фигня в 10 мс обновлять))

gres_go · 09.10.2013, 18:43

exzitronic, Простейшая отправка в LPT порт(НЕ РАБОТАЕТ в Windows 7):
var
n:byte;//байт данных
asm
MOV DX,0378H //загружаем в регистр DX адрес порта по умолчанию, если не изменен в биос
MOV AL,n //загружаем байт данных в аккумулятор
OUT DX,AL //выгружаем аккумулятор по адресу хранящемуся в регистре DX
end;
Ассемблерная вставка специально для Delphi(паскаля).

OlegNZH · 09.10.2013, 18:57

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

exzitronic, Простейшая отправка в LPT порт(НЕ РАБОТАЕТ в Windows 7):
var
n:byte;//байт данных
asm
MOV DX,0378H //загружаем в регистр DX адрес порта по умолчанию, если не изменен в биос
MOV AL,n //загружаем байт данных в аккумулятор
OUT DX,AL //выгружаем аккумулятор по адресу хранящемуся в регистре DX
end;
Ассемблерная вставка специально для Delphi(паскаля).

Вы не Правы - Давайте не путать Людей! При чём тут W7? ...так и в XP....Вы Паскаль просто вспомнили , под DOS и W3- прелестно к портам лазили по OUT-у.

akegor · 09.10.2013, 19:02

Почему бы не покурить MSDN и не балдеть от API под любой виндой?