Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
ETUN4
3 / 3 / 0
Регистрация: 17.06.2014
Сообщений: 104
1

Неизвестная кодировка

14.07.2016, 20:18. Просмотров 483. Ответов 5
Метки нет (Все метки)

Всем привет.
Вот кусок кода программы
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  aurl := Format('https://api.vk.com/method/database.getCountries?access_token=%s',
    [my_token]);
 
  aurl := aurl + '&need_all=1&count=5&v=5.52';    //250
  resp := HTTPPost(aurl);
  json := TlkJSON.ParseText(resp) as TLKJSONObject;
  json := json.Field['response'] as TLKJSONObject;
  itemlist := json.Field['items'] as TlkJSONList;
 
  for I := 0 to itemlist.Count - 1 do
  begin
    showmessage((vartostr(itemlist.Child[i].Field['title'].Value)));
    countryidlist.Add(vartostr(itemlist.Child[i].Field['id'].Value));
    countrylist.Add(vartostr(itemlist.Child[i].Field['title'].Value));
  end;
 
  showmessage(countrylist.GetText);
  countrylist.SaveToFile(extractfilepath(ParamStr(0))+'\'+'cr.txt');
Проблема в том, что при парсинге кириллицы текст отображается знаками вопросов. Но когда вывожу в showmessage переменную resp то всё отображается нормально, как в следующем коде.
JSON
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
response: {
count: 236,
items: [{
id: 19,
title: 'Австралия'
}, {
id: 20,
title: 'Австрия'
}, {
id: 5,
title: 'Азербайджан'
}, {
id: 21,
title: 'Албания'
}, {
id: 22,
title: 'Алжир'
}]
}
Подскажите, как отображать нормально кириллицу. Думаю, что проблема в модуле uLkJSON. Может кто-то встречался с такой проблемой.
Так же пробовал использовать ansitoutf8 и utf8toansi, бесполезно, заливал текст на онлайн декодер, там тоже ничего.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.07.2016, 20:18
Ответы с готовыми решениями:

Неизвестная кодировка текста после декодирования с base64
Всем привет! столкнулся с такой проблемой. есть сервис, который в своем типа...

Кодировка .%D0%9F
Приветствую. Подскажите пожалуйста, как программно преобразовать обычный текст...

Кодировка
Если я правильно понял, то программа берет название для панели задач из...

Delphi и кодировка
Как обычный текст в такую кодировку закодировать?

кодировка текста
доброго времени суток, подскажите пожалуйста как решить такую задачку на...

5
BOGG ART
577 / 445 / 146
Регистрация: 09.12.2013
Сообщений: 2,384
Записей в блоге: 2
15.07.2016, 09:42 2
Цитата Сообщение от ETUN4 Посмотреть сообщение
текст отображается знаками вопросов
Отображается где?

Версия Делфи? Что такое TlkJSON?
0
ETUN4
3 / 3 / 0
Регистрация: 17.06.2014
Сообщений: 104
15.07.2016, 16:26  [ТС] 3
В окне, при вызове showmessage и в файле extractfilepath(ParamStr(0))+'\'+'cr.txt'.
Delphi 2010
uLkJSON.pas добавил во вложения. Для работы с JSON.
0
Вложения
Тип файла: rar uLkJSON.rar (13.4 Кб, 2 просмотров)
AllFree
Заблокирован
19.07.2016, 19:54 4
Какая версия делфи?
0
ETUN4
3 / 3 / 0
Регистрация: 17.06.2014
Сообщений: 104
21.07.2016, 16:40  [ТС] 5
Embarcadero® Delphi® 2010 Version 14.0.3593.25826
0
AllFree
Заблокирован
21.07.2016, 17:24 6
А не могли бы Вы сделать скрин с каракулями, или, что лучше, прикрепить файл к сообщению?
0
21.07.2016, 17:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.07.2016, 17:24

Латышская кодировка в БД
Прошу помочь в таком вопросе. Пишу локальную базу данных (Delphi 7, Raradox,...

Кодировка текста в справке
Пишу help для своей программы. какая должна быть кодировка файла для справки??...

Delphi и кодировка. Опять.
Здравстуйте. Я с помощью Indy посылаю запрос на один сайт. Получаю ответ, и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru