Hallo zusammen.
Ich versuche gerade Text-Dateien von einem HTTP-Server per Last-Modified zu aktualisieren.
Da dieses Update-Programm Zeitzonenunabhängig arbeiten soll muß ich was machen?
Zur Vorgehensweise:
1. Last-Modified vom Server holen (UTC-Zeit) per php-Script.
2. Last-Modified der lokalen Datei holen (function FileLastModified oder mit FileAge).
3. Vergleich der beiden Werte und neues Datum setzen.
Muß ich jetzt die Zeitdifferenz von LocalTime zu UTC addieren? Benutze ich FileAge oder FileLastModified? Und mit welchem Wert setze ich das Datum mit FileSetDate auf das neue LastModified-Datum?
Ich habe dabei leider einen Blackout. Ansonsten ist das Programm bereits komplett fertig...
Für eure Hilfe wäre ich echt dankbar!
mfG
JDommi
Zur Info: ich benutze noch Delphi 7 und die
Indy-Komponenten sind tabu, da sie unter Windows 7 Admin-Rechte benötigen (hat leider oder zum Glück nicht jeder User).
Ich hole mir die Zeit mit folgendem php-Script vom Server:
Code:
<?php
//Set no caching
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
header("Cache-Control: no-store, no-cache, must-revalidate");
header("Cache-Control: post-check=0, pre-check=0", false);
header("Pragma: no-cache");
$selfname = basename($_SERVER['PHP_SELF']);
if ($
handle = opendir('.')) {
while (false !== ($file = readdir($
handle))) {
if ($file != $selfname && is_file($file)) {
echo "$file\t" , filemtime($file) , "\n";
}
}
closedir($
handle);
}
?>
Mit UnixTimeToDateTime konvertiere ich dieses Datum dann in TDateTime.
Das Datum der letzten Änderung von der Datei auf Festplatte hole ich über:
Code:
function FileLastModified(const sFile: string): TDateTime;
var
h: THandle;
Info1, Info2, Info3: TFileTime;
SysTimeStruct: SYSTEMTIME;
TimeZoneInfo: TTimeZoneInformation;
begin
Result := 0.0;
h := FileOpen(sFile, fmOpenRead or fmShareDenyNone);
if h > 0 then
begin
try
GetFileTime(h, @Info1, @Info2, @Info3);
if FileTimeToSystemTime(Info3, SysTimeStruct) then
Result := SystemTimeToDateTime(SysTimeStruct);
finally
FileClose(h);
end;
end;
end;
Differenz zwischen UTC und Local Time
Code:
procedure GetTimeZoneBias;
const
MINUTES_PER_DAY = 24.0 * 60.0;
var
tzi : TTimeZoneInformation;
begin
case GetTimeZoneInformation(tzi) of
TIME_ZONE_ID_STANDARD:
bias := (tzi.Bias) / MINUTES_PER_DAY;
TIME_ZONE_ID_DAYLIGHT: // Sommerzeit
bias := (tzi.Bias+tzi.DaylightBias) / MINUTES_PER_DAY;
else
bias := 0.0;
end;
end;