python - 如何使用 comtypes 访问 32bit VB6 DLL

Question

我正在尝试访问用 VB6 编写的旧 32 位 DLL 中的两个函数（以前在 Excel 32 位环境中访问过它）。使用带有comtypes的python 32bit，我设法看到了这两个函数及其输入（顺便说一句，我努力使用DLL Export Viewer和dumpbin.exe找到这些）。

Comtypes 返回以下详细信息：

# -*- coding: mbcs -*-
typelib_path = 'c:\\AF\\CalcARB_Library.dll'
_lcid = 0 # change this if required
from ctypes import *
from comtypes import GUID
from comtypes import CoClass
import comtypes.gen._00020430_0000_0000_C000_000000000046_0_2_0
from ctypes.wintypes import VARIANT_BOOL
from comtypes.automation import _midlSAFEARRAY
from ctypes import HRESULT
from comtypes import helpstring
from comtypes import COMMETHOD
from comtypes import dispid


class clsCalcARB_Library(CoClass):
    _reg_clsid_ = GUID('{2A5721F0-571A-4239-AEEB-B8EED7859C0E}')
    _idlflags_ = []
    _typelib_path_ = typelib_path
    _reg_typelib_ = ('{D1DA3979-1AFE-493E-A6FD-AB5466C226A6}', 1, 0)
class _clsCalcARB_Library(comtypes.gen._00020430_0000_0000_C000_000000000046_0_2_0.IDispatch):
    _case_insensitive_ = True
    _iid_ = GUID('{98414811-7EE4-44A3-8AFF-7B9B6789D7A4}')
    _idlflags_ = ['hidden', 'dual', 'nonextensible', 'oleautomation']
clsCalcARB_Library._com_interfaces_ = [_clsCalcARB_Library]

_clsCalcARB_Library._methods_ = [
    COMMETHOD([dispid(1745027073), 'propget'], HRESULT, 'CalcARB_Value',
              ( ['in', 'out'], POINTER(c_double), 'PdblCP' ),
              ( ['in', 'out'], POINTER(VARIANT_BOOL), 'PboAF' ),
              ( ['in', 'out'], POINTER(_midlSAFEARRAY(c_double)), 'PdblScale' ),
              ( ['out', 'retval'], POINTER(c_double), 'None' )),
    COMMETHOD([dispid(1745027072), 'propget'], HRESULT, 'CalcARB_TM',
              ( ['in', 'out'], POINTER(c_double), 'PdblCP' ),
              ( ['in', 'out'], POINTER(VARIANT_BOOL), 'PboAF' ),
              ( ['in', 'out'], POINTER(_midlSAFEARRAY(c_double)), 'PdblScale' ),
              ( ['out', 'retval'], POINTER(c_double), 'None' )),]

################################################################
## code template for _clsCalcARB_Library implementation
class _clsCalcARB_Library_Impl(object):
    @property
    def CalcARB_Value(self):
        '-no docstring-'
        #return PdblCP, PboAF, PdblScale, <unnamed>

    @property
    def CalcARB_MT(self):
        '-no docstring-'
        #return PdblCP, PboAF, PdblScale, <unnamed>
    
class Library(object):
    name = 'CalcARB_Library'
    _reg_typelib_ = ('{D1DA3979-1AFE-493E-A6FD-AB5466C226A6}', 1, 0)

__all__ = [ 'clsCalcARB_Library', '_clsCalcARB_Library']
from comtypes import _check_version; _check_version('1.1.10', 1102672632.000000)

我感兴趣的是将参数 PdblCP、PboAF 和 PdblScale 传递给这个函数，并取回 CalcARB_Value 和 CalcARB_TM。

我尝试了各种方法，但在我的一生中，我无法访问这些功能。根据我对代码的有限理解，_clsCalcARB_Library_Impl 中的 CalcARB_Value 与 _clsCalcARB_Library 中的方法中定义的函数无关。

我使用的另一种方法是：

import comtypes.client as cc
tlb_id = comtypes.GUID("{D1DA3979-1AFE-493E-A6FD-AB5466C226A6}")
val_model = cc.GetModule((tlb_id, 1, 0)) 
val_model._clsCalcARB_Library.__clsARB_Library__com__get_ARB_Value(what_goes_here_?)

这似乎至少是在访问 ARB_Value 函数......但我不确定变量的格式。

任何人能够帮助或至少指出我正确的方向？

标签： pythondllctypescomtypes