有什么办法可以得到服务器的当前日期及时间!(40分)

  • 主题发起人 主题发起人 snappy
  • 开始时间 开始时间
S

snappy

Unregistered / Unconfirmed
GUEST, unregistred user!
我想让客户端与服务器时间保持一致!
Delphi5+SQL Server
 
同步系统时间:
var
dtm:TDateTime;
dm:TSystemTime;
begin
with ADOQuery_server do//服务器
begin
close;
sql.Clear ;
sql.Text :='Select GetDate() as Servernowdatetime';
open;
dtm:=FieldByName('Servernowdatetime').AsDateTime;
Close;
DateTimeToSystemTime(dtm,dm);
if(not SetLocalTime(dm))then
begin
showmessage('ok');
self.ModalResult :=mrcancel;
exit;
end;
 
服務器select getdate();
DELPHI端怎么搞望了
 
樓上﹐你可真快
 
有什么简单的办法可以做到:
当客户端需要保存日期、时间型数据时,服务器自动将服务器的日期及时间保存??
 
多人接受答案了。
 
后退
顶部