Delphiでポートを閉じるためのコードの書き方

Delphiでポートを閉じるコードはCloseHandle関数を使用して、開いているポートを閉じることができます。

例のコードは：

var
  hComPort: THandle;  // 串口句柄

procedure CloseComPort;
begin
  // 关闭端口
  if hComPort <> INVALID_HANDLE_VALUE then
  begin
    CloseHandle(hComPort);
    hComPort := INVALID_HANDLE_VALUE;
  end;
end;

このコードはhComPort変数をINVALID_HANDLE_VALUEに設定し、ポートが閉じられたことを示す。

ポートを閉じる前に、CreateFile 関数で確実にポートをオープンし、返されたハンドルを hComPort 変数に保存していることを確認してください。そうでないと、ポートを閉じる際に hComPort 変数は無効なハンドル値を含んでいる可能性があります。