这里下载：Port.rar
简介
可设置端口的波特率，数据位，停止位，奇偶校验，DTR，RTS 等，支持 485 模式。可采用事件通知或超时读的阻塞模式，就象下面的例子一样。
示例
//按超时读的方式接收数据
procedure
TForm1.Send(Sender: TObject);
begin
with Port1 do
begin
ReadTotalTimeouts:=3000;
WriteString('Any Library');
ReadString(Buf,BufSize);
end;
end;