怎样在串口中写入信息，我用的是writefile(),编译没有错的，就是用writefile(),不出现值。具体在下：

Question

参考定义:
BOOL WriteFile(
    HANDLE hFile, // handle to file to write to 
    LPCVOID lpBuffer, // pointer to data to write to file 
    DWORD nNumberOfBytesToWrite, // number of bytes to write 
    LPDWORD lpNumberOfBytesWritten, // pointer to number of bytes written 
    LPOVERLAPPED lpOverlapped  // pointer to structure needed for overlapped I/O
   ); 参考:
function TComm.WriteData(pDataToWrite: PChar; dwSizeofDataToWrite: DWORD): Boolean;
var
  nSent: DWORD;
begin
     Result := WriteFile(hCommFile, pDataToWrite^, dwSizeofDataToWrite,nSent, Nil);
end;