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访问与事件处理程序内的主线程同步。