5

我在一个简单的过程（不是类中的方法）内以编程方式创建一个数据库连接对象。

mydb:= TUniConnection.Create(nil);
mydb.Database:= knowledge_db_name;
mydb.LoginPrompt:= False;
mydb.Username:= aaa;
mydb.Password:= bbb;

现在我需要处理错误和与其他程序的断开连接。当我尝试这样做时：

mydb.OnError:= OnConnectionError;
mydb.OnConnectionLost:= OnConnectionLost;

编译器告诉我

[DCC Error] test.pas(373): E2009 Incompatible types: 'method pointer and regular procedure'

我该如何解决这个问题？以下是事件过程的定义：

procedure OnConnectionError(Sender: TObject; E: EDAError; var Fail: Boolean);
procedure OnConnectionLost(Sender: TObject; Component: TComponent; ConnLostCause: TConnLostCause; var RetryMode: TRetryMode);
4

4 回答 4

19

如果您没有合适的类来放置事件处理程序，您可以定义一个虚拟类并将事件处理程序设为class procedures。然后您不必创建类的实例，但可以分配mydb.OnError:= TMyDummyEventHandlerClass.OnConnectionError;.

这是一个示例 - 我使用不同的事件，因为我没有TUniConnection但想确保一切都编译。:-)

type
  // Dummy class to hold event handlers:
  TXMLEventHandlers = class
    // Event handlers:
    class procedure OnBeforeOpen(Sender: TObject);
    class procedure OnAfterOpen(Sender: TObject);
  end;

class procedure TXMLEventHandlers.OnBeforeOpen(Sender: TObject);
begin
  MessageBox(0, PChar(ClassName + '.OnBeforeOpen'), nil, 0)
end;

class procedure TXMLEventHandlers.OnAfterOpen(Sender: TObject);
begin
  MessageBox(0, PChar(ClassName + '.OnAfterOpen'), nil, 0)
end;

procedure Test;
var
  xml: TXMLDocument;
begin
  xml := TXMLDocument.Create(nil);
  try
    // Note: No instance of `TXMLEventHandlers` must be created:
    xml.AfterOpen := TXMLEventHandlers.OnAfterOpen;
    xml.BeforeOpen := TXMLEventHandlers.OnBeforeOpen;

    xml.Active := True; // Calls the two event handlers
  finally
    xml.Free;
  end;
end;
于 2012-06-18T14:10:56.777 回答
4

如果您不想在堆上实例化类的实例，则可以使用记录方法。我有时这样做是为了避免使用堆，但这种方法可以方便您的需要。

type
  TMyEventHandler = record
    procedure OnConnectionError(Sender: TObject; E: EDAError; var Fail: Boolean);
    procedure OnConnectionLost(Sender: TObject; Component: TComponent; ConnLostCause: TConnLostCause; var RetryMode: TRetryMode);
  end;

procedure TMyEventHandler.OnConnectionError(Sender: TObject; E: EDAError; var Fail: Boolean);
begin
  ....
end;

procedure TMyEventHandler.OnConnectionLost(Sender: TObject; Component: TComponent; ConnLostCause: TConnLostCause; var RetryMode: TRetryMode);
begin
  ....
end;

var
  EventHandler: TEventHandler;//global variable

......

mydb.OnError := EventHandler.OnConnectionError;
mydb.OnConnectionLost := EventHandler.OnConnectionLost;
于 2012-06-18T13:30:24.460 回答
0

您的两个事件过程需要是类的方法，而不是本地/全局过程。例如：

procedure TForm1.OnConnectionError(Sender: TObject; E: EDAError; var Fail: Boolean);
于 2012-06-18T12:58:46.757 回答
0

虽然使用class方法是一个干净的解决方案，但可以使用常规的非类过程作为事件处理程序，您不能直接分配它，但可以使用记录间接分配它。TMethod您只需Self向该过程添加一个显式参数。

例如：

procedure OnConnectionError(Self: Pointer; Sender: TObject; E: EDAError; var Fail: Boolean);
begin
  ...
end;

procedure OnConnectionLost(Self: Pointer; Sender: TObject; Component: TComponent; ConnLostCause: TConnLostCause; var RetryMode: TRetryMode);
begin
  ...
end;

var
  M: TMethod;
begin
  M.Data := ... whatever you want ...;
  M.Code := @OnConnectionError;
  mydb.OnError := TDAConnectionErrorEvent(M);

  M.Data := ... whatever you want ...;
  M.Code := @OnConnectionLost;
  mydb.OnConnectionLost := TConnectionLostEvent(M);
end;

或者：

procedure OnConnectionError(Self: Pointer; Sender: TObject; E: EDAError; var Fail: Boolean);
begin
  ...
end;

procedure OnConnectionLost(Self: Pointer; Sender: TObject; Component: TComponent; ConnLostCause: TConnLostCause; var RetryMode: TRetryMode);
begin
  ...
end;

var
  ErrorHandler: TDAConnectionErrorEvent;
  LostHandler: TConnectionLostEvent;
begin
  TMethod(ErrorHandler).Data := ... whatever you want ...;
  TMethod(ErrorHandler).Code := @OnConnectionError;
  mydb.OnError := ErrorHandler;

  TMethod(LostHandler).Data := ... whatever you want ...;
  TMethod(LostHandler).Code := @OnConnectionLost;
  mydb.OnConnectionLost := LostHandler;
end;

这种方法的好处是您可以将Self参数设置为您想要的任何值，这对于将用户定义的数据传递给事件处理程序很有用。

于 2020-07-20T19:27:25.630 回答