本文介绍了在Delphi编程环境中如何调用Windows API函数以实现对串行端口的基本操作,包括打开、关闭和读写等。
在Delphi中使用API函数操作串口:
// 创建串口句柄
CommHandle := CreateFile(PChar(ComboBox1.Text), GENERIC_WRITE or GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED or FILE_ATTRIBUTE_NORMAL, 0);
if CommHandle = INVALID_HANDLE_VALUE then begin
CloseHandle(PostEvent);
CloseHandle(ReadOs.hEvent);
MessageBox(0, 串口打开失败!, Notice, MB_OK);
StatusBar1.SimpleText := 串口打开失败;
Exit;
end;