电子书e书Delphi串口通信编程.pptVIP

ReadFile BOOL ReadFile( HANDLE hFile, //要读取文件的句柄 LPVOID lpBuffer, //接收数据的缓冲区地址 DWORD NumberOfBytesToRead, //读取的字节数 LPDWORD lpNumberOfBytesRead,//读取总字节数的地址 LPOVERLAPPED lpOverlapped//OverLapped I/O结构的地址 ); 第六十二页，共九十六页。 Var dat : array[0..99]of char; flag:dword;stepno:integer; begin stepno:=0; repeat Read); if flag0 then if dat1[0]=chr($fe) then stepno:=1; until (stepno=1)or(flag=0); Read); length:=ord(dat1[0]); //取长度 read); end; 第六十三页，共九十六页。 PurgeComm BOOL PurgeComm( HANDLE hFile, // 通信资源的句柄