Delphi绑定资源Received无法更新TLabel

Question

Delphi 10.2.3 FMX应用共享

以下代码中的标签有时会更新，但通常不会更新。 在网络共享RescourceReceived过程中更新视觉组件是否不安全？

procedure TMainForm.MyTetheringAppProfileResourceReceived(
  const Sender: TObject; const AResource: TRemoteResource);

begin
  if AResource.Hint = 'InfoPrincipleVariation'
    then
      begin

        MyInformationLabel.Text := AResource.Value.AsString;  // Fails to update
        Exit;
      end;
end;

通过将值存储在AResource.Value.AsString中，然后启用一个稍后设置标签文本值的计时器，可以解决该问题。

Answer 1

通常，Delphi事件是在主线程（UI控件）中触发的，或与主线程同步的（ TThread.OnTernimate事件）。 但是，并非总是如此。

绑定从后台线程进行操作，其事件也从后台线程调用。 另一方面，所有UI访问必须与主UI线程同步。

TTetheringProfile类（祖先TTetheringAppProfile ）具有SynchronizeEvents属性（默认设置为True ，控制哪个线程被称为事件）。 如果为True所有事件处理程序都将在主线程的上下文中运行。

您遇到的症状与从辅助线程访问UI一致。 检查SynchronizeEvents属性的值，或将UI访问与事件处理程序中的主线程同步。