procedure WritePort(PortAdress:word;Value:byte); pascal;
begin
asm
mov al,Value
mov dx,PortAdress
out dx,al
end;
end;function ReadPort(PortAdress:word) : byte; pascal;
begin
asm
mov dx,PortAdress
in al,dx
mov @result,al
end;
end;
begin
asm
mov al,Value
mov dx,PortAdress
out dx,al
end;
end;function ReadPort(PortAdress:word) : byte; pascal;
begin
asm
mov dx,PortAdress
in al,dx
mov @result,al
end;
end;
据说VXD可以,但对VXD我又不甚明白。帮你提前。
你可以在Delphi Super Page网站上找到这样的控件,看看他们的代码!
可以到Delphi Super Page上找这样的控件代码研究研究!
它们的端口号是从3开始往下排。很简单。没有必要进行地址操作。
但我对这个没一点概念,根本不知道如何下手!
,,,,,,,,
,,,,,,,,,
,,,,,,,
end
很好的,在试试,,,,,,,
FileOpen('com1',.......)
FileOpen('com2',.......);