用socket
服务端放一个Tserverwinsocket,客户端放一个Tclinetwinsocket,然后在TclientWinsocket的
Adress填上服务端的ip,客户端和服务器端用同一个port(大于1024就行啦）。就可以通讯啦。
然后Tclinetwinsocket端用sendtext发送一个任意字符给server,Server端会触发一个onread
(或者是onwrite,因为我也不太熟，现在网吧没资料可查）。在这个触发的事件中可以用
readtext读出发过来的字符。Tseverwinsocket同样回发一个字符回去。这样表示双方都
准备好啦，可以传文件啦。
接下来，用getmem申请大小为500的buf,客户端用Tfilesteam从要传送的文件中读出500字节
到buf中，用Tclientwinsocket的sendbuf传送。Tserverwinsocket用readbuf来读取内容。
把传过来的这500字节写入一个文件。接着用sendtext发送一个确认字符给客户端。这个确
认字符你自己约定。客户端收到确认字符后就可以继续上一步直到整个文件传送完成。
大体思路就是这样。
