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
;