OK, 'deze week' werd iets later. Best schrikken als je opeens verrassend veel bestanden met size 0 op je harddisk hebt staan. En uiteraard dan meteen een unit die in zo ongeveer alle projecten wordt gebruikt.

Maar goed, we zijn er. De URL geeft nu terug wat volgens de server GMT is, dat is dus tevens de tijd waarin de posts worden opgeslagen. Op de server:

Code:
function GetUTC: TDateTime;
var
  stim: SYSTEMTIME;
begin
  GetSystemTime(stim);
  Result := SystemTimeToDateTime(stim);
end;

procedure TTracker2.WebDispatcherServerTimeItemAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  inherited;
  Response.Content := IntToStr(DateTimeToUnix(GetUTC));
end;
Vervolgens in DeX:

Code:
procedure TNLDXMLData.GetTimeDiff;
var
  ServerTime: string;
begin
  try
    with TIdHTTP.Create(Self) do
    try
      ServerTime := get(FURL + '/servertime');
      FTimeDiff := DateTimeToUnix(Now) - StrToInt(ServerTime);
    finally
      Free;
    end;
  except;
  end;
end;
Dat moet 'm zijn volgens mij.