Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Größe und Datum einer Datei im Internet herrausfinden. (https://www.delphipraxis.net/77967-groesse-und-datum-einer-datei-im-internet-herrausfinden.html)

masterchris_99 27. Sep 2006 10:47


Größe und Datum einer Datei im Internet herrausfinden.
 
Morgen,

Ich bastel gerade an einem Update Programm.
Nun würde mich interessieren ob es möglich ist über das Internet ohne ein PHP- post Get Script das Datum und die Größe einer Datei herrauszufinden.
Ich weiss das ich es jetzt per ini Datei machen kann aber das is doch ein recht großer Aufwand.

Delphi 7 mit Indy und Jedi Komponenten.

mFg Chris

marabu 27. Sep 2006 19:09

Re: Größe und Datum einer Datei im Internet herrausfinden.
 
Hallo Chris,

du kannst dir z.B. mit der Methode Size() der Komponente TIdFTP die Dateigröße besorgen. Falls das nicht funktioniert, weil der Server nicht mitspielt, dann kannst du dir auch die Verzeichnisinformationen für die gewünschte Datei holen. Hier ist ein Code-Schnipsel für den worst case: klick

Grüße vom marabu

masterchris_99 27. Sep 2006 19:12

Re: Größe und Datum einer Datei im Internet herrausfinden.
 
Ohh Sorry hatte ich mich nicht konkret ausgedrückt.

FTP kommt nicht in Frage da zu unsicher.
Nur HTTP.

marabu 27. Sep 2006 19:21

Re: Größe und Datum einer Datei im Internet herrausfinden.
 
In diesem Fall experimentiere mal mit der Methode Head() der Komponente TIdHTTP.

marabu

masterchris_99 28. Sep 2006 09:21

Re: Größe und Datum einer Datei im Internet herrausfinden.
 
danke danke super tip es geht.

Für alle die es selber suchen:

Delphi-Quellcode:
//****************************************************************
// Gibt als Wert die Größe der Datei auf dem Server zurück. (byte)
// FileName ist die URL-Adresse der Datei.
//****************************************************************
Function DateiSize (FileName :String): Integer;
begin
  IdHTTP1.Head(filename);
  result := IdHTTP1.Response.ContentLength;
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:15 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz