Größe einer Onlinedatei ermitteln

[kingflo]

Hallo weiß jemand von euch, wie ich die größe einer Datei herrausfinden kann?

z.B auf http://www.seite.de/datei.zip
und label1 soll mir die datei größe anzeigen.

weiß jemand, wie ich das am bessten machen kann?

[moritz]

Du musst dir mit einem Request die Header der Datei holen, und in denen steht dann in 'Content-Length' die Größe der Datei in Bytes.

Edit:
Nochmal nachgeschaut, du kannst es mit IdHttp machen:

Delphi-Quellcode:

IdHTTP.Head('Dein URL');
ShowMessage(IntToStr(IdHTTP1.Response.ContentLength) + 'Bytes');

Falls du -1 zurück bekommst, wurde von der Seite keine Größenangabe gesendet.

[Chewie]

Zitat von moritz:

Du musst dir mit einem Request die Header der Datei holen, und in denen steht dann in 'Content-Length' die Größe der Datei in Bytes.

Eventuell...

[kingflo]

danke

[Lannes]

Hallo,

Zitat von moritz:

Falls du -1 zurück bekommst, wurde von der Seite keine Größenangabe gesendet.

Zitat von Chewie:

Eventuell....

Hast Du dein Ziel mit "IdHttp" erreicht?
sonst versuch es mal damit:

Delphi-Quellcode:

uses wininet;


Function InternetDateiByts(url: string): string;
var Session, thefile : hInternet;
    index,codelen : Integer;
    code : array[1..20] of char;
    res : pchar;
begin
  if pos('http://',lowercase(url))=0 then url:='http://'+url;
  Session:=InternetOpen('InetURL:/1.0',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  if assigned(session) then
  begin
    thefile:=InternetOpenUrl(session, pchar(url), nil, 0, INTERNET_FLAG_RELOAD,0);
    Index:= 0;
    CodeLen:= 10;
    HttpQueryInfo(thefile, HTTP_QUERY_CONTENT_LENGTH, @code, codeLen, Index);
    res:= pchar(@code);
    if (res = '245') then res:= '-1';
    if assigned(thefile) then InternetCloseHandle(thefile);
  end;
  InternetCloseHandle(session);
  GetInternetFileSize:= res;
end;

http://www.seite.de/datei.zip Größe = 5476 Byts richtig