摘要：procedure TForm1.Button1Click(Sender: TObject); var a,b:integer; begin a:=strtoint(self.Edit1.text); b:=strtoint(self.Edit2.Text); a:=a xor b; b:=b xor a; a:=a xor b; self.Edit1.Text:=in... 阅读全文

摘要：并行端口简称并口，它有3个端口：数据端口、状态端口、控制端口，常用的并口为LPT1，它的3个端口的地址分别为：378H、379H和37AH。 一、并口读写 在汇编语言中，可以用 in、out 指令操作并口，而在Delphi中并没有相对应的函数、方法可对并口进行读写，幸运的是Delphi可以嵌入汇编程序，通过直接嵌入汇编指令 in、out 可方便地对并口进行读写。我们还可以通过调用 Win... 阅读全文