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.
Bookmarks