Как узнать размер файла в интернете?

Как узнать размер файла в интернете?

Code: Uses wininet; ... Function GetUrlSize(const URL:string):integer;//результат в байтах. Var. HSession,hFile:hInternet; DwBuffer:array[1..20] of char; DwBufferLen,dwIndex:DWORD; Begin. Result:=0; HSession:=InternetOpen('GetUrlSize',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0); If Assigned(hSession) then begin. HFile:=InternetOpenURL(hSession,PChar(URL),nil,0,INTERNET_FLAG_RELOAD,0); DwIndex:=0; DwBufferLen:=20; If HttpQueryInfo(hFile,HTTP_QUERY_CONTENT_LENGTH,@dwBuffer,dwBufferLen,dwIndex) then Result:=StrToInt(StrPas(@dwBuffer)); If Assigned(hFile) then InternetCloseHandle(hFile); InternetCloseHandle(hsession); End; End;

Взято из http://forum.sources.ru.

Автор: P.O.D.

©Drkb::03582.