起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 418|回复: 2

【搞定】请教一下**

[复制链接]
发表于 2006-12-30 14:38:50 | 显示全部楼层 |阅读模式
如何在代码中取服务器时间?
回复

使用道具 举报

发表于 2006-12-30 15:03:43 | 显示全部楼层
可以利用系统空间下的日期参数来取:
系统空间\系统参数组\日期时间参数组

procedure TMAINFORM.butGetServerTimeClick(Sender: TObject);
var
  lContextCurrent : TContextCurrent;
  lParam : TBizParam;
  lBizUrl: TBizUrl;
begin
  lContextCurrent := TContextCurrent.Create(Context);
  lBizUrl := TBizUrl.Create;
  lTime : TDateTime;
  try
    lBizUrl.URL := 'Biz:\SYSTEM\DATATIMEPARAMS.PARAMGROUP'; //日期参数组的地址BizUrl
    lParam := lContextCurrent.GetParam(lBizUrl, 'ServerDateTime');  //ServerDateTime是参数组中的服务器今日今时参数的ID
    lTime := Variants.VarToDateTime(lParam.Value);
  finally
    lContextCurrent.Free;
    lBizUrl.Free;
    label1.Caption := Variants.VarToStr(lParam.value);
  end;
end;
回复 支持 反对

使用道具 举报

发表于 2007-1-10 10:32:37 | 显示全部楼层
楼主,还有问题吗?
没有就结贴了!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2024-12-23 10:16 , Processed in 0.038103 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表