delphi创建activeX控件时classid的选择注意事项

有一段时间, 没有写delphi的东东了. 昨天突然要写一个OCX, 但是jsp的页面上居然一直调用失败. 原因出在classid的选择上.

下面是jsp的代码

<div id="testdiv" style="width:100%;height:100%">
<object id="testid"
classid="clsid:6CFAE108-AD70-49DC-BDB6-61F008148893"
codebase="<%=basePath%>ocx/AFProj1.ocx#version=1,0,0,0"
hspace=0 vspace=0 width=800 height=600>
<param name="BorderStyle" value="0">
</object>
</div>

其中的classid是错误的.

原因在于我找classid时出错了. 操作view --> Type Library

我选择成了工程时GUID作为classid. 如下图



而实际应该选择CoClass时的GUID作为classid, 这样子OCX就可以正常使用了.



将classid由6CFAE108-AD70-49DC-BDB6-61F008148893 改成 73D1CE60-9F8A-4F2E-8486-FBE1BD2C4726