Delphi调用COM组件的问题

Question

我的这个COM组件，有METHOD和EVENT，请问怎么处理这些事件？COM组件类似这样:  _ITESTCOMEvents = dispinterface;
  ITESTCOM = interface;
  ITESTCOMDisp = dispinterface;
TESTCOM = ITESTCOM;  _ITESTCOMEvents = dispinterface
    procedure Success; dispid 1;
    procedure Failed(var password:WideString); dispid 2;
  ITESTCOM = interface(IDispatch)
    function start(var userName: WideString): Integer; safecall;
我已经在程序里面这样来创建了这个COM组件：
procedure TForm1.Button1Click(Sender: TObject);
var test : ITESTCOM;
begin
  test := CoTESTCOM.Create;
end;
但是怎样才能在程序里面处理这个COM组件的success 和Failed事件？谢谢

Answer 1

_ITESTCOMEvents 是 TESTCOM 的一个事件。 在Delphi中导入TypeLib的时候，会为 TTESTCOM 类自动生成两个事件,原型差不多应该是这个样子的。
OnTestComSuccess(Sender: TObject);
OnTestComFailed(Sender: TObject, var password:WideString);自己写两个函数来处理这个事件就可以了。