B
biyesheng
Unregistered / Unconfirmed
GUEST, unregistred user!
我刚开始学串口通讯，做了一个简单的打开串口的程序，前些日子在WIN2000下还通行
的好好的，但最近几天老是出问题，代码如下：
procedure TMainForm.Opencom;
var
cc:TCOMMCONFIG;
Temp:string;
begin
Temp:='COM'+inttostr(rdcom.ItemIndex+1); // 选择所要打开的COM
hComm:=CreateFile(PChar(Temp), GENERIC_READ or GENERIC_WRITE,
0, nil, OPEN_EXISTING, 0, 0); // 打开COM
if (hComm = INVALID_HANDLE_VALUE) then
begin // 如果COM 未打开
MessageBox (0, '打开通信端口错误!!','',MB_OK);
exit;
end;
ShowMessage('成功打开端口'+temp);
......
end;
程序老是返回“打开通信端口错误!!”，在WIN98下就没有这个问题。
我想可能是在WIN2000下我改了系统的某些设置，因为开始时在WIN2000
下程序也能打开串口。我想问问大家
为什么程序在WIN2000下后来又打不开串口了？
的好好的，但最近几天老是出问题，代码如下：
procedure TMainForm.Opencom;
var
cc:TCOMMCONFIG;
Temp:string;
begin
Temp:='COM'+inttostr(rdcom.ItemIndex+1); // 选择所要打开的COM
hComm:=CreateFile(PChar(Temp), GENERIC_READ or GENERIC_WRITE,
0, nil, OPEN_EXISTING, 0, 0); // 打开COM
if (hComm = INVALID_HANDLE_VALUE) then
begin // 如果COM 未打开
MessageBox (0, '打开通信端口错误!!','',MB_OK);
exit;
end;
ShowMessage('成功打开端口'+temp);
......
end;
程序老是返回“打开通信端口错误!!”，在WIN98下就没有这个问题。
我想可能是在WIN2000下我改了系统的某些设置，因为开始时在WIN2000
下程序也能打开串口。我想问问大家
为什么程序在WIN2000下后来又打不开串口了？