DELPHI FAQ: Как прочитать байт из параллельного порта?

Как прочитать байт из параллельного порта?

Первый способ:

Var
     BytesRead : BYTE;
begin
               asm                \{ Читаем порт (LPT1) через встроенный ассемблер  \}
                 MOV dx,$379;
                 IN  al,dx;
                 MOV BytesRead,al;
               end;
BytesRead:=(BytesRead OR $07);   \{ OR а затем XOR данных \}
BytesRead:=(BytesRead XOR $80);  \{ маскируем неиспользуемые биты  \}

Второй способ :
Используем команды Turbo Pascal ...

  value:=port[$379]; \{ Прочитать из порта \}
  port[$379]:=value; \{ Записать в порт \}

Взято с Исходников.ru http://www.sources.ru

DELPHI FAQ