鸵 鸵鸟 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-12 #1 如何使服务器系统时间在客户端时时显示!谢谢！ 93122@mail.china.com
Y yuzhizhi Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-12 #2 我想你可以发送一个信息： 比如说把服务器上的当前时间给客户端!然后在客户端中用一个Time控件来控制它 (以服务器上的时间为底开始计时)！
A antic_ant Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-12 #3 用netremotetod 函数 函数原型 NET_API_STATUS NetRomoteTOD( lpwstr uncservername, lpbyte *bufferptr);
O OopsWare Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-12 #4 1.TCP/IP协议有TIMER端口，使用FastNet中的Timer控件可以取服务器时间，NT需要安装 “简单的TCP/IP服务”服务。UNIX主机一般都提供此服务。 2.如果安装了MSSQL,Sybase之类的数据库，通过"SELECT getdate()" 可以取得服务器时间。 3.Novell服务器自动提供，客户登陆时时间被同步成服务器时间.
1.TCP/IP协议有TIMER端口，使用FastNet中的Timer控件可以取服务器时间，NT需要安装 “简单的TCP/IP服务”服务。UNIX主机一般都提供此服务。 2.如果安装了MSSQL,Sybase之类的数据库，通过"SELECT getdate()" 可以取得服务器时间。 3.Novell服务器自动提供，客户登陆时时间被同步成服务器时间.
I icic Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-12 #5 服务器端: 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;
服务器端: 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;
