并口操作问题--送分送分:)(250分)

  • 主题发起人 主题发起人 Blabber
  • 开始时间 开始时间
B

Blabber

Unregistered / Unconfirmed
GUEST, unregistred user!
我要使用并口连接硬件电路,读取并口上的数据。
请问有没有操作并口的控件?如果没有的话,有没有好的解决方案。
请尽量详细回复。如果有例程的话,请贴予我看看。
快!250分:)
 
我使用汇编来解决这个问题,但是只能在98下用。2K下要出错,好像是privileged instruction,
如何解决2K下的这个问题呢?难道2K下不能写并口吗?

function ReadPort(Port:WORD):BYTE;
var
B:BYTE;
begin
ASM
MOV DX, Port;
IN AL, DX;
MOV B, AL;
END;
Result:=B;
end;

procedure WritePort(Port:WORD;ConByte:BYTE);
begin
ASM
MOV DX, Port;
MOV AL, ConByte;
OUT DX, AL;
END;
end;
 
到torry's delphi Pages 可以找到,有商业的,也有免费的。
我用的是免费的 portio,缺点是需要带一个portio.sys文件。
http://www.torry.net/
 
除了向并口读写数据信息外,能否读写控制信息的?
 
就像操作串口一样用CreateFile,readFile函数
Lpt1
 
to Blabber:
当然可以,能够直接读写任意的I/O端口。
 
多人接受答案了。
 
后退
顶部