Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

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

Здравствуйте!)
Такая проблемка:
С помощью потока авторизуюсь на сайте методом Post, компонент idHTTP, и возвращаемую строку присваиваю переменной
Сервер возвращает JSON-массив
Для работы с ним использую модуль uLkJSON
Парсирую текст, вытаскиваю нужные мне значения в Memo и тут возникает проблема
Если значение в JSON содержит русские буквы, то они отображаются как знаки вопросов
Надеюсь на вашу помощь)
Вот код:
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
....
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;
....
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:16.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025