delphi7.0并口控制,自己网上找了一个有错误(检测到错误类EPrivilege)

Question

delphi 并口控制

Answer 1

1、将数据端口378H的D2位的电位设置为低，即置0：B:=ReadPort($378); B:=B and $FB;WritePort($378,B);
 
　　2、将数据端口378H的D2位的电位设置为高，即置1：B:=ReadPort($378); B:=B or $04;WritePort($378,B);
 
　　3、判断数据端口378H的D2位的电位高低：B:=ReadPort($378); if ((B and $04)=$04) then//电位为高时的代码else//电位为低时的代码或：B:=ReadPort($378);if ((B or $FB)=$FF) then//电位为高时的代码else//电位为低时的代码
 

Answer 2

你在Windows下能直接写端囗吗?好像要利用第三方驱动吧.如winio    porttalk等.