Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.11.2014, 23:58   #1
GrabbeR
Пользователь
 
Регистрация: 17.03.2010
Сообщений: 43
По умолчанию POST запрос и Charles

Господа, не получается сделать правильный запрос.
Charles отследил следующее:
Цитата:
POST /ru/metals/order HTTP/1.1
User-Agent: Opera/9.80 (Windows NT 5.1) Presto/2.12.388 Version/12.17
Host: tables.finance.ua
Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1
Accept-Language: ru-RU,ru;q=0.9,en;q=0.8
Accept-Encoding: gzip, deflate
Referer: http://tables.finance.ua/ru/metals/order
Cookie: b=b
Content-Length: 458
Method: POST http://tables.finance.ua/ru/metals/order HTTP/1.1
Content-Type: application/x-www-form-urlencoded

xajax=order_load&xajaxr=14170299461 28&xajaxargs[]=%3Cxjxobj%3E%3Ce%3E%3Ck%3Eevent%3C %2Fk%3E%3Cv%3Emetal%3C%2Fv%3E%3C%2F e%3E%3Ce%3E%3Ck%3Emetal%3C%2Fk%3E%3 Cv%3EXAG%3C%2Fv%3E%3C%2Fe%3E%3Ce%3E %3Ck%3Eregion%3C%2Fk%3E%3Cv%3E79228 162532711289474951200262%3C%2Fv%3E% 3C%2Fe%3E%3Ce%3E%3Ck%3Eprice%3C%2Fk %3E%3Cv%3Egramm%3C%2Fv%3E%3C%2Fe%3E %3Ce%3E%3Ck%3Epresent%3C%2Fk%3E%3Cv %3E%3C%2Fv%3E%3C%2Fe%3E%3Ce%3E%3Ck% 3Etype%3C%2Fk%3E%3Cv%3E*%3C%2Fv%3E% 3C%2Fe%3E%3C%2Fxjxobj%3E
На код ниже пишет неизвестную функцию... ошибку, короче. Как правильнее?

Код:
var
  PostData: TStringList;
  html: TStringStream;
begin
try
    PostData := TStringList.Create;
    html := TStringStream.Create('');
    idHTTP1.HandleRedirects:=true;
    PostData.Add('POST /ru/metals/order HTTP/1.1' + #13#10);
    PostData.Add('User-Agent: Opera/9.80 (Windows NT 5.1) Presto/2.12.388 Version/12.17' + #13#10);
    PostData.Add('Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1' + #13#10);
    PostData.Add('Accept-Language: ru-RU,ru;q=0.9,en;q=0.8' + #13#10);
    PostData.Add('Accept-Encoding: gzip, deflate' + #13#10);
    PostData.Add('Referer: http://tables.finance.ua/ru/metals/order' + #13#10);
    PostData.Add('Cookie: b=b' + #13#10);
    PostData.Add('Content-Length: 458' + #13#10);
    PostData.Add('Method: POST http://tables.finance.ua/ru/metals/order HTTP/1.1' + #13#10);
    PostData.Add('Content-Type: application/x-www-form-urlencoded' + #13#10 + #13#10);
    PostData.Add('xajax=order_load&xajaxr=1417029946128&xajaxargs[]=%3Cxjxobj%3E%3Ce%3E%3Ck%3Eevent%3C%2Fk%3E%3Cv%3Emetal%3C%2Fv%3E%3C%2Fe%3E%3Ce%3E%3Ck%3Emetal%' +
    '3C%2Fk%3E%3Cv%3EXAG%3C%2Fv%3E%3C%2Fe%3E%3Ce%3E%3Ck%3Eregion%3C%2Fk%3E%3Cv%3E79228162532711289474951200262%3C%2Fv%3E%3C%2Fe%3E%3Ce%3E%3Ck%3Eprice%3C%2Fk%3E%3Cv%3Egramm%' +
    '3C%2Fv%3E%3C%2Fe%3E%3Ce%3E%3Ck%3Epresent%3C%2Fk%3E%3Cv%3E%3C%2Fv%3E%3C%2Fe%3E%3Ce%3E%3Ck%3Etype%3C%2Fk%3E%3Cv%3E*%3C%2Fv%3E%3C%2Fe%3E%3C%2Fxjxobj%3');
    IdHTTP1.Post('http://tables.finance.ua/ru/metals/order',PostData,html);
    Memo1.Text := UTF8toANSI(html.DataString);
   finally
  end;
      html.Free;
end;

Последний раз редактировалось Stilet; 27.11.2014 в 08:07.
GrabbeR вне форума Ответить с цитированием
Старый 27.11.2014, 08:09   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А ты хотя бы в курсе что закодированные данные означают? Что в них закодировано?
Цитата:
PostData.Add('POST /ru/metals/order HTTP/1.1' + #13#10);
Это не в секции данных должно быть а в Header поста.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
post запрос sanyamel Работа с сетью в Delphi 1 04.11.2012 04:28
Post запрос STALERUM Работа с сетью в Delphi 1 16.09.2012 21:10
POST запрос bunukar Работа с сетью в Delphi 6 27.11.2011 19:26
POST запрос timyr1997 Работа с сетью в Delphi 2 05.07.2010 20:54
post запрос Editor Работа с сетью в Delphi 4 20.04.2008 14:01