Erstellungsdatum ermitteln

Chrise · Hält's aus hier Beiträge: 2

Hallo

weis jemand wie ich das Erstellungsdatum einer Datei herrausfinde ?

Lokal ist das ja kein Problem. Aber die Datei steht auf meiner Homepage und wenn ich der funktion z.B
'http://www.meineseite.de/test.exe' übergebe gekomme ich kein Rückgabewert.
Hier die function

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function Erstellungsdatum(const AFileName: String): TDateTime;    // 0 wenn nicht gefunden
var
  SR: TSearchRec;
  SystemTime: TSystemTime;
  NewCreationTime: TFileTime;
begin
  Result:=0;
  if FindFirst(AFileName, faAnyFile, SR)=0 then
  try
   IF (Windows.FileTimeToLocalFiletime(SR.FindData.ftCreationTime, NewCreationTime) and
           Windows.FileTimeToSystemTime(NewCreationTime, SystemTime)) Then
    Result:=Encodedate(SystemTime.wYear,
                       SystemTime.wMonth,
                        SystemTime.wDay) +
            Encodetime(SystemTime.wHour,
                       SystemTime.wMinute,
                       SystemTime.wSecond,
                       SystemTime.wMilliseconds);
  finally
   SysUtils.FindClose(SR)
  end;
end;

MFG
Christian

Moderiert von jasocul: Delphi-Tags hinzugefügt

jaenicke · Verfasst: Mo 27.11.06 14:24

Erstmal hallo und :welcome:

hier im Forum!

Nun ja, das ist auf dem Server auch nicht so einfach. Ich glaube nicht, dass es überhaupt geht. (Denn es wäre ja ein Sicherheitsrisiko.) Eventuell bekommt man die Information im Header, wenn man einen Dateitransfer initiiert, aber das müsste der Server dann schon explizit machen, das heißt du müsstest ein PHP-Skript zum Downloaden nutzen, das dir die Infos mitgibt.
Denn: Die Infos stehen ja im Dateisystem und nicht in der Datei. Und von einem normalen HTTP-Server diese Infos zu bekommen geht IMHO nicht. Bei einem FTP-Server ist das was anderes, der gibt die Infos, wenn man eingeloggt ist, natürlich raus.

Die Frage ist aber: Wozu brauchst du das? Soll das eine automatische Update-Funktion für dein Programm werden? Wenn ja, dann schreib die Infos einfach in eine Datei und lade diese herunter...

Schönen Gruß,
Sebastian Jänicke

Dann noch was allgemeines:
Damit der Quelltext korrekt dargestellt wird, benutze bitte hier im Forum die Delphi-Tags, die user profile icon

jasocul in diesem Fall für dich ergänzt hat!
Hier steht wie das geht:
www.delphi-forum.de/...ml&sub=,19,27,32
Die musst du natürlich nicht selbst tippen, du musst nur über dem Eingabefeld auf Bereiche und in diesem Fall dann auf das Plus hinter Delphi einmal vor und einmal nach dem Code schreiben klicken. Mehr dazu hier:
www.delphi-forum.de/...ml&sub=,19,27,32

Chrise · Hält's aus hier Beiträge: 2

Danke für die nette Begrüßung :-)

und ja es soll ein automatisches update werden ^^

Werde doch auch klatt deinen Vorschlag nachgehn ...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme