Question

请哪位高手将下面PB代码转换成DELPHI 代码啊？

Oleobject seiproxy
seiproxy =create oleobject
vi= seiproxy.connecttonewobject(‘seiproxy’)
if vi<>0 then
messagebox(‘’,‘注册失败’)
return
end if
seiproxy 是一个接口，
seiproxy =create oleobject 是创建接口
seiproxy.connecttonewobject(‘seiproxy’) 是注册接口
我想问的是 怎么把这些步骤转换成delphi

Answer 1

var
seiproxy: variants;
begin
seiproxy := CreateOleObject(‘seiproxy’);
if vi<>0 then
showmessage('注册失败’);

end;

Answer 2

参考Excel的调用：
var ExcelApp: Variant;
ExcelApp := CreateOleObject( ’Excel.Application’ );
你需要搞清楚seiproxy对象的内部对象

Answer 3

已转好，下载地址：u-115-com/file/u354c80b76s