| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как электрикой правильно выставить значение на LPT [D7, WinXP]
dimon_programmer © (2004-10-09 22:02:00)Здраствуйте!
Помогите с такой проблемой: как писать на LPT порт я нашел/сделал :-), а вот как на LPT
выставлять какое-то значение(читать с него), чето не въезжаю-может так:
плюс 3..3.5 V к земле а минус черес резистор к DataIn, или как? Не охота материку сжечь!
now_aleks (2004-10-10 20:10:00) [1]Установи http://ln.ua/~real/avreal/p95nt.zip
импорт процедур из DLL
implementation
{$R *.dfm}
Function DlPortReadPortUchar (Port:LongWord):Byte; stdcall;external 'dlportio.dll';
Function DlPortReadPortUshort(Port:LongWord):Word; stdcall;external 'dlportio.dll';
Function DlPortReadPortUlong (Port:LongWord):LongWord;stdcall;external 'dlportio.dll';
procedure DlPortWritePortUchar (Port:LongWord;Value:Byte); stdcall;external 'dlportio.dll';
procedure DlPortWritePortUshort(Port:LongWord;Value:Word); stdcall;external 'dlportio.dll';
procedure DlPortWritePortUlong (Port:LongWord;Value:LongWord);stdcall;external 'dlportio.dll';
пример использования :
Edit1.Text:=IntToStr(DlPortReadPortUchar($378));// $378 номер LPT порта
подключение как писал Jel , но лучше использовать шинный формирователь н.п. LS244.
(посмотри Схема переходника программирования "STK200/300" на
http://ln.ua/~real/avreal/adapters.html)
magdelphi (2004-10-10 16:49:00) [2]Зайди на magdelphi.boom.ru там найдёшь схему и программу.
Jel (2004-10-10 08:43:00) [3]Минус к земле, плюс через токоограничительный резистор на DataIn. Номинал резистрора выбирать исходя из принципа чем больше, тем лучше. Как минимум 1 кОм.
dimon_programmer (2004-10-10 07:26:00) [4]???
| |
