Textdatei-Aktualisierungen über HTTP

[JDommi]

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;