winsockt控件的使用

Question

1，建客服机的联接
2，把服务器上的时间用sendtext传过来
3，客户机接收text.
4,断开联（可自选）
5，完毕！祝：身体健康！

Answer 1

服务器端:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
serversocket1.socket.sendtext(datetostr(Now));
end;
客户端
procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var mytime:Tdatetime;
begin
  mytime:=strtodate(socket.ReceiveText);//mytime为服务器时间
end;