delphi关闭端口的代码怎么写

262
2023/11/2 21:18:20
栏目: 编程语言
开发者测试专用服务器限时活动,0元免费领,库存有限,领完即止! 点击查看>>

在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变量可能会包含无效的句柄值。

辰迅云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>

推荐阅读: Delphi怎么阻止计算机关闭