多层架构系统理应如此

鬼影

          客户端时间如何与服务器时间同步（多层架构系统理应如此）
多层系统开发，如何保持客户端与数据库或应用服务器时间同步是一个必须解决的问题 ，我发现许多系统取得是客户端的本地时间，造成多个客户端同时操作却时间不一样。而许多人采用频繁从数据库中取值的形式，增加服务器负载压力。当然有人说，数据保存的时候应该取数据库中时间 ，不错，但是涉及到本地数据之间的校验这类的操作，你该不会频繁地去数据库中得时间吧。鉴于此，本文利用windows系统的一个Api函数进行时间同步 。具体参下面类：（Delphi语法实现，当然）


*******调用--------------
var
       myDateTime : TmyDateTime;  //全局变量，供整个工程使用

//----------------------------------------------------
  Procedure InitialDateTimeWhenSystemStart;//------系统启动的时候进行初始化
  begin
       myDateTime := TmyDateTime.Create;
      //getServerDateTimeStr是从服务器取得的14位时间字符串
        myDateTime.AppserverDataTimeStr := getServerDateTimeStr ；
        myDateTime.InitialDateTimeSpan;//初始化
   end;
//-----------------------------------------------------------

TmyDateTime = class
  private
   // FDateTimeInterval: Double;
    FDateTimeInterval: TDateTime;
    FAppserverDataTimeStr: string;

    FServerDateTime: TDateTime; //第一次登录服务器的时间
    FSysTickCount: Double;

    procedure SetDateTime;
    function GetDateTime_: TDateTime;
  public
    constructor create;
    procedure InitialDateTimeSpan;
    //---初始化本地时间与系统时间的间隔

    property CurrentDataTime: TDateTime read GetDateTime_;

      property AppserverDataTimeStr: string read FAppserverDataTimeStr write FAppserverDataTimeStr;
  end;

implement

{ TmyDateTime }





function TmyDateTime.GetDateTime_: TDateTime;
var
  FSysTickCount_: Double;
begin
  FSysTickCount_ := GetTickCount;
  Result := FServerDateTime + (FSysTickCount_ - FSysTickCount) / (24 * 60 * 60 * 1000);
{ if FDateTimeInterval < 0 then
    Result := (Now - FDateTimeInterval)
  else
    Result := (Now + FDateTimeInterval); }

end;



procedure TmyDateTime.InitialDateTimeSpan;
//---初始化本地时间与系统时间的间隔
var
  wYear, wMonth, wDay, wHour, wMinute, wSecond, wMili: word;
begin
  try
    wYear := StrToInt(copy(FAppserverDataTimeStr, 1, 4));
    wMonth := StrToInt(Copy(FAppserverDataTimeStr, 5, 2));
    wDay := StrToInt(copy(FAppserverDataTimeStr, 7, 2));
    wHour := StrToInt(copy(FAppserverDataTimeStr, 9, 2));
    wMinute := StrToInt(copy(FAppserverDataTimeStr, 11, 2));
    wSecond := StrToInt(copy(FAppserverDataTimeStr, 13, 2));
    wMili := 100;
    FServerDateTime := EncodeDateTime(wYear, wMonth, wDAy, wHour, wMinute, wSecond, wMili);
    FSysTickCount := GetTickCount;
   // FDateTimeInterval := MilliSecondSpan(Now, FServerDateTime);
    //FDateTimeInterval := Now - FServerDateTime;
  except
   // FDateTimeInterval := 0;
  end;
end;

procedure TmyDateTime.SetDateTime;
var
  wyear, wmonth, wday, whour, waminute, wsecond, wmilisencond: word;
  smonth, sday, shour, saminute, ssecond: string;

  ExactDateTime: TDateTime;
  FSysTickCount_: Double;
begin
  //ExactDateTime := FloatToDateTime(Now + FDateTimeInterval);
  {if FDateTimeInterval < 0 then
    ExactDateTime := (Now - FDateTimeInterval)
  else
    ExactDateTime := (Now - FDateTimeInterval); }
//  ExactDateTime := (Now - FDateTimeInterval);
  FSysTickCount_ := GetTickCount;
  ExactDateTime := FServerDateTime + (FSysTickCount_ - FSysTickCount) / (24 * 60 * 60 * 1000);

  DecodeDateTime(ExactDateTime, wyear, wmonth, wday, whour, waminute, wsecond, wmilisencond);
  sMonth := IntToStr(wMonth);
  if Length(sMonth) < 2 then sMonth := '0' + sMonth;
  sday := IntToStr(wday);
  if Length(sday) < 2 then sday := '0' + sday;
  shour := IntToStr(whour);
  if Length(shour) < 2 then shour := '0' + shour;
  saminute := IntToStr(waminute);
  if Length(saminute) < 2 then saminute := '0' + saminute;
  ssecond := IntToStr(wsecond);
  if Length(ssecond) < 2 then ssecond := '0' + ssecond;
  FAppserverDataTimeStr := IntToStr(wyear) + smonth + sday + shour + saminute + ssecond; //smilisencond;
end;

tceui

我来看看 这个能用吧！

淡无盐

谢谢分享了!

夢幻时空

谢谢分享

淡无盐

晕。。。。怎么没早看到呢。。。。。。。。。

情迷布拉格

应该加分

富赫连

支持~~

唐昌

楼主工作顺利，继往开来！

bbb22222

回答了那么多，没有加分了，郁闷。。

NSX

我等你哟!

viking

谢 谢

黑咖啡

看看怎么样

钱小小

谁都不容易啊 ~~