溫馨提示×

delphi關(guān)閉端口的代碼怎么寫

小億
115
2023-10-26 21:18:20
欄目: 編程語言

在Delphi中關(guān)閉端口的代碼可以使用CloseHandle函數(shù)來關(guān)閉一個已打開的端口。

以下是一個示例代碼：

var
  hComPort: THandle;  // 串口句柄

procedure CloseComPort;
begin
  // 關(guān)閉端口
  if hComPort <> INVALID_HANDLE_VALUE then
  begin
    CloseHandle(hComPort);
    hComPort := INVALID_HANDLE_VALUE;
  end;
end;

此代碼會將hComPort變量設(shè)置為INVALID_HANDLE_VALUE，表示端口已關(guān)閉。

請注意，在關(guān)閉端口之前，需要確保已經(jīng)通過CreateFile函數(shù)成功打開了該端口，并將返回的句柄保存在hComPort變量中。否則，在關(guān)閉端口時，hComPort變量可能會包含無效的句柄值。

0 踩