Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

HttpQueryInfo: возникает ошибка [D7, WinXP]

Danger © (2008-01-02 22:23:00)
При использовании HttpQueryInfoс HTTP_QUERY_RAW_HEADERS_CRLFв моей программе часто возникают ошибки (причем, одна и та же функция для одного и того же ресурса может несколько раз нормально сработать, а потом вывалиться с ошибкой ERROR_HTTP_HEADER_NOT_FOUND). Участок кода, на котором проявляется:
var hRequest: HINTERNET; Buf: PChar; iBufSize, iReserved, iErrorCode: Cardinal; ...... // receiving headers (if event assigned) HttpQueryInfo( hRequest, HTTP_QUERY_RAW_HEADERS_CRLF, Buf, iBufSize, iReserved ); // NB: it's ok when 'unsufficient buffer' message received now iErrorCode:= GetLastError; if ( iErrorCode = ERROR_INSUFFICIENT_BUFFER ) then begin try GetMem( Buf, iBufSize ); if ( HttpQueryInfo( hRequest, HTTP_QUERY_RAW_HEADERS_CRLF, Buf, iBufSize, iReserved ) ) then begin // .... читаем заголовки из буфера, работаем .... end // 'if ( HttpQueryInfo( hRequest, HTTP_QUERY_RAW_HEADERS_CRLF, Buf, iBufSize, iReserved ) )' else if Assigned( fOnError ) then fOnError( @Self, GetLastError ); finally FreeMem( Buf ); end; end // 'if ( iErrorCode = ERROR_INSUFFICIENT_BUFFER )' else // !!! вот здесь частенько ERROR_HTTP_HEADER_NOT_FOUND в iErrorCode !!! if Assigned( fOnError ) then fOnError( @Self, iErrorCode );
hRequestинициализирована. Разъясните ситуацию, в чем может быть проблема.

MetalFan (2008-01-08 19:10:00) [1]
панятно... значит через реестр только(

Danger (2008-01-08 17:36:00) [2]

> > Подробности здесь: http://support.microsoft.com/kb/258425.
> Невозможно отобразить страницу...

Без точки на конце, просто http://support.microsoft.com/kb/258425

> как решил?

пока не придумал, работает пока по HTTP/1.1.

>через InternetSetOption+INTERNET_OPTION_HTTP_VERSION ?

а это та же шарманка ... тоже попробовал когда-то, вот так:

var HTTPVInfo: HTTP_VERSION_INFO; ....... InternetSetOption( hRequest, INTERNET_OPTION_HTTP_VERSION, @HTTPVInfo, SizeOf( HTTP_VERSION_INFO ) ); ....... initialization HTTPVInfo.dwMajorVersion:= 1; HTTPVInfo.dwMinorVersion:= 0;

Поля записи инициализированы (HTTP/1.0), InternetSetOption()возвращает TRUE, но запрос все равно идет HTTP/1.1.

MetalFan (2008-01-07 21:05:00) [3]

> Подробности здесь: http://support.microsoft.com/kb/258425.

Невозможно отобразить страницу...

как решил? через
InternetSetOption+INTERNET_OPTION_HTTP_VERSION ?

Danger (2008-01-07 11:21:00) [4]

>> MetalFan © (05.01.08 10:10) [8]
>> просто укажи '1.0' без http

> // prepare resource request hRequest:= HttpOpenRequest(
> hConnect, nil, PChar( fPath ), '1.0', nil, nil, INTERNET_FLAG_NO_UI
> + INTERNET_FLAG_PRAGMA_NOCACHE, 0);

> Все равно в запросе HTTP/1.1.

Если кто столкнется с такой же проблемой: выяснилось, что HttpOpenRequestпросто игнорирует версию протокола, формирует запрос в зависимости от настроек IE. Подробности здесь: http://support.microsoft.com/kb/258425.

Danger (2008-01-05 14:46:00) [5]

> MetalFan © (05.01.08 10:10) [8]
> просто укажи '1.0' без http

// prepare resource request hRequest:= HttpOpenRequest( hConnect, nil, PChar( fPath ), '1.0', nil, nil, INTERNET_FLAG_NO_UI + INTERNET_FLAG_PRAGMA_NOCACHE, 0);

Все равно в запросе HTTP/1.1.

MetalFan (2008-01-05 10:10:00) [6]
просто укажи '1.0' без http

Danger (2008-01-04 22:42:00) [7]
Вроде бы, теперь все нормально (я пользовался старым Platform SDK, в новый не глянул). Спасибо, umbra, MetalFan.

Теперь такой вопрос, уже по HttpOpenRequest: я принудительно задаю тип протокола HTTP/1.0, но в конечном счете запрос к серверу идет все равно как HTTP/1.1 (!), в перехваченных HTTP-запросах: GET /someresource.ext HTTP/1.1. Хотелось бы знать, почему?

const strConnectType = 'Connection: close'; ...... // prepare resource request hRequest:= HttpOpenRequest( hConnect, nil, PChar( fPath ), 'HTTP/1.0', nil, nil, INTERNET_FLAG_NO_UI + INTERNET_FLAG_PRAGMA_NOCACHE, 0); // setting http headers 'connection type' field (don't allow persistent connection) HttpAddRequestHeaders( hRequest, strConnectType, Length( strConnectType ), HTTP_ADDREQ_FLAG_ADD ); // send http request to server HttpSendRequest( hRequest, nil, 0, nil, 0 );

MetalFan (2008-01-04 15:16:00) [8]

> а скорее всего ошибка возникает из-за того, что вы не инициализируете
> iReserved. Поскольку это локальная переменная, то в ней
> вполне может находиться некий мусор, и она не будет равна
> нулю.

в точку!!! вообще-то это уже не iReserved...
в MSDN этот параметр описан так:

lpdwIndex
Pointer to a zero-based header index used to enumerate multiple headers with the same name. When calling the function, this parameter is the index of the specified header to return. When the function returns, this parameter is the index of the next header. If the next index cannot be found, ERROR_HTTP_HEADER_NOT_FOUNDis returned.

umbra (2008-01-04 13:31:00) [9]

> hRequest: HINTERNET; Buf: PChar;
> iBufSize, iReserved, iErrorCode: Cardinal;
> ......
>
> // receiving headers (if event assigned)
> HttpQueryInfo( hRequest, HTTP_QUERY_RAW_HEADERS_CRLF, Buf,
> iBufSize, iReserved );

а скорее всего ошибка возникает из-за того, что вы не инициализируете iReserved. Поскольку это локальная переменная, то в ней вполне может находиться некий мусор, и она не будет равна нулю.

umbra (2008-01-04 13:09:00) [10]
а у вас вининет работает синхронно или асинхронно?

MetalFan (2008-01-03 20:08:00) [11]
ну это понятно...
но кода все равно мало.
а лучше выложи демо-проект, на котором можно эту ошибку проверить

Danger (2008-01-02 22:46:00) [12]

> MetalFan © (02.01.08 22:36) [1]
> маловато кода приведено.какие изначально значения у iBufSize,
> Buf?

По MSDN ( http://msdn2.microsoft.com/en-us/library/aa384238.aspx, http://msdn2.microsoft.com/en-us/library/aa385373(VS.85).aspx), чтобы получить размер заголовков, память под буфер не надо выделять, а в iBufSize возвращается размер буфера, необходимого под заголовки.
Поэтому, в общем случае до вызова HttpQueryInfo(): Buf:= nil; iBufSize:= 0;

MetalFan (2008-01-02 22:36:00) [13]
маловато кода приведено.
какие изначально значения у iBufSize, Buf?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »