WinInit получить заголовки

[Alex2009]

Доброе время суток, ребят!
Прошу помощи так как гугл нечего не дал, как можно получить заголовки в WinInit?

Пробовал вот так, но нечего не получаю.

if HttpQueryInfo(Request, HTTP_QUERY_RAW_HEADERS_CRLF, @tszTemp, bLen,hInd) then
begin
     otvet := tszTemp;
end;

[Stilet]

Рекомендую вот отсюда: http://msdn.microsoft.com/ru-ru/libr.../aa385373.aspx

[Alex2009]

Спасибо, ув. Stilet, я и так пользуюсь этим.

С заголовками с трудом разобрался, но вот возникла теперь иная проблема, отлавливать редирект.
Пробовал в тупую парсить Location: но не выходит.
Может у кого есть идеи или готовый код?

[Stilet]

В таком случае я бы через GetLastError() получил код ошибки и посмотрел что она означает.

[Alex2009]

Спасибо буду пробовать.
К сожалению плюсом отблагодарить не могу в связи лимитами форума(

[Stilet]

Не страшно.
Кстати я я взял за привычку писать так:

SetLastError(0);
if HttpQueryInfo(Request, HTTP_QUERY_RAW_HEADERS_CRLF, @tszTemp, bLen,hInd) then
begin
     otvet := tszTemp;
end else RaiseLastOSError();
// или ...:=SysErrorMessage(GetLastError); если не нужно месседжем выводить ошибку.

Что даст читабельную ошибку. Тады хоть понятно будет что произошло.

[Alex2009]

Спасибо вам большое еще раз.

И последний вопрос, как работать с HTTPS пробовал просто порт менять как написано в документации, но не работает почему то, может я что то пропустил, по мимо порта еще нужны какие то параметры?

[Stilet]

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

[Alex2009]

dll файлы уже идут с Windows их ложат для подстраховки, называются libeay32.dll и ssleay32.dll.

Хорошо, обязательно выложу.

При 3-х запросах или более получаю out of memory, сама функция у меня в AnsiString

function TVKEngineAPI.HTTPMethod(method, url: string): AnsiString;

Если закоментировать этот кусок кода, все отлично, но где косяк я так и не понял.

repeat
          //Получаем кол-во принимаемых данных
          if L = 0 then break;
          SetLength(sTemp,L + I);
          if InternetReadFile(hRequest,@sTemp[I],sizeof(L),dwBytesRead) then
          else break;
          inc(I,dwBytesRead);
          until dwBytesRead = 0;
          sTemp[I] := #0;
          Result := sTemp;

[Stilet]

sizeof(L)

Что это? Зачем? Если L у тебя integer то ты пытаешся запросить 32 тысячи байт.
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
А тебе видимо нужно писать либо sizeof(sTemp) либо Length(sTemp). И проверками не гнушайся:

          if not InternetReadFile(hRequest,@sTemp[I], Length(sTemp),dwBytesRead) then
          begin 
RaiseLastOSError();
break;
end;