紧急：PORT数组！！！ ( 积分: 200 )

说明：port是原turbo pascal中的数组，在NT下不可以用汇编编写<br><br>问题一：<br>var nPort: byte;<br><br>Port[$510]:=0;<br>nPort:=Port[$511];<br>Port[$511]:=nPort or $04;<br><br>现在要在NT下怎样改写上述代码，$510、$511代表什么，我只知道：$2FC代表串口2的意思。 <br><br>问题二：<br> &nbsp; &nbsp;nCom2 := OpenComm('COM2',1,1);<br> &nbsp; &nbsp; &nbsp;if ( nValue = 1 ) then<br> &nbsp; &nbsp; &nbsp; &nbsp; begin<br> &nbsp; &nbsp; &nbsp; &nbsp; Port[$2FC]:=3;<br> &nbsp; &nbsp; &nbsp; &nbsp; CloseComm( nCom2 );<br> &nbsp; &nbsp; &nbsp; &nbsp; If bBipAlarm then WinExec('MESSAGE.PIF',0);<br> &nbsp; &nbsp; &nbsp; &nbsp; end<br> &nbsp; &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp; &nbsp; begin<br> &nbsp; &nbsp; &nbsp; &nbsp; Port[$2FC]:=0;<br> &nbsp; &nbsp; &nbsp; &nbsp; CloseComm( nCom2 );<br> &nbsp; &nbsp; &nbsp; &nbsp; end;<br>这个OPENCOMM怎样用CREATEFILE改写，我以前是用2000做串口通讯的，但不知道这段代码<br>它怎样设置通讯的波特率，数据位数，奇偶校验，停止位数，等等。<br><br>希望能详述，非常感谢。

说明：port是原turbo pascal中的数组，在NT下不可以用汇编编写<br><br>问题一：<br>var nPort: byte;<br><br>Port[$510]:=0;<br>nPort:=Port[$511];<br>Port[$511]:=nPort or $04;<br><br>现在要在NT下怎样改写上述代码，$510、$511代表什么，我只知道：$2FC代表串口2的意思。 <br><br>问题二：<br> &nbsp; &nbsp;nCom2 := OpenComm('COM2',1,1);<br> &nbsp; &nbsp; &nbsp;if ( nValue = 1 ) then<br> &nbsp; &nbsp; &nbsp; &nbsp; begin<br> &nbsp; &nbsp; &nbsp; &nbsp; Port[$2FC]:=3;<br> &nbsp; &nbsp; &nbsp; &nbsp; CloseComm( nCom2 );<br> &nbsp; &nbsp; &nbsp; &nbsp; If bBipAlarm then WinExec('MESSAGE.PIF',0);<br> &nbsp; &nbsp; &nbsp; &nbsp; end<br> &nbsp; &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp; &nbsp; begin<br> &nbsp; &nbsp; &nbsp; &nbsp; Port[$2FC]:=0;<br> &nbsp; &nbsp; &nbsp; &nbsp; CloseComm( nCom2 );<br> &nbsp; &nbsp; &nbsp; &nbsp; end;<br>这个OPENCOMM怎样用CREATEFILE改写，我以前是用2000做串口通讯的，但不知道这段代码<br>它怎样设置通讯的波特率，数据位数，奇偶校验，停止位数，等等。<br><br>希望能详述，非常感谢。

我已经知道怎么解决，怎么才能把分数要回来；<br>如果有朋友遇到同样的问题，可以联系我。<br>QQ：21144626