一个在Delphi下直接使用SocketAPI函数写的网络文件传输代码，适合初学者参考-Delphi in a function under the direct use of SocketAPI network file transfer to write code, suitable for beginners reference