在Delphi中可以直接读写端口,下面一个是读端口,一个是写端口。
当然如果你需要更强大的功能,最好去下载一些第三方开发的控件!
function ReadPortB( wPort : Word ) : Byte;
begin
asm
mov dx, wPort
in al, dx
mov result, al
end;
end;
procedure WritePortB( wPort : Word
bValue : Byte );
begin
asm
mov dx, wPort
mov al, bValue
out dx, al
end;
end;