2

我在一个新的虚拟机中安装了 Delphi 10.4 Sydney w/ Patch 2，并将 Delphi 10.3 Tokyo 的源代码复制到它。

重建可视化器（用于 DevExpress TcxSchedulerEvents）时，我收到此错误：

[dcc32 错误] EventVisualizr.pas(19): E2291 缺少接口方法 IOTAThreadNotifier.EvaluateComplete 的实现

我只删除了已编译的包cxLibraryRS26, cxSchedulerRS26, dxCoreRS26, dxGDIPlusRS26, 并添加了cxLibraryRS27, cxSchedulerRS27, dxCoreRS27, dxGDIPlusRS27- 没有其他代码更改：

图片

TEventViewerFrame我在类型定义的第一行得到错误：

unit EventVisualizr;
// Copied and modified from TStringListVisualizer. Shows values for TcxSchedulerEvent properties:
// - ID
// - Caption
// - Custom property tt_fromdate (if it exists)
// - Custom property tt_todate (if it exists)
// - Start
// - Finish

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolsAPI, Vcl.ExtCtrls;

type
  TAvailableState = (asAvailable, asProcRunning, asOutOfScope, asNotAvailable);

  TEventViewerFrame = class(TFrame, IOTADebuggerVisualizerExternalViewerUpdater, IOTAThreadNotifier, IOTAThreadNotifier160)
    EventListView: TListView;
    procedure EventListViewData(Sender: TObject; Item: TListItem);
  private
    FOwningForm: TCustomForm;
    FClosedProc: TOTAVisualizerClosedProcedure;
    FNotifierIndex: Integer;
    FCompleted: Boolean;
    FDeferredResult: string;
    FDeferredError: Boolean;
    FPropValues,
    FPropNames: TStrings;
    FAvailableState: TAvailableState;
    function Evaluate(Expression: string): string;
  protected
    procedure SetParent(AParent: TWinControl); override;
  public
    procedure CloseVisualizer;
    procedure MarkUnavailable(Reason: TOTAVisualizerUnavailableReason);
    procedure RefreshVisualizer(const Expression, TypeName, EvalResult: string);
    procedure SetClosedCallback(ClosedProc: TOTAVisualizerClosedProcedure);
    procedure SetForm(AForm: TCustomForm);
    procedure AddEventItems(const Expression, TypeName, EvalResult: string);

    { IOTAThreadNotifier }
    procedure AfterSave;
    procedure BeforeSave;
    procedure Destroyed;
    procedure Modified;
    procedure ThreadNotify(Reason: TOTANotifyReason);
    procedure EvaluteComplete(const ExprStr, ResultStr: string; CanModify: Boolean;
      ResultAddress, ResultSize: LongWord; ReturnCode: Integer);
    procedure ModifyComplete(const ExprStr, ResultStr: string; ReturnCode: Integer);

    { IOTAThreadNotifier160 }
    procedure EvaluateComplete(const ExprStr, ResultStr: string; CanModify: Boolean;
      ResultAddress: TOTAAddress; ResultSize: LongWord; ReturnCode: Integer);
  end;

在 中ToolsAPI.pas，两者都有EvaluateComplete定义，但在该源文件中没有实现：

IOTAThreadNotifier = interface(IOTANotifier)
  ['{34B2E2D7-E36F-11D1-AB0E-00C04FB16FB3}']
  { This is called when the process state changes for this thread }
  procedure ThreadNotify(Reason: TOTANotifyReason);
  { This is called when an evaluate that returned erDeferred completes.
    ReturnCode <> 0 if error }
  procedure EvaluateComplete(const ExprStr, ResultStr: string; CanModify: Boolean;
    ResultAddress, ResultSize: LongWord; ReturnCode: Integer);
  { This is called when a modify that returned erDeferred completes.
    ReturnCode <> 0 if error }
  procedure ModifyComplete(const ExprStr, ResultStr: string; ReturnCode: Integer);
end;

IOTAThreadNotifier160 = interface(IOTAThreadNotifier)
  ['{46F94C52-E225-4054-A5F0-F5E67E29B2C2}']
  { This is called when an evaluate that returned erDeferred completes.
    ReturnCode <> 0 if error }
  procedure EvaluateComplete(const ExprStr, ResultStr: string; CanModify: Boolean;
    ResultAddress: TOTAAddress; ResultSize: LongWord; ReturnCode: Integer); overload;
end;

在比较 ToolsAPI 文件时，我看到：

  • 它在 10.3 中被命名EvaluteComplete（缺少 'a'）并且已修复为EvaluateComplete
  • 现在IOTAThreadNotifier160.EvaluateComplete得到一个重载指令（当然，与我认为的问题无关）

改名会是原因吗？10.3 版本中的程序也没有“实现” EvaluateComplete（这似乎很好，从我对接口的了解很少）。

从为什么我得到错误在 Delphi XE2 中缺少接口方法的实现？为什么我会收到错误缺少实现？，我知道错误的原因可能是参数列表不同，但我不知道在这种情况下在哪里寻找正确的。

4

1 回答 1

3

您TEventViewerFrame仍然包含 'old' 的实现EvaluteComplete。

TEventViewerFrame.EvaluteComplete通过简单地重命名来修复它TEventViewerFrame.EvaluateComplete（以满足新的接口合同）。

于 2020-07-24T14:30:06.267 回答