Delphi - база знаний


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


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



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


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



Начало  Назад  Вперед