“正在处理，请稍候”屏幕有螺纹？

Question

也许，这对你来说很容易，但我正在努力开发一个项目（出于教育目的），该项目使用 TADSISearch 组件查询 adsi，持续了几天。当 TADSISearch 搜索 Active Directory 时，我试图在 Form2 上显示“正在工作，请稍候...”闪屏，其中包含一个男工动画 gif。虽然我根据自己的想法尝试了所有的可能性，但我没有成功。我尝试在线程中使用 TADSISearch，但线程在 ADSIsearch 完成之前终止。我认为 TADSISearch 不是线程安全的。你怎么认为？另外，我创建了 Form2 并使用线程来更新它的另一种方法，但动画 gif 停止了，而主窗体已经进行了 adsi 搜索。对于这些你有什么想说的吗？我怎样才能在 ADSISearch 工作时制作一个请等待屏幕并保持主表单响应。 Application.ProcessMessages 或计时器也不是一种方法。非常感谢您的阅读和回答。

Answer 1

图形用户界面应由主线程更新。您应该将搜索代码放入单独的线程中，当搜索器线程工作时，您的主线程可以显示动画以及“请稍候”消息。

当通过任何可用的同步技术完成搜索时，您的搜索器线程可以通知主线程。最简单的方法是在线程类中定义一个方法来停止用户界面中的动画，并将该方法传递给搜索器线程的 Execute 方法末尾的 Synchronize。

您的搜索线程代码将如下所示：

type
  TMyThread = class(TThread)
  private
    procedure NotifyEndOfThread;
  protected
    procedure Execute; override;
  end;

implementation

uses MainFormUnit;

procedure TMyThread.NotifyEndOfThread;
begin
  MainForm.ShowAnimation := False;
end;

procedure TMyThread.Execute;
begin
  try
    {Add your search code here}
  finally
    Synchronize(NotifyEndOfThread);
  end;
end;

您的主线程代码将如下所示：

TMainForm = class(TForm)
...
private 
  FShowAnimation : Boolean;
  procedure SetShowAnimation(Value: Boolean);
public
  property ShowAnimation : Boolean read FShowAnimation write SetShowAnimation;
end;

procedure TMainForm.SetShowAnimation(Value: Boolean);
begin
  FShowAnimation := Value;
  if FShowAnimation then
    {Add animation code here}
  else
    {Stop animation}
end;

Answer 2

也许你可以尝试这个：

Threaded Splashscreen for Delphi
http://cc.embarcadero.com/Item/20139

我在触摸屏上使用它/终端应用程序（瘦客户端、Wifi、RemObjects 等），效果很好！
还得到了一个 gif 动画。

Answer 3

线程如何在搜索完成之前终止？如果搜索是在线程中执行的，并且您只有一个线程实例，那么它应该可以工作。

Answer 4

你能不能只

f := TMyWaitForm.Create(self);
try
   f.Show();
   ...start the TADSISearch...
finally
   FreeAndNil(f);
end;

在 TMyWaitForm（它会自动显示）上放置一个动画 GIF？

在我的网络创建程序中构建网站时，我有一个进度表，这就像一个魅力。

您甚至可以考虑在等待表单上显示一些状态信息（如果 TADSISearch 组件/软件具有可以分配的回调函数或事件）。

显示一个运行时钟，显示该过程所花费的时间，也是一个不错的选择。