如何在不访问源代码的情况下自动化 Delphi Firemonkey UI 测试？

Question

如何在不访问源代码的情况下自动化 Delphi Firemonkey UI 测试？

我目前在 DUnit 和 TestComplete 测试中针对我的应用程序运行了一套测试。我正在考虑将 UI 从基于 VCL 移动到基于 FireMonkey。我意识到我的测试需要重写，但是我注意到我们使用的 UI 测试软件无法“查看”应用程序并查看控件及其属性。所有工具都可以看到表单，而不是看到编辑框或标签。我相信这是因为 Firemonkey 用于渲染控件的轻微手。 UI 测试可以使用 DUnit 实现，但这需要我们的测试人员能够访问源代码，这在我工作的地方不受欢迎。有人知道解决方案吗？

谢谢。

Answer 1

Build a test harness.

function TForm1.FindControlAtPoint(aParent: TControl; aPos: TPointF): TControl;
var
  I: Integer;
  Control, ChildControl: TControl;
  S: String;
begin
  Result := nil;

  // Check all the child controls and find the one at the coordinates
  for I := aParent.Controls.Count – 1 downto 0 do
  begin
    Control := aParent.Controls[I];
    S := Control.ClassName;
    if Control.PointInObject(aPos.X, aPos.Y) then
    begin
      ChildControl := FindControlAtPoint(Control, aPos);
      if Assigned(ChildControl) and ChildControl.HitTest then
        Exit(ChildControl)
      else if Control.HitTest then
        Exit(Control);
    end;
  end;
end;