谁能告诉我VB里怎样调用VC的COM接口中[out]类的参数啊?

如题,最好给个的demo例子吧

解决方案 »

  1.   

    Set DBConnectionObj = CreateObject("ASPComponents.DBConnection")
      Dim ServerName, DatabaseName, UserName, UserPwd
      
      If (DBConnectionObj.ReadConnParam(ServerName, DatabaseName, UserName, UserPwd)) = True Then
        
      Else
        MsgBox "读取失败"
      End If
      Text2.Text = ServerName
      Text3.Text = DatabaseName
      Text4.Text = UserName
      Text5.Text = UserPwd
      

  2.   

    老兄，你把ASPComponents.DBConnection的ReadConnParam定义要给我看看阿。
      

  3.   

    Delphi:
        function ReadConnParam(var ServerName, DatabaseName, UserName,
          UserPwd: OleVariant): WordBool; safecall;和vc中的[out]一样。
    vb中缺省参数调用是ByRef（传地址），可指定为ByVal(传值)。
      

  4.   

    貌似ByRef可以传给[out]型的参数
      

  5.   

    把out型的参数放在前面作为输入参数使用
      

  6.   

    大哥, 呵呵,俺还是不懂.
    麻烦您老把delphi的转换成VC的语法格式给我看看啊?
    就象在VC类向导中生成的一样?
    如:
    STDMETHOD(CustRegist)(/*[in]*/BSTR* CustInfo, /*[out]*/BSTR* ErrInfo, /*[out]*/BSTR* Serial, /*[out]*/BSTR* CustNo, /*[out,retval]*/LONG* ErrNo);
    我就是不知道在VB中该如何设置那些[out]类型的参数啊?
      

  7.   

    唉, 这个问题是自己已经解决了.
    不过在VBscript中好像还是有问题:(
    哪位大虾指点一下?
      

  8.   

    vbscript中可以直接传一个变量名调用
    不过COM中out类型参数一定要是VARIANT
      

  9.   

    哦， 我在脚本里边用CStr类型转换了一下？
    这样也不行吗？
    try了一下，好像是不可以。我用VARIANT再try一下吧。