delphi 如何读写I/O板卡的端口数据?

Question

在里面嵌入汇编 __asm { 汇编语句 }

Answer 1

在98里可以用以下两个函数
function PortIn(IOAddr:WORD):WORD;
begin
  asm
    PUSH EDX
    PUSH EAX
    MOV DX,IOAddr
    IN AX,DX
    MOV @Result,AX
    POP EAX
    POP EDX
  end;
end;procedure PortOut(IOAddr:WORD;Data:WORD);
begin
  if bHand then exit;
  asm
    PUSH EDX
    PUSH EAX
    MOV DX,IOAddr
    MOV AX,Data
    OUT DX,AX
    POP EAX
    POP EDX
  end;
end;
由于NT禁止直接写端口，就不能直接用了。