调用vb组件出现问题，请帮忙！

Question

vb组件('Deal_Test.server')中有这样一个函数：
Public Sub Test(fff As Variant)
    Dim ddd  As Variant  
    Set ddd = fff     
    ddd.showLog "Ha ha ha ha  Victory !"End Sub
delphi应用程序：
调用语句：
var
  oTest : Variant;
begin  oTest := CreateOleObject('Deal_Test.server');
  oTest.Test(self);
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
出现类型不匹配错误，请帮忙解决。前提一定要将应用程序自身的对象引用当作参数传过，请问该怎么解决。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
　如果我用VB应用程序调用是可以的：
　　调用语句如下：
Public Sub callsub()   
    'Dim subb As New Deal_Test.server  
    Dim subb
    Set subb = CreateObject("Deal_Test.server") 
    subb.Test Me    
End Sub
请问这是怎么回事

Answer 1

可能是由于Delphi的Form类没有实现IDispatch接口，而作为自动化对象参数传递的话要求必须实现IDispatch接口，你试着将你的form类实现IDispatch接口看看。