Как узнать размер файла в нете? -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.123]

Соблюдайте общие правила форума

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image

MSDN Library user posted image

FAQ раздела user posted image

Поиск по разделу user posted image

Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image

Krid,

Rouse_

Модераторы: Krid, Rouse_

Ссылки по теме:

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

Новое голосование

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

CrazyVirus	Сообщ. #1 , 21.05.05, 06:00
Junior Профиль · PM Рейтинг (т): -1	Как узнать размер файла в нете?

P.O.D	Сообщ. #2 , 21.05.05, 10:08
Guru Профиль · PM Поощрения: 1 Dgm Рейтинг (т): 274	HttpQueryInfo ---- Может в фак загоним это, или там уже есть ?

CrazyVirus	Сообщ. #3 , 21.05.05, 13:34
Junior Профиль · PM Рейтинг (т): -1	Не фига в факе нету!

P.O.D

Сообщ. #4 , 21.05.05, 16:16

Guru

Профиль · PM

Поощрения: 1 Dgm

Рейтинг (т): 274

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;

CrazyVirus	Сообщ. #5 , 22.05.05, 07:56
Junior Профиль · PM Рейтинг (т): -1	Спасибо!!!!!!!!!!!

Mr.Delphist	Сообщ. #6 , 28.05.05, 14:59
Profi Профиль · PM Рейтинг (т): 68	Только имей ввиду, что ты получишь размер файла ТОЛЬКО В ТОМ СЛУЧАЕ, ЕСЛИ СЕРВЕР УМЕЕТ ЭТО СООБЩАТЬ. Многие бесплатные хосты сообщают длину файла как ноль (хотя реально файл есть).

Sec†orX	Сообщ. #7 , 18.11.08, 15:53
Member Профиль · PM Рейтинг (т): 0	А как узнать имя файла из URL, если ссылка непрямая??? Через WinInet есс-но.

Gonarh	Сообщ. #8 , 18.11.08, 16:54
Unregistered	Цитата CrazyVirus @ 21.05.05, 13:34 Не фига в факе нету! Уважаемый, та вааще в фак заглядывал? фак

Sec†orX	Сообщ. #9 , 18.11.08, 16:58
Member Профиль · PM Рейтинг (т): 0	Что по поводу моего вопроса? Весь форум пеперыл по фразе WinInet, решения не нашел! И у десятка кодеров в аське спросил, никто не может ничего подсказать.

Gonarh	Сообщ. #10 , 18.11.08, 17:06
Unregistered	GET/POST ?

Sec†orX

Сообщ. #11 , 18.11.08, 17:09

Member

Профиль · PM

Рейтинг (т): 0

Цитата Mr. Gonarh @ 18.11.08, 17:06

GET/POST ?

Вот тут подобный вопрос задавали.

Цитата

Привет всем.
Столкнулся с проблемой. Как определить размер файла, примеров в сети уйма, а вот как определить имя файла ни одного даже намёка не нашел

Ну, с прямыми ссылками типа
http://host.net/download/file.zip
всё понятно, но если ссылка типа
http://host.net/go.php?act=download&file=76534
то как быть в этой ситуации?

Заранее биг фенькс.

Добавлено 18.11.08, 17:09
как это сделать?

Добавлено 18.11.08, 17:14
Пробовал через эту функцию:

function GetUrlInfo(const dwInfoLevel: DWORD; const FileURL: string):

string;

var

hSession, hFile: hInternet;

dwBuffer: Cardinal;

dwBufferLen, dwIndex: DWORD;

begin

Result := '';

hSession := InternetOpen('Explorer',

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 := 1000;

if HttpQueryInfo(hFile, dwInfoLevel, @dwBuffer, dwBufferLen, dwIndex)

then Result :=PChar( @dwBuffer);

if Assigned(hFile) then InternetCloseHandle(hFile);

InternetCloseHandle(hsession);

end;

Но возвращает пустой результат.

Вызов:
GetUrlInfo(HTTP_QUERY_LOCATION, url);

Gonarh	Сообщ. #12 , 18.11.08, 17:14
Unregistered	дык говорю же формируешь запрос, читаеш заголовок и в поле Content-Location будет тебе то что нужно

Lumen	Сообщ. #13 , 18.11.08, 17:19
Profi Профиль · PM Рейтинг (т): 200	Mr. Gonarh Может тогда уже HEAD-запрос?

Sec†orX

Сообщ. #14 , 18.11.08, 17:28

Member

Профиль · PM

Рейтинг (т): 0

Цитата Mr. Gonarh @ 18.11.08, 17:14

дык говорю же формируешь запрос, читаеш заголовок и в поле Content-Location будет тебе то что нужно

Можно поподробнее?
Желательно пример отправки запроса. Только WinInet, не WinSock.

Добавлено 18.11.08, 17:30
либо получение хеадера через HTTP_QUERY_RAW_HEADERS

Gonarh

Сообщ. #15 , 18.11.08, 17:32

Unregistered

Цитата Sec†orX @ 18.11.08, 17:28

Цитата Mr. Gonarh @ 18.11.08, 17:14

дык говорю же формируешь запрос, читаеш заголовок и в поле Content-Location будет тебе то что нужно

Можно поподробнее?
Желательно пример отправки запроса. Только WinInet, не WinSock.

к сожалению работал только с Winsock API

Сообщение отредактировано: Mr. Gonarh - 18.11.08, 17:36

Sec†orX	Сообщ. #16 , 18.11.08, 17:49
Member Профиль · PM Рейтинг (т): 0	Цитата Mr. Gonarh @ 18.11.08, 17:32 к сожалению работал только с Winsock API Жаль. Кто подскажет как реализовать через WinInet??? Сообщение отредактировано: Sec†orX - 18.11.08, 17:50

Gonarh	Сообщ. #17 , 18.11.08, 18:34
Unregistered	а idHTTP не подойдет?

Sec†orX	Сообщ. #18 , 19.11.08, 09:27
Member Профиль · PM Рейтинг (т): 0	Цитата Mr. Gonarh @ 18.11.08, 18:34 а idHTTP не подойдет? Не, от Indy давно уже отказался. Нашел вчера решение здесь

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0.0954 ] [ 16 queries used ] [ Generated: 26.08.26, 13:47 GMT ]