Передача данных в LPT-порт не работает. Внутри.

[Vova777]

Здравствуйте, вот очень короткая программа:

unit Unit1;

interface

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

//=============================================================================
function Inp32(PortAdr: word): byte;
stdcall;
external 'inpout32.dll';

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //записать в порт
var
  Port: word;
  Data: Byte;
begin
  Data:= StrToInt(Edit1.Text);
  Port:= StrToInt(Edit2.Text);
  Out32(Port, Data);
  MessageDlg('Value: '+ IntToStr(Data), mtInformation, [mbOK], 0);
end;

procedure TForm1.Button2Click(Sender: TObject); //прочесть с порта
var
  Port: word;
  Data: Byte;
begin
  Port:= StrToInt(Edit3.Text);
  Data:= Inp32(Port);
  MessageDlg('Value: '+ IntToStr(Data), mtInformation, [mbOK], 0);
end;

end.

Почему на LPT-порт ничего не подается. Жму "Write", сообщение появляется, что данные отправлены, но в порту ничего нет.

Жму "Read" - показывает значение "255". LPT-тестер молчит, значит, в порту ничего нет.

Вот схема LPT-тестера:

[Smitt&Wesson]

Необходимо в BIOS настроить порт на работу в режиме EPP. Ознакомьтесь с этой статьёй.

[Vova777]

Сообщение от Smitt&Wesson

Необходимо в BIOS настроить порт на работу в режиме EPP

У меня LPT-порт не встроенный в материнку. Он на PCI-карте. Я пишу по адресу "888", в системе LPT-порт определен как LPT3. Может должен быть другой адрес?

[raxp]

...так зайдите в диспетчер устройств и в свойствах на данном LPT посмотрите его адрес.

У обычного физического $3BC, а у вас виртуальный, отсюда не видно.

===================
...винда какая? 32/64 bit?

[Vova777]

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

винда какая? 32/64 bit?

Windows XP, 32 Бит.

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

отсюда не видно.

Я не понимаю, где смотреть.

На закладке "Общие" написано:
Размещение - "Размещение 33".

На закладке "Ресурсы" написано:
Диапазон ввода/вывода (I/O) - D010-D017
IRQ - 18

Вот, посмотрите:

[raxp]

...попробуйте сие http://lexwebmaster.narod.ru/lpt_scaner.html
или HKEY_LOCAL_MACHINE\HARDWARE\DEVICEM AP\PARALLEL PORTS

[Vova777]

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

...попробуйте сие http://lexwebmaster.narod.ru/lpt_scaner.html
или HKEY_LOCAL_MACHINE\HARDWARE\DEVICEM AP\PARALLEL PORTS

Спасибо. Проблема устранена. Ошибка была в адресе LPT-порта. Я писал и читал по адресу "888", а у меня в системе адрес "53264". Исправил - заработало.