Maks150988

Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору И еще вопрос. Решил для себя сделать программку для определения размера файла через урл ссылки. Использовал тот самый пример: Код: function GetUrlInfo(const dwInfoLevel: DWORD; const FileURL: string): string; var hSession, hFile: hInternet; dwBuffer: Pointer; dwBufferLen, dwIndex: DWORD; begin Result := ''; hSession := InternetOpen('STEROID Download', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); if Assigned(hSession) then begin hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0, INTERNET_FLAG_RELOAD, 0); dwIndex := 0; dwBufferLen := 40; if HttpQueryInfo(hFile, dwInfoLevel, @dwBuffer, dwBufferLen, dwIndex) then Result := PChar(@dwBuffer); if Assigned(hFile) then InternetCloseHandle(hFile); InternetCloseHandle(hsession); end; end; GetUrlInfo(HTTP_QUERY_CONTENT_LENGTH, 'http://files.ru/files.zip'); | Но вот беда(( Оно не показывает полностью размер файла, если у того размер больше 4 цифр в байтах. И всегда в таких случаях идет прямая полоса(( Что надо сделать? |