紧急：Port数组和通讯Api！！！我把分都放在delphi-api同样的题目下了。 ( 积分: 0 )

说明：port是原turbo pascal中的数组，在NT下不可以用汇编编写

问题一：
var nPort: byte;

Port[$510]:=0;
nPort:=Port[$511];
Port[$511]:=nPort or $04;

现在要在NT下怎样改写上述代码，$510、$511代表什么，我只知道：$2FC代表串口2的意思。

问题二：
nCom2 := OpenComm('COM2',1,1);
if ( nValue = 1 ) then
begin
Port[$2FC]:=3;
CloseComm( nCom2 );
If bBipAlarm then WinExec('MESSAGE.PIF',0);
end
else
begin
Port[$2FC]:=0;
CloseComm( nCom2 );
end;
这个OPENCOMM怎样用CREATEFILE改写，我以前是用2000做串口通讯的，但不知道这段代码
它怎样设置通讯的波特率，数据位数，奇偶校验，停止位数，等等。

希望能详述，非常感谢。

说明：port是原turbo pascal中的数组，在NT下不可以用汇编编写

问题一：
var nPort: byte;

Port[$510]:=0;
nPort:=Port[$511];
Port[$511]:=nPort or $04;

现在要在NT下怎样改写上述代码，$510、$511代表什么，我只知道：$2FC代表串口2的意思。

问题二：
nCom2 := OpenComm('COM2',1,1);
if ( nValue = 1 ) then
begin
Port[$2FC]:=3;
CloseComm( nCom2 );
If bBipAlarm then WinExec('MESSAGE.PIF',0);
end
else
begin
Port[$2FC]:=0;
CloseComm( nCom2 );
end;
这个OPENCOMM怎样用CREATEFILE改写，我以前是用2000做串口通讯的，但不知道这段代码
它怎样设置通讯的波特率，数据位数，奇偶校验，停止位数，等等。

希望能详述，非常感谢。

请联系我，我帮你搞定！QQ270420560

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