next up previous contents
Next: luacom_ProgIDfromCLSID Up: luacom_releaseConnection Previous: Return Values   Contents

Sample

obj = luacom_CreateObject("TEST.Test")

event_sink = {}

function event_sink:KeyPress(keynumber)
  print(keynumber)
end

event_obj = luacom_ImplInterface(
              event_sink, "TEST.Test", "ITestEvents")

result = luacom_addConnection(obj, event_obj)

if result == nil then
  print("Error!")
  exit(1)
end

.
.
.

luacom_releaseConnection(obj)


Vinicius da Silva Almendra 2003-06-04