InterfaceConnect Beispiel

[thomasch]

Hallo,
ich möchte Ereignisse, die von einem OLE Objekt kommen, verarbeiten.
Momentan verstehe ich nur soviel, als daß ich die Verbindung zum Server irgendwie mit InterfaceConnect machen muss.

Was ich habe:

Delphi-Quellcode:

var
   Acad: Variant;
   Acadapp: AcadApplication;

  try
    Acad:=comobj.GetActiveOleObject('AutoCAD.Application.15');
  except
    try
      Acad:=comobj.CreateOleObject('AutoCAD.Application.15');
    except
      MessageDlg('Die Einbindung von AutoCAD2002 schlug fehl.',mtError, [mbOK],0);
      exit;
    end;
  end;
  Acadapp:=IDispatch(Acad) As AcadApplication;

So weit - so gut, weiter sollte es wohl mit "InterfaceConnect(Acadapp,_DAcadApplicationEvents, ..." gehen.

Dabei fehlt mir jedoch genau das, was anstelle der drei Punkte kommt, wobbei ich mir auch nicht wirklich sicher bin, wie genau ich die events dann verarbeite. Immerhin sollten dann ja eigenen Prozeduren folgen.

Danke schonmal

Thomasch