delphi - FireMonkey Android 与 TIdHTTPServer 的问题

Question

我有一个带有 TTabControl、TWebBrowser 和 TIdHTTPServer 的 FireMonkey Android 应用。

我尝试使用以下代码将 HTTP 客户端重定向到 TIdHTTPServer.OnCommandGet 事件中的新 URL:

TabControl1.ActiveTab := TabItem2;
AResponseInfo.ResponseNo := 302;
AResponseInfo.Location := ARequestInfo.Params.Values['url'];

但是我收到一个错误:

Checksynchronize called from thread $c6f02970 which is NOT the main thread.

请求到达 TIdHTTPServer 组件后如何更改选项卡？

Answer 1

OnCommandGet 事件在工作线程的上下文中执行。您只能从主 UI 线程访问用户界面。将对嵌入到调用中的 UI 控件的访问权限移至 TThread.Synchronize或TThread.Queue .

TThread.Synchronize(nil,
  procedure
  begin
    Tabcontrol1.ActiveTab:=tabitem2;
  end);
AResponseInfo.ResponseNo := 302;
AResponseInfo.Location := ARequestInfo.Params.Values['url'];