Нужен пример работы с LPT портом. Планируется получать информацию (сигнализайию) от внешего самодельного устройства
в виде двоичного (8- разрядного) кода с дальнейшей обработкой. Можно ли это сделать и если можно, то как?
Ссылки на котовый проект (пример) особо приетствуются.

В качестве одного из примеров, могу привести ключи-заглушки на порты (в качестве лицензионного ключа) для программ карта москвы и др.

Код

var   h: THandle; begin   h:=0;   try     h:=CreateFile('LPT1:',GENERIC_READ OR GENERIC_WRITE,0,nil,                   OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);   except h:=0;   end;   if h=INVALID_HANDLE_VALUE then h:=0;   // .......   // Теперь читаем из порта: var   r:  dword;   ch: char; begin   if ReadFile(h,ch,1,r,nil) then      if r>0 then begin       // работаем с байтиком, который у нас в ch     end;   // .......   // И в конце концов закрываем порт   if h<>0 then CloseHandle(h);

Примерно должно получиться что-то в таком роде:

Код

unit lptport; interface uses Windows; type   TLptPort=class(TObject)     protected       h: THandle;       b: ^char;       public       Port: byte;       constructor Create;       destructor Destroy; override;       function  Connect: Boolean;       procedure Disconnect;       function  Connected: Boolean;       procedure SendString(str:string);       function  GetChar(var ch: char):boolean;     published   end; implementation constructor TLptPort.Create; begin   Port:=1; h:=0; end; destructor TLptPort.Destroy; begin   Disconnect;   inherited Destroy; end; function TLptPort.Connected: Boolean; begin   Result:=h>0; end; procedure TLptPort.Disconnect; begin   if Connected then     CloseHandle(h);   h:=0; end; function TLptPort.Connect: Boolean; var   LptName: string; begin   Result:=Connected;   if Connected then Exit;   LptName:='LPT'+chr(48+Port);   try     h:=CreateFile(PChar(LptName),GENERIC_READ OR GENERIC_WRITE,0,nil,                   OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);   except      h:=0    end;   if h=INVALID_HANDLE_VALUE then h:=0;   Result:=Connected; end; procedure TLptPort.SendString(str:string); var   buf: PChar;   btw,bwt : DWORD; begin   if not Connected then exit;   btw:=Length(str); buf:=PChar(str);   WriteFile(h, buf, btw, bwt,nil); end; function TLptPort.GetChar(ch: char): boolean; var   r:  dword; begin   result:=false;   if not Connected then exit;   if ReadFile(h,ch,1,r,nil) then     if r>0 then result:=true; end; end.

Код

program Test; {$APPTYPE CONSOLE} uses   Windows,   lptport in 'lptport.pas'; Var   lpt: TComPort;   ch: char; begin   lpt:=TComPort.Create;   lpt.Port:=1;   if lpt.Connect then     WriteLn('Connected')   else     WriteLn('Can''t connect');   if lpt.Connected then     while true do begin       if lpt.GetChar(ch) then Write(ord(ch));       Sleep(100);     end;   lpt.Disconnect;   lpt.Free;

Также для информации почитай DRKB раздел "Порты".
В принципе работа с COM и LPT похожа.
Ну, кроме установки параметров порта.
Хотя установка порта требуется далеко не всегда.
Я например использую стандартные параметры, выставленные в системе.
Это избавляет меня от необходимости делать лишнюю работу.
Не нужно писать лишний код для настройки порта и интерфейс для пользователя.
Пользователь может использовать настройки в системе.

Не гарантирую, что вышеприведенный код 100% рабочий, т.к. писал его для COM порта. Я его лишь немного модифицировал под LPT. Но по идее проблем возникнуть не должно. Должен заработать без вопросов.

По сути мне нужно анализировать различные варианты коммутации контактов LPT порта. Сечас пойду разбираться в том, что написали. Всем спаисибо. Если у кого есть еще советы или (и) готовые примеры, буду благодарен.
Добавлено @ 14:29
Ни черта не понял. Аткрыть, закрыть порт я смогу, но как проанализировать коммутацию контактов?!!!

Цитата(Bogus @ 6.7.2005, 14:25)

Ни черта не понял. Аткрыть, закрыть порт я смогу, но как проанализировать коммутацию контактов?!!!

Для этого ты должен передать сигнал в порт.
Программа получает сигнал в виде одного байта.
По приведенному выше коду, ты получаешь char от функции GetChar.
Переводишь его в число при помощи ord(ch).
А число уже представляй в бинарном виде.
Как перевести число в бинарный вид, на форуме уже не раз обсуждалось в "Общих вопросах", так же есть в FAQ и DRKB.
Смотришь бинарное представление. Где еденички - там есть сигнал, где нолики - нет сигнала.

можно ли где нибудь откльчить напряжение на LPT при загрузке 
т.е. при включении PC  он не скакало и оставалось на 0 пока сами его программно не изменим

Нет.
При загрузке винда производит тестирование устройств.
И этого ей никак не запретишь.

Snowy, у меня не работает Ваш код  
Открывать/закрывать порт получается (открывает корректно, хендл>0), но читать и записывать не получается:
При чтении: GetChar возвращает false, ord(ch)=0
При записи программа просто зависает (может ждет ответа устройства?)

В примере несколько опечаток:

unit lptport;
20: function  GetChar(var ch: char):boolean;
но
76: function TLptPort.GetChar(ch: char): boolean;

program Test;
10: lpt: TComPort;
13: lpt:=TComPort.Create;
а надо TLptPort


А через драйвер lptwdmio все работает.
Turbo Delphi, WinXP Pro, запускаю от администратора

Это сообщение отредактировал(а) Mr.Floppy - 13.3.2007, 02:15

вот рабочий примерс драйвером

Присоединённый файл ( Кол-во скачиваний: 28 )
 Source.zip 317,95 Kb

Albinos_x, через lptwdmio у меня работает, не получается через CreateFile