P powers Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-16 #2 有现成的控件可以用，名字我记不起来了，你可以自己找找看。 若找不到发信给我！
S softdog Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-16 #4 delphi已经不支持port数组了，在代码中直接嵌入汇编写
景 景冰 Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-17 #5 Powers, 谢谢你！请帮我找一下控件，我这个周末之前要写出来。我只是要读一下这个端口， 检查一块自制的保护卡在不在。 softdog: 汇编不会用，您能指点详细点吗？ iie: 我马上一试你的方法。
Powers, 谢谢你！请帮我找一下控件，我这个周末之前要写出来。我只是要读一下这个端口， 检查一块自制的保护卡在不在。 softdog: 汇编不会用，您能指点详细点吗？ iie: 我马上一试你的方法。
S softdog Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-17 #6 procedure WritePort(const PortID: Word; const Data: byte); asm mov dx, PortID mov al, Data out dx, al end; function ReadPort(const PortID: Word): byte; asm mov dx, PortID in al, dx end; 不过注意：只能在9x下使用
procedure WritePort(const PortID: Word; const Data: byte); asm mov dx, PortID mov al, Data out dx, al end; function ReadPort(const PortID: Word): byte; asm mov dx, PortID in al, dx end; 不过注意：只能在9x下使用
