Dateigröße auf server abfragen

[jority]

Hallo,
also ich schreibe grade an einem Update Programm und es ist so das er vor dem Download vom Server gucken soll wie groß die Datei ist und das mit der letzten Dateigröße vergleichen.

hab es mal so versucht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var f: file of byte;
    size: longint;
    s: string;
begin
    assignfile(f,'//192.168.2.148/infos/edv/update.exe');
    reset(f);
    try
    size:=filesize(f);
    s:='Datei ist '+ IntToStr(size)+ ' Bytes groß!';
    showmessage(s);
    finally
    closeFile(f);
    end;
end;

Aber das gibt einen Fehler zurück, wenn ich den Pfad auf C:\update.exe ändere geht es aber ich möchte die datei eigentlich vorher nicht downloaden sondern erstmal gucken wegen der Größe.

kann mir da jemand einen Tip geben?

gruß Jority

[Luckie]

AssignFile funktioniert nur lokal. Entweder du lädst die Datei erst runter mit einer FTP-Komponente, dann kannst du eigentlich auch direkt die Dateigröße abfragen oder du lädst sie mit Urldownlodtofile runter und kuckst dann eben lokal.

[jority]

über FTP geht es leider nicht da der dienst auf dem Server nicht läuft.

ich muss sie wohl erst laden und dann gucken wie groß sie ist.

trotzdem danke
gruß Jority

[sakura]

Du kannst mit der Indy-HTTP Komponente statt einer GET- eine HEAD-Abfrage machen und schauen, ob Du die Größe der Datei im Header erhälst.

...:cat:...