Показать сообщение отдельно
  #1  
Старый 03.07.2010, 18:08
Wayfer Wayfer вне форума
Прохожий
 
Регистрация: 03.07.2010
Сообщения: 4
Репутация: 10
По умолчанию Работа с JSON

Здравствуйте!)
Такая проблемка:
С помощью потока авторизуюсь на сайте методом Post, компонент idHTTP, и возвращаемую строку присваиваю переменной
Сервер возвращает JSON-массив
Для работы с ним использую модуль uLkJSON
Парсирую текст, вытаскиваю нужные мне значения в Memo и тут возникает проблема
Если значение в JSON содержит русские буквы, то они отображаются как знаки вопросов
Надеюсь на вашу помощь)
Вот код:
Код:
....
var
  js:TlkJSONobject;
  s: string;
  nick,pass: String;
  stream: TStringStream;
....
begin
js := TlkJSONobject.Create;
  stream:=TStringStream.Create;
  nick := Edit1.Text;
  pass := Edit2.Text;
  stream.WriteString('u='+nick+'&p='+pass);
  s := (IdHTTP1.Post('http://.....',stream));
  js := TlkJSON.ParseText(s) as TlkJSONobject;
  Memo1.Lines.Add(js.getString('user_id'));
  Memo1.Lines.Add((js.getString('username')));
  Memo1.Lines.Add(js.getString('new_pm'));
  Memo1.Lines.Add(js.getString('unread_pm'));
  js.Free;
....
Ответить с цитированием