Скачать: CL | DM;

Как отловить все ответы сервера?   Найти похожие ветки 

← →
Владимир   (2005-12-03 17:49) [0]

Добрый день. У меня такая проблемка, я посылаю запрос Post
и сервер возвращает ответ, как прочитать заголовок ответа?
HttpQueryInfo(hRequest, HTTP_QUERY_FLAG_REQUEST_HEADERS,
              @dwcode, dwCodeLen, dwIndex);
              res := pchar(@dwcode); вот так неполучается, и как правильно устанавливать dwCodeLen?
И как прочитать все ответы сервера, если он шлет их 3 а у меня читается только последний.

---

← →
Владимир   (2005-12-03 17:51) [1]

Единственное что работает так это

dwIndex  := 0;
dwCodeLen := 10;
HttpQueryInfo(hRequest, HTTP_QUERY_STATUS_CODE,
              @dwcode, dwCodeLen, dwIndex);
              res := pchar(@dwcode);
возвращает код последнего ответа сервера.

---

← →
isasa ©   (2005-12-05 10:53) [2]

Попробуй так:

var cURL : pURLs;
   hSes, hURL, hHTTP : HInternet;
   buf : string;
   bLen, hInd : longword;
   rBuff : PChar;
   i : longword;
...
 rBuff:=StrAlloc(bufLen);
...
 bLen:=4;
 hInd:=0;
 HttpQueryInfo(hHTTP, HTTP_QUERY_STATUS_CODE or HTTP_QUERY_FLAG_NUMBER, @i, bLen, hInd);
 Result:=i;
...
 bLen:=2048;
 HttpQueryInfo(hHTTP, HTTP_QUERY_RAW_HEADERS_CRLF, rBuff, bLen, hInd);
 buf :=string(rBuff);    // если надо в string
...


---

← →
seeker ©   (2005-12-05 15:01) [3]

> И как прочитать все ответы сервера, если он шлет их 3 а
> у меня читается только последний.

Что-то типа этого...

dwIndex:=0;
...
repeat
...
HttpQueryInfo(hRequest, dwFlag, @dwcode, dwCodeLen, dwIndex);
...
until (dwIndex=ERROR_HTTP_HEADER_NOT_FOUND) or (dwIndex=0);


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c