delphi 下API函数写串口

【文件属性】：
文件名称：delphi 下API函数写串口
文件大小：204KB
文件格式：RAR
更新时间：2012-07-28 05:04:50
串口，delphi 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;

【文件预览】：
API串口编程示例
----WIN32APISERIAL()
--------WIN32APISERIAL.DPR(194B)
--------WIN32APISERIAL.EXE(447KB)
--------W32SERIAL.DCU(11KB)
--------WIN32API.RES(876B)
--------WIN32APISERIAL.RES(876B)
--------W32SERIAL.DDP(51B)
--------WIN32API.CFG(434B)
--------UNIT1.PAS(11KB)
--------UNIT1.DCU(12KB)
--------WIN32APISERIAL.DOF(2KB)
--------UNIT1.DFM(4KB)
--------WIN32APISERIAL.CFG(434B)
--------WIN32API.DOF(2KB)
--------UNIT1.DDP(51B)