你好，

我按如下所示键入了代码，此代码运行良好。 通过使用https连接，我希望Wireshark或Android上的Packet Capture应用程序无法读取收到的Packet Data。

您如何配置客户端？

这是我的代码

procedure TForm1.Button1Click(Sender: TObject);
var
  MyCompletionHandler: TCompletionHandler;
  MyErrorCompletionHandler: TCompletionHandlerWithError;
begin
  ShowLoadingIndicator(Self,True);
  Memo1.Lines.Clear;
  RESTClient1.BaseURL := 'https://reqres.in/';
  RESTClient1.RaiseExceptionOn500 := False;
  RESTClient1.SecureProtocols := [THTTPSecureProtocol.TLS12];
  RESTRequest1.ClearBody;
  RESTRequest1.Resource := 'api/users';

  MyCompletionHandler := procedure
      var i: Integer;
          tJson: TJSONValue;
    begin
      Label1.Text := 'Complete!';
      Memo1.Lines.Append('Header: ');
      for I := 0 to RESTResponse1.Headers.Count-1 do
        Memo1.Lines.Append(RESTResponse1.Headers.Strings[I]);
      Memo1.Lines.Append('');
      Memo1.Lines.Append('Body:');
      tJson := TJSONObject.ParseJSONValue(RESTResponse1.Content);
      try
        memo1.Lines.Append(REST.Json.TJson.Format(tJson));
      finally
        FreeAndNil(tJson);
      end;
      HideLoadingIndicator(Self);
    end;

  MyErrorCompletionHandler := procedure(AObject: TObject)
    begin
      Label1.Text := 'Error!';
      HideLoadingIndicator(Self);
    end;

  RESTRequest1.ExecuteAsync(MyCompletionHandler,True,MyErrorCompletionHandler);
end;

result packet capture using app

以及使用firemonkey制作的简单应用程序： Simple Apps