27.11.2014, 10:39
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
что-то вроде этого:
Код:
var
LPost: TStringList;
begin
LPost:=TStringList.Create;
try
LPost.Text:='xajax=order_load&xajaxr=1417029946128&xajaxargs[]=%3Cxjxobj%3E%3Ce%3E%3Ck%3Eevent%..........';
IdHTTP1.Request.UserAgent:='Opera/9.80 (Windows NT 5.1) Presto/2.12.388 Version/12.17';
IdHTTP1.Request.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';
...
IdHTTP1.Request.RawHeaders.Add('Cookie: b=b');
...
Memo1.Text:=UTF8Decode(IdHTTP1.Post('/ru/metals/order', LPost));
finally
LPost.Free;
end;
end;
__________________
Пишу программы за еду.
__________________
|