Größe einer Datei im Internet ermitteln mit std. Komponenten

[marius0702]

Wie kann ich nur mit den normalen delphi komponenten die größe einer Datei im Internet ermitteln?

[toms]

Hallo,

z.B mit WinInet. Stichwörter: HttpQueryInfo HTTP_QUERY_CONTENT_LENGTH Delphi

[SirThornberry]

könntest du deine Frage bitte präzisieren? Über welches Protokoll wird die Datei angeboten? Http? FTP? etc.?

[marius0702]

ich hab jetzt diesen code gefunden

Delphi-Quellcode:

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,//hier kommt der fehler
    Index);

    res:= pchar(@code);
    if (res = '245') then res:= '-1';
    if assigned(thefile) then InternetCloseHandle(thefile);
  end;
  InternetCloseHandle(session);
  result:= res;
end;

es kommt aber die fehlermeldung "Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen."

[toms]

Hallo,

Fahre mit der Maus über HttpQueryInfo. Dann siehst du im Hint den Prozedurkopf / die Typen der Variablen.

[marius0702]

Ok es geht jetzt.
Danke für die Antworten.