How can I get USSD code result to string?

  

How can I get USSD code result to string?

My USSD run code:

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;

It works, but I need to get USSD code result to string.

For Delphi 10.2 Tokyo – Firemonkey Android Platform.

Comments are closed.