0

我正在使用 Delphi 10.1 Berlin。

XE7下一切正常。

现在当我开始一个活动时，结果似乎是在一个线程中处理的，同步/队列会挂起整个应用程序。因为我需要显示一个 TDialogServiceAsync.InputQuery，如果我不同步，我会收到一个异常，告诉我必须从主线程显示我的消息（在 XE7 下工作得很好）

这是“正在”工作的简化代码（经过测试）：

称呼 ：

FMessageSubscriptionID := TMessageManager.DefaultManager.SubscribeToMessage(
  TMessageResultNotification, HandleActivityMessage);
intnt := TJIntent.JavaClass.init;
intnt.setAction(StringToJString('com.domain.mylib.MYCLASS'));
intnt.setPackage(StringToJString('com.domain.mylib'));
TAndroidHelper.Activity.startActivityForResult(intnt, REQUEST_CODE);

处理程序：

HandleActivityMessage(const Sender: TObject; const M: TMessage);
begin
  // I tried TThread.Sync/Queue here... Hang
  if M is TMessageResultNotification then
  begin
    OnActivityResult(
      TMessageResultNotification(M).RequestCode,
      TMessageResultNotification(M).ResultCode,
      TMessageResultNotification(M).Value
    );
  end;
end;


OnActivityResult(RequestCode, ResultCode: Integer; Data: JIntent);
var
  Values: array of String;
begin
  if (RequestCode = REQUEST_CODE) and (ResultCode = TJActivity.JavaClass.RESULT_OK) then
  begin
    //Either
    TDialogServiceAsync.ShowMessage('...');
    // Or
    SetLength(Values, 1);
    Values[0] := '';
    TDialogServiceAsync.InputQuery('something', ['info'], Values, Self.OnInputQuery2_Close);
  end;
end;

除了这个例外（原件和翻译......）：

'Les messages doivent être affichés dans le thread principal de l'interface utilisateur'

'消息必须从用户界面主线程显示'

4

1 回答 1

0

我再次从 XE7 复制粘贴了原始代码，但仍然无法正常工作（“您必须显示来自主线程的消息”）

我TThread.Synchronize(nil, proc);在不同的地方再次测试，应用程序总是无法弥补的噱头。

然后TThread.Queue(nil, proc);在不同的地方再次测试，直到它最终只包装了对TDialogServiceAsync.

我终于找到了一个解决方案，但是这个处理程序像一个线程一样工作，只需要为一条消息同步，但不需要同步来创建一个新的 Activity 并显示它，有点令人不安！

如果有人可以就这一点给我一个解释，请随时添加一个我很乐意接受的答案作为解决方案。

于 2016-10-03T15:08:31.173 回答