是用Delphi去实现完全端口的相关代码