DELPHI JSON php

Question

前提・実現したいこと

Delphi10.3で作ったjsonデータをphpにPOSTして、内容を確認してみると
文字化けしてしまいます。

発生している問題・エラーメッセージ

phpに投げたデータ
{"id":"1","name":"赤川太郎"}
phpのechoで帰ってきたデータ
{"id":"1","name":"????"}

該当のソースコード

Delphiのコード
  JO:=TJsonObject.Create;
  SL:=TStringList.Create;

  JO.AddPair('id','1');
  JO.AddPair('name','赤川次郎');
  SL.Text := AnsiToUtf8(JO.toString);

  Memo1.Lines.Add(SL.Text);

  http := TIdHttp.Create(nil);
  http.HandleRedirects := true;
  http.ReadTimeout := 5000;
  http.Request.ContentEncoding := 'utf-8';
  http.Request.ContentType := 'application/json';
  http.Request.Accept := 'application/json';
  http.HTTPOptions := HTTP.HTTPOptions - [hoForceEncodeParams];
  SS := http.Post('phpソースのアドレス',SL);

  Memo1.Lines.Add(SS);

  JO.Free;
  SL.Free;

phpのコード
phpでは、渡されたデータを確認したいだけだったので、単純にデータを返しています。
<?php
        header("Content-Type: text/html; charset=UTF-8");
        $json_string = file_get_contents("php://input");
        echo $json_string;
?>

試したこと

エンコードがうまくいっていないと思い、AnsiToUtf8でキャストしてみたが、うまくいきませんでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[m.ts10806]

タイトルには要件のみを記載してください。現在のタイトルは言語を並べただけで何も要件がありません

[n.tsuchiya]

タイトルを修正しました。

[m.ts10806]

おそらくteratailのバグでよくあるようなのですが、見てお分かりのと通り更新反映されてません。
更新後、再度アクセスしてご確認ください

Answer 1

TStrings.Text プロパティ

__property AnsiString Text

ここに utf-8 の文字列を入れているので化けているんだと思います。
次を参考にしてみてください。

idhttp indy post, do request (parameters) with utf-8

Comments

[n.tsuchiya]

StringtStreamでやってみたら、希望の動きをするようになりました。
ありがとうございました。

Answer 2

さくらエディタなどの文字コードがなにかわかるテキストエディタでそのJSONファイルを開いてみて、本当にそのファイルがUTF8か調べてみることです

UTF８でそいつで文字化けしていると言うなら、JSONファイルの作成のところがおかしいということです。
また、UTF８でそいつで表示できているのなら、その「内容の確認」が間違ってるんでしょう

Comments

[n.tsuchiya]

StringStreamを使用して、ファイルに書き出してみたら、
utf-8のファイルができていました。
ありがとうございました。