如何在执行Anydac查询时保持程序的响应性？

Question

使用sdac，我可以让程序响应用户输入，如下所示：

while Query.Executing do
begin
  Application.ProcessMessages;
  Sleep(1);
end;

如何用anydac query实现相同的代码(没有类似的功能)？

我使用的是delphi xe2和anydac v6。

Answer 1

AnyDAC支持不同的执行模式。要检查当前的操作状态，请使用ADQuery1.Command.State。这是伪代码(我这里没有Delphi )：

ADQuery1.ResourceOptions.CmdExecMode := amAsync;
ADQuery1.Open;
while ADQuery1.Command.State = csExecuting do
begin
    // This is NOT RECOMMENDED
    Application.ProcessMessages;
    Sleep(1);
end;

但是，由于在while块中唯一要做的事情就是处理图形用户界面消息，我认为最好的选择是使用amNonBlocking模式，该模式将等待查询完成(从而避免了while块)，但不会阻塞图形用户界面(认为它会忽略键盘和鼠标事件)。

ADQuery1.ResourceOptions.CmdExecMode := amNonBlocking;
ADQuery1.Open;

有关更多信息，请参阅开发人员网站上的文档：Asynchronous Execution。