本帖最后由 u012000298 于 2013-09-10 13:42:45 编辑

解决方案 »

  1.   

    而且,我写一个VC的客户端程序也是可以调用它的,下面的代码打印出HELLO,也就是全部转成大写:#import "..\ATLProject2\Debug\ATLProject2.tlb"
    using namespace ATLProject2Lib;
    int _tmain(int argc, _TCHAR* argv[])
    {
    CLSID id;
    CLSIDFromProgID(L"glm.disp2",&id);
    CoInitialize(NULL);
    IDispSimple2Ptr p(id,NULL,CLSCTX_ALL);
    auto s1=p->Upper("hello");
    auto s2=OLE2CT(s1.GetBSTR());
    _tprintf(L"%s\n",s2);
    p.Release();
    CoUninitialize();
    return 0;
    }
      

  2.   

    Set obj=CreateObject("my.disp2")
    CLSIDFromProgID(L"glm.disp2",&id);
    ======
    ??
      

  3.   

    不是啊,我写在上面了:
    Set obj=CreateObject("my.disp2")
    MsgBox obj.Upper("hello")
      

  4.   

    用这个试试:
    Set obj=CreateObject("my.disp2.1")
    MsgBox obj.Upper("hello")