再问wolf2005:我按照你的方法作了,在AP中调用这个COM,代码如下: procedure TForm1.Button1Click(Sender: TObject); var MyComTest:IMyCOMTest; begin MyCOMTest := CoMyCOMTest.Create; MyCOMTest.PopMsg; end;但是运行时会提示class EOLESysError with message 'Class not registered '错误而中止。并且我手动注册COMTest.dll也是成功的,请问怎么回事?
new->Activex->Com Object
定义接口及参数,保存,编译就生成了一个Dll
调用:
在Project-->import type library-->Add-->选择你这个myxxx.dll-->Create Unit
这样就在你的工程里增加了一个_tlb单元,然后Use这个单元。就可以了,接下来就是调用接口了。
点Create Unit按钮
就在你的工程里增加了一个test_tlb.pas单元如果你在Main.pas中要调用这个接口,就引用一下这个单元
然后声明一个变量var IMyInter:ITTest; 可以在test_tlb单元里找到这样的声明(举个例子ITTest= interface;CoTTest = class)
然后 IMyInter:=CoTTest.Create;
IMyInter.........用就可以了
procedure TForm1.Button1Click(Sender: TObject);
var
MyComTest:IMyCOMTest;
begin
MyCOMTest := CoMyCOMTest.Create;
MyCOMTest.PopMsg;
end;但是运行时会提示class EOLESysError with message 'Class not registered '错误而中止。并且我手动注册COMTest.dll也是成功的,请问怎么回事?