OpenCheck: Boolean; // COMM Open確認
OpenCheckは、ポートをオープンしていたら、
True していなければ
Falseを返します。
例
if Comm1.OpenCheck then Comm1.Cloos; // 通信ポートオープンしていたらクローズ
if not Comm1.OpenCheck then Comm1.Open; // 通信ポートクローズしていたら
Open
if Comm1.OpenCheck then Comm1.SendSring('本日は晴天なり
'); // 通信ポートオープンしていたら送信
ポートオープン時
Comm1.Openで、エラーが無ければ、フラグを立てるようにすれば、必要ないのですが、
Commコンポーネントが、
OPENフラグを返すのが、一番確実です。