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

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

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

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