Delphi中的完成端口服务器端封装