aintf.userlog(userid,userpwd); -------這一步出錯呀! finally aintf.free; end; 出錯提示是: "variant does not reference an automation object" 不知道是怎么回事!
试试这样,我没试过,实在是找不到VB的组件:) 1.用project|import type libaray生成该COM的类型库文件,将其加入到USE语句。 2。声明接口,并创建COM对象。通常类似如下 VAR I:myinterface; ... I:=Coclassname.create;(coclassname为类型库中COM类名) 3.调用COM类的方法
to: eastliangliang(青苹果)(道可道,非常道) 不錯,我想應該可以, 怎么忘記了import libaray呢
那么DELPHI调用的时候,就类似VB那样,用VARIANT类型来调用。
我用VB的Com+組件, 編譯后生成了三個文檔(dll, exp, lib),我想用Delphi調用
我用Delphi寫了如下如示例子
Const
myClassID :TGUID = '{134333-4532-543234-52435-653332}';
var
aintf : variant;
aintf := CreateComObject(myClassID)
try
aintf.userlog(userid,userpwd); -------這一步出錯呀! finally
aintf.free;
end;
出錯提示是:
"variant does not reference an automation object"
不知道是怎么回事!
1.用project|import type libaray生成该COM的类型库文件,将其加入到USE语句。
2。声明接口,并创建COM对象。通常类似如下
VAR I:myinterface;
...
I:=Coclassname.create;(coclassname为类型库中COM类名)
3.调用COM类的方法
eastliangliang(青苹果)(道可道,非常道)
不錯,我想應該可以, 怎么忘記了import libaray呢
測試通過!