устанавливаю setHttpMethod(connect, POST); - все равно отправляет GET
Проверил сниффером.
Код:
var
htmlbody, resp:String;
connect:http;
i:Integer;
begin
htmlbody := '...'; // Тут был большой блок с данными
if not openHttp(connect,
'http://transport.orgp.spb.ru/Portal/transport/stop/1282/arriving/') then
begin
drawText('Error1', 0, 0);
repaint;
delay(2000);
halt;
end;
setHttpMethod(connect, POST);
addHttpHeader(connect, 'User-Agent', 'Mozilla/5.0 (Windows NT 6.1; rv:12.0) Gecko/20100101 Firefox/12.0');
addHttpHeader(connect, 'Accept', 'application/json, text/javascript, */*; q=0.01');
addHttpHeader(connect, 'Accept-Language', 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3');
addHttpHeader(connect, 'Connection', 'keep-alive');
addHttpHeader(connect, 'Content-Type', 'application/x-www-form-urlencoded; charset=UTF-8');
addHttpHeader(connect, 'X-Requested-With', 'XMLHttpRequest');
addHttpHeader(connect, 'Referer', 'http://transport.orgp.spb.ru/Portal/transport/stop/1282');
addHttpHeader(connect, 'Pragma', 'no-cache');
addHttpHeader(connect, 'Content-Length', integertoString(length(htmlbody)));
addHttpBody(connect, htmlbody);
if sendHttpMessage(connect) <> 200 then halt;
resp := getHttpResponse(connect);
closeHttp(connect);
i := formAddString(resp);
showForm;
delay(5000);
delay(2000);