Taille d'un fichier distant via le web

Salut à tous.

J'aimerais savoir comment récupérer la taille d'un fichier qui se trouve sur un serveur distant via internet (HTTP). J'utilise InternetReadFile pour télécharger; ça marche plutôt bien mais je souhaite afficher une ProgressBar pour faire patienter l'utilisateur (donc il me faut la taille du fichier ...)

Merci.

A l'aide d'Indy : TIdHTTP.Head, la taille se trouvant dans TIdHTTP.Response.ContentLength.

Citation:

Envoyé par Andnotor

A l'aide d'Indy : TIdHTTP.Head, la taille se trouvant dans TIdHTTP.Response.ContentLength.

J'avais trouvé une autre solution un peu plus compliquée avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function WebFileSize(URL: string): cardinal;
var
    hInet, hURL: HINTERNET;
    len: cardinal;
    index: cardinal;
begin
    result := cardinal(-1);
    hInet := InternetOpen(PChar(application.title), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    index := 0;
    if hInet <> nil then
    try
        hURL := InternetOpenUrl(hInet, PChar(URL), nil, 0, 0, 0);
        if hURL <> nil then
        try
            len := sizeof(result);
            if not HttpQueryInfo(hURL, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER, @result, len, index) then RaiseLastOSError;
        finally
            InternetCloseHandle(hURL);
        end;
    finally
        InternetCloseHandle(hInet)
    end;
end;

Ainsi WebFileSize('http://monsite/monfichier.txt') me donne la taille du fichier à télécharger. Cool !

Andnotorn ta solution est plus simple mais fait appel à un composant.
Merci.