刘
刘复生
Unregistered / Unconfirmed
GUEST, unregistred user!
我用CreateOleObject调用COM控件，跟踪发现他在使用该函数时没有问题，当调用里面的函数时，第一次调试调用成功，再运行一次报计算溢出或下溢，不知道是什么原因。我用Import Type Libary安装该DLL无法得到该DLL中的类，下面是部分代码（我做的是用友的财务接口，这是调用登陆窗口出的错）
var
m_NetLog
levariant;
begin
m_NetLog := createoleobject('UFSoft.U8.Framework.Login.UI.clsLogin');
If Not m_NetLogin.login_2('DP') then
//显示登录界面 在这一句用过一次成功，到登陆窗口点取消后再调试调用，这一句报计算溢出或下溢错误
ShowMessage(m_NetLogin.ErrDescript)
else
ShowMessage('login ok');
end;
var
m_NetLog
levariant;begin
m_NetLog := createoleobject('UFSoft.U8.Framework.Login.UI.clsLogin');
If Not m_NetLogin.login_2('DP') then
//显示登录界面 在这一句用过一次成功，到登陆窗口点取消后再调试调用，这一句报计算溢出或下溢错误
ShowMessage(m_NetLogin.ErrDescript)
else
ShowMessage('login ok');
end;