Как Перед Скачиванием Узнать Размер Файла

[Lomanu4]

GetUrlInfo(HTTP_QUERY_CONTENT_LENGTH, 'http://some.com/some.zip');
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 := 20;
if HttpQueryInfo(hFile, dwInfoLevel, @dwBuffer, dwBufferLen, dwIndex)
then Result := PChar(@dwBuffer);
if Assigned(hFile) then InternetCloseHandle(hFile);
InternetCloseHandle(hsession);
end;
end;

 

[zloy]

очередной нерабочий копипаст !!!
исходник с ехе https://www.sendspace.com/file/6dvj3y

 

[Mazahaka_lab]

Зачем публиковать не работающие пример я не пойму ???? Вы хотя бы их сами проверяли прежде чем публиковать ?

 

[Lomanu4]

Зачем публиковать не работающие пример я не пойму ???? Вы хотя бы их сами проверяли прежд

очередной нерабочий копипаст !!!
исходник с ехе https://www.sendspace.com/file/6dvj3y

е чем публиковать ?

что именно у вас не работает, выскакивает ошибка пр. Компиляции и вы не знаете как решить проблему и сразу пишите что не работает. У меня все работает запишу видео и вы увидеть сами.

 

[Mazahaka_lab]

что именно у вас не работает, выскакивает ошибка пр. Компиляции и вы не знаете как решить проблему и сразу пишите что не работает. У меня все работает запишу видео и вы увидеть сами.

Если выкладывать примеры , то хотя бы выкладывайте полностью код без проблем с компиляцией, а не кусок взяты с другого сайта. Приходится постоянно дописывать или исправлять . Смысл в таких публикациях я не пойму ? Абы опубликовать ? В данном примере нет информации что используется WinInet. Что в uses WinInet добавлять в вашем примере не сказано. Пропущено как и в остальных примерах . Дальше всё компилируется . Со ссылкой в примере всё работает, но стоит изменить её на свою , получаем ошибку.


Так что пример не рабочий !

Опубликовал свой рабочий пример https://www.guardianelinks.de/threads/uznajom-razmer-fajla-pered-skachivaniem.29571