请问用SpComm控件的时候怎样检测端口是否已经打开？

[pasud5]

[知足常乐]

好象有个Create.....()的

[pasud5]

？

[heifei]

自己截获异常:
function IsOpened;
begin
result:= false;
try
Comm1.StartComm;
except
on E: ECommsError do
if E.Message= 'This serial port already opened'
then result:= true;
end;
end;

[heifei]

上面有点问题,应该恢复初始状态:
function IsOpened(Comm: TComm):Boolean;
begin
result:= false;
try
Comm.StartComm;
except
on E: ECommsError do
if E.Message= 'This serial port already opened'
then begin
result:= true;
end;
end;
if not result
then begin
Comm.StopComm;
end;
end;