TFDGUIxWaitCursor在无形应用程序中

Question

我变成的错误是:

缺少类{3E9B315B-F456-4175-A864-B2573C4A2201}的对象工厂.要注册它,可以将组件[TFDGUIxWaitCursor]拖放到项目中

好吧,如果我没有VCL-less(不是控制台)应用程序,我想这样做...

DPR文件中只有一个"脚本",就是这样.

以下没有帮助:

wCur := TFDGUIxWaitCursor.Create(nil);
conn := TFDConnection.Create(nil);
try
  .....
  conn.Connected := True;
  conn.ExecSQL('blah blah blah');
  conn.Connected := False;
finally
  conn.Free();
  wCur.Free();
end;

Answer 1

无需TFDGUIxWaitCursor明确创建.

在您的情况下,包含项目文件的FireDAC.VCLUI.Waitin uses子句就足够了.所有必要的初始化和完成都在本单元initialization和finalization部分中执行.

在FireDAC(带有接口IFDGUIxWaitCursor)中抽象出等待光标的概念,以在FireMonkey,VCL和控制台应用程序中工作.因此,在不同的单元中存在不同的实现方式.根据您的应用类型,您必须选择适当的实施方案.如果将FireDAC组件放到窗体,框架或数据模块上,设计人员通常会添加正确的组件.

• 控制台:FireDAC.ConsoleUI.Wait
• FMX:FireDAC.FMXUI.Wait
• VCL:FireDAC.VCLUI.Wait