【搞定】请教一下**

ccseasy

如何在代码中取服务器时间？

jiahaiminghr

可以利用系统空间下的日期参数来取：
系统空间\系统参数组\日期时间参数组

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;

jiahaiminghr

楼主，还有问题吗？
没有就结贴了！