[Agentone]

Помогите пожалуйста запрограммировать Lpt порт.
Задача состоит в том что бы можно было на Lpt порт скидывать числа (его обычные 8 бит) , а так же считывать состояние его входов (три входа, контакты 11-13).
Я искал примеры работы с Lpt и сам смог состряпать только вот это:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

var
  datay: byte;
begin

if datay=0 then begin
               port[memw[$0040:0008]:=33;
               datay:=33;
               end
else if datay=33 then begin
               port[memw[$0040:0008]:=36;
               datay:=36;
               end
else if datay=36 then begin
               port[memw[$0040:0008]:=34;
               datay:=34;
               end
else if datay=34 then begin
               port[memw[$0040:0008]:=40;
               datay:=40;
               end
else if datay=40 then begin
               port[memw[$0040:0008]:=33;
               datay:=33;
               end;
   end;

Параметр datay изначально равен 0...это в другом блоке у меня записано. Эта программа для управления шаговым двигателем. Последовательная смена числа вызывает смещение на 1 шаг.

А вот как читать что на входах я не знаю...кто может помогите.

[Страдалецъ]

Посмотрите здесь http://www.pcports.ru/articles/10.php или здесь http://valery-us4leh.narod.ru/PortCoding/cod01.html

[Agentone]

спасибо большое....думаю я уловил как делать теперь

[Agentone]

проблема решилась не окончательно.

function Inp32(PortAdr: word): byte; stdcall; external 'inpout32.dll';
function Out32(PortAdr: word; Data: byte): byte; stdcall; external 'inpout32.dll';

Out32(888,data);
data:=Inp32(888);

с этим вобщем ясно. Тут можно запрограммировать 8 выходов Lpt со 2 по 9, а как мне использовать биты которые выдают информацию на компьютер. Мне необходимо читать что на 10-12 входах (или любых трёх из тех, которые посылают данные на компьютер).

[KONKOV]

Есть как раз программа программа как раз по библиотеке InpOut32.dll...
Помогает быстро освоится... позже выложу...

[MAD_EVAL]

Писал когда-то мелочёвку используя InpOut.dll, работало корректно на 3-х машинах, на 4-ой не заработало.... после чего Не заработало ещё НЕ раз! ИМХО не универсально, к сожалению.