function GetInetFileSize(h:HInternet):Int64;
...
begin
dwBufferLen:=64;
...
if HttpQueryInfo(h, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER64, @result, dwBufferLen, dwIndex) then
но отрабатывает
function GetInetFileSize(h:HInternet):Int64;
...
var dwBuff: array [1..32] of Char;
begin
dwBufferLen:=32;
...
if HttpQueryInfo(h, HTTP_QUERY_CONTENT_LENGTH, @dwBuff, dwBufferLen, dwIndex) then
Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
08-10-2019 01:46
// HTTP_QUERY_FLAG_NUMBER64 - if this bit is set in the dwInfoLevel parameter of
// HttpQueryInfo(), then the value of the header will be converted to a 64bit
// number before being returned to the caller, if applicable
Это из хедера Wininet.h
То есть, функция преобразует данные в указанный формат.
И функция, конечно, не должна выходить за указанный размер буфера при записи результата.
Возможно, ошибка в другом месте.
Спасибо, Александр, попробую. Но в буфере с флагом HTTP_QUERY_CONTENT_LENGTH двухбайтная строка, если интерпретировать её, как int64, то это будет не верный результат. Имхо. А при добавлении флага HTTP_QUERY_FLAG_NUMBER64 и достаточно большом буфере программа вылетает даже без сообщений.
function GetInetFileSize(h:HInternet):Int64;
...
var dwBuff: array [1..32] of Char;
I64: Int64 absolute dwBuff;
begin
dwBufferLen:=sizeof(dwBuff);
...
if HttpQueryInfo(h, HTTP_QUERY_CONTENT_LENGTH, @dwBuff, dwBufferLen, dwIndex) then
result := I64;
>>>Область данных, переданная по системному вызову слишком мала
Ну, видимо, меньше определенного предела нельзя. А когда была попытка задать размер 64 и Int64 в качестве возвращаемого значения - лишнее просто пихалось в стек выше этого инта. И, возможно, что-то перетирало.
dwBufferLen:=8;
if HttpQueryInfo(h, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER64, @result, dwBufferLen, dwIndex) then
Приводит к ошибке с текстом: "Область данных, переданная по системному вызову слишком мала". С размером 16 - то же самое.
С размером 32 или 64 программа вылетает без всяких сообщений.
О! Кстати, верное замечание! Спасибо.
Но разве больший размер буфера не позволяет получить правильный ответ? Я, например, для строки во втором примере выделяю произвольный буфер, который больше полученных данных. Надо проверить.
И ещё возникла непонятка, когда попытался использовать в качестве буфера строку. Выделил память, заполнил нулями, получил данные. Вижу эту строку в ShowMessage, но финализирующие нулевые символы не давали преобразовать строку в число и добавить в конец еще одну строку. Присваивание другой строке тоже не убрало лишние нули. Сервер (или библиотека?) возвращает 2 байтную строку. Все строковые переменные Unicode. Только через copy получилось. Среда Deplhi XE2.
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.
