Авторизация спрашивай.ру Delphi

Помогите сделать авторизацию на спрашивай.ру.
Делаю так: (Пароль в MD5)

HTML:

var
LoginData, Response: TStrings;
begin
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('email='+Edit1.Text);
LoginData.Add('pass='+Edit2.Text);
Response.Text := IdHTTP1.Post('http://sprashivai.ru/login',LoginData);
if Pos('logout',Response.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
LoginData.Free;
end;
end;
 

но в ответ выдаёт

Code:

{"status":"error","message":"\u0412\u044b \u0443\u0436\u0435 \u0430\u0432\u0442\u043e\u0440\u0438\u0437\u043e\u0432\u0430\u043d\u044b"}

 

А есть акк? впадлу регить.

 

Он не работает, как заработает отпишу.

 

Там написано "Вы уже авторизованы"

 

Даже если авторизован он должен выдавать сообщение, а не ошибку.

 

Не "даже если авторизован", а точно авторизован. Не знаю, кто тебе что должен выдавать, но выдает - "Вы уже авторизованы"

 

Хм... на норм. сайтах при каждом входе, новые куки выдаются обычно))) здесь не так?

 

пацан сайты кладет авторизацией) учитесь

 

De-visible, понятия не имею =)
Я просто перевел escape-последовательности юникода в обычный шрифт. ТС сам написал в первом посте:
{"status":"error","message":"\u0412\u044b \u0443\u0436\u0435 \u0430\u0432\u0442\u043e\u0440\u0438\u0437\u043e\u0432\u0430\u043d\u044b"}

 

Как ты переводишь? В интернете ничего стоящего не нашёл...

 

Например так:
javascript:alert("\u0412\u044b \u0443\u0436\u0435 \u0430\u0432\u0442\u043e\u0440\u0438\u0437\u043e" + "\u0432\u0430\u043d\u044b")
Вставь в адресную строку браузера и нажми ENTER

 

Спасибо)

 

И ещё, вот получаю такой ответ:

Как мне присвоить к Label именно логин Sanek737. Помню что можно как то так
reg:=TRegExpr.create;
reg.Expression:='"username":"([0-9a-z])",';
reg.Exec(otvet);
login:=reg.Match[1];
label1.Caption:=(login);

 

О_о

Code:

#python
print u'\u0412\u044b \u0443\u0436\u0435 \u0430\u0432\u0442\u043e\u0440\u0438\u0437\u043e\u0432\u0430\u043d\u044b'.encode('utf-8')

http://rishida.net/tools/conversion/


------------------------------

Дак ты не мелочись, скажи что тебе нужно в итоге получить, а то начал, как то издалека))))

 

Я пиши авторизацию для спрашивай, а со Delphi уже год не работал и всё подзабыл. Вот получилось вроде что то

Немного не верно выводит. Ну сейчас помучаемся)

 

Sanek737, нах тебе регулярки для разбора json есть отличная либа superobject

Code:

var
  json: ISuperObject;
...
begin
  json:= SO('{"status":"ok","username":"Sanek737","return_path":"http:\/\/sprashivai.ru\/Mr__Mandarin","redirect":"http:\/\/login.sprashivai.ru\/auth?k=a64c6895e17f27db3c1f7de49fefd8d9"}');
  if Assigned(json) then begin
    status:= json.S['status'];
    username:= json.S['username'];
    url:= json.S['return_path'];
    redirect:= json.S['redirect'];
  end;

 

Спасибо!