浏览代码

* second patch from mantis 14822
- registration of tlb
- registry registration
- implemented functions needed for comserv register/unregister
- registry function
- finished TTypedComObject (but not really tested)

git-svn-id: trunk@13957 -

marco 15 年之前
父节点
当前提交
b4f1121808
共有 2 个文件被更改,包括 2 次插入2 次删除
  1. 1 1
      packages/winunits-base/src/comobj.pp
  2. 1 1
      packages/winunits-base/src/comserv.pp

+ 1 - 1
packages/winunits-base/src/comobj.pp

@@ -18,7 +18,7 @@ unit comobj;
 
 
   interface
   interface
 
 
-{define DEBUG_COM}
+{$define DEBUG_COM}
 
 
     uses
     uses
       Windows,Types,Variants,Sysutils,ActiveX,classes;
       Windows,Types,Variants,Sysutils,ActiveX,classes;

+ 1 - 1
packages/winunits-base/src/comserv.pp

@@ -21,7 +21,7 @@ interface
 uses
 uses
   Classes, SysUtils, comobj, ActiveX;
   Classes, SysUtils, comobj, ActiveX;
 
 
-{define DEBUG_COM}
+{$define DEBUG_COM}
 
 
 //according to doc
 //according to doc
 // * ComServer Variable
 // * ComServer Variable