如何将USSD代码结果转换为字符串？

Question

如何将USSD代码结果转换为字符串？

我的USSD运行代码：

procedure TForm1.Button1Click(Sender: TObject);
  var
  Intent : JIntent ;
  strNo : String;
begin
  strNo := 'tel:*101%23';
  Intent := TJIntent.Create ;
  Intent.setAction ( TJIntent.JavaClass.ACTION_CALL ) ;
  Intent.setData ( StrToJURI (  strNo ) ) ;
  SharedActivity.startActivity ( Intent ) ;
end;

它有效，但我需要将USSD代码结果变为字符串。

对于Delphi 10.2东京 - Firemonkey Android平台。

Answer 1

这里的答案可能与您的问题有关：

How to Get Response from USSD code from Android?

然而，Github上的解决方案（参见答案中的链接）看起来非常复杂，有些部分可能需要用Java完成。