Delphi + JSON (опять же трабл с русской кодировкой)

@First · Регистрация: 09.06.2011

Студворк — интернет-сервис помощи студентам

Доброго времени суток. В общем делаю запрос к php который делает выборку из БД. Все понятно. НО! Если англ. символы то все гуд. Если рус. То проблема - текста вообще не видно. Вот думаю где ошибка с кодировкой.
Буду очень благодарен любой подсказке.

Сам php к которому обрщаюсь:

PHP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<?php
include 'connect.php';
$fam = $_GET['fam'];
$nam = $_GET['nam'];
$otch = $_GET['otch'];
// подключаемся к серверу
$link = mysqli_connect($host, $user, $password, $database)
or die("Ошибка " . mysqli_error($link));
// выполняем операции с базой данных
$query ="SELECT * FROM siabrTbl WHERE `fam` = '".$fam."' AND `imy` = '".$nam."' AND `otch` = '".$otch."'";
$result = mysqli_query($link, $query) or die("Ошибка " . mysqli_error($link));
if($result)
{
    $rows = array();
    while($row = $result -> fetch_assoc()){
        $rows[] = $row;
    }
    echo json_encode($rows);
}
mysqli_close($link);

Код обращения:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var
  fam, nam, otch: string;
  lbItemSel: TListBoxItem;
  ItemS: ISuperObject;
  A: ISuperArray;
  JSON: string;
  //переменные ответа
  f1, f2, f3, f4, f5, f6, f7: string;
  i: Integer;
begin
  lbItemSel := Form1.lst1.Selected;
  if (lbItemSel is TMetropolisUIListBoxItem) then
  begin
    fam := TMetropolisUIListBoxItem(lbItemSel).Title;
    nam := TMetropolisUIListBoxItem(lbItemSel).SubTitle;
    otch := TMetropolisUIListBoxItem(lbItemSel).Description;
    Form1.idhtp1.Request.Charset := 'utf-8';
    Form1.idhtp1.Request.ContentType := 'application/json';
    JSON := Form1.idhtp1.Get('http://**********/selectPersonInfo.php?fam=' + fam + '&nam=' + nam + '&otch=' + otch + '');
    A := TSuperArray.Create(AnsiString(JSON));
    ItemS := A.O[i];
    f1 := ItemS.S['dr'];
    f2 := ItemS.S['adres'];
    f3 := ItemS.S['email'];
    f4 := ItemS.S['horad'];
    f5 := ItemS.S['indexAdr'];
    f6 := ItemS.S['pol'];
    f7 := ItemS.S['oblast'];
 
    Form1.txt2.Text := f1;
    Form1.txt3.Text := f3;
    Form1.txt4.Text := f6;
    Form1.txt5.Text := f5;
    Form1.txt6.Text := f7;
    Form1.txt7.Text := f4;
    Form1.txt8.Text := f

Прошу прощения за корявый код - это все сырое. Причем если делаю запрос в браузере все отображается понятно что с кодировкой. А вот в программе все пусто.

PS Буду благодарен любой подсказке.

PSS Прошу прощения если не там написал. Пишу на FMX.

@krapotkin · 03.07.2017, 05:17

а где сам текст который реально приходит в ответ?
и почему вы просите в запросе UTF-8, а ответ считаете AnsiString(JSON) ???
при этом все равно вы получаете
JSON:String --> AnsiString(JSON):AnsiString --> конвертируется в String для передачи параметра в TSuperArray.Create(string)

в новых делфи вместо старого Indy есть свой THttpClient
работает примерно так же но не просит таскать за собой библиотеки для SSL

@First · 03.07.2017, 11:27 **[ТС]**

Сообщение от krapotkin

и почему вы просите в запросе UTF-8, а ответ считаете AnsiString(JSON) ???

Это я уже понял что неправильно делю.

Сообщение от krapotkin

в новых делфи вместо старого Indy есть свой THttpClient
работает примерно так же но не просит таскать за собой библиотеки для SSL

Сейчас попробую.

Добавлено через 13 минут

Сообщение от krapotkin

в новых делфи вместо старого Indy есть свой THttpClient

Спасибо больше - рзобрался.

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	03.07.2017, 05:17
	а где сам текст который реально приходит в ответ? и почему вы просите в запросе UTF-8, а ответ считаете AnsiString(JSON) ??? при этом все равно вы получаете JSON:String --> AnsiString(JSON):AnsiString --> конвертируется в String для передачи параметра в TSuperArray.Create(string) в новых делфи вместо старого Indy есть свой THttpClient работает примерно так же но не просит таскать за собой библиотеки для SSL 1

Опции темы