Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

LPT port [D7, WinXP]


ZV ©   (2006-06-09 23:40:00) 

Специалисты работающие с LPT портом здесь есть??? Нужно помочь разобраться с проблемой


452   (2006-06-13 03:38:00) [1]

Тебе нужна inpout32.dll для правильной роботи с портом.
http://www.logix4u.net

uses lpt;

///////////
lpt.pas
///////////
unit LPT;
////////////////////////////////////////////////////////////////////////////////
//                Бібліотека для управління паралельним LPT портом
//                               inpout32.dll
//
//
//
//
//
////////////////////////////////////////////////////////////////////////////////
interface
Uses Windows,SysUtils;
Function LptRead(PortAddress:Integer):Integer;stdcall;external 'inpout32' name 'Inp32';
Procedure LptWrite(PortAddress,Value:Integer);stdcall;external 'InpOut32' name 'Out32';
implementation
Const
LPT1 = $378;
Inp32 = 'Inp32';
End.
///lpt.pas


Наверх

Титульная страница Поиск, карта сайта Написать письмо