vb和vc混合编程实例(ocx和dll)

前言:     
   由于以前用vb和vc++封装过dll和ocx文件. 或者在网上下的类;若重新编写和封装会很费时和费力. 如vb简单易用，对数据库操作通用类进行封装.现在vc中可以引用之。另外由于vc执行效率高，某些 较复杂算法或低层处理可在vc中进行封装. 这样经常要求混用.下面是实际中个例子记,分vb6.0,vc++各自创建和调用四个部分

   1: vb能封装ocx和active dll文件. 注意 active dll是一种动态，在被调用环境中不仅引用这个dll，而且还要引用这个dll所引用的其它文件,如 DBCommom.dll 是个数据库操作类封装，它引用了Ado 接口).其创建略,具体引用见后.
   
   2.vc中做dll时注意要提供接口，供其它程式调用.
     a>创建 win32 Dynamic-Link Library 如项目CMyTestDll
     b>加入成员function(在 .h中申明 .cpp中实现)

//取电脑名称
int CMyTestDll::GetComputerNameE(LPTSTR computer_name)
{
   DWORD buf=255;
   LPTSTR strname=new char[buf];
  if(GetComputerName(strname,&buf)!=0)
  {
  strcpy(computer_name,strname);
 return 1;
  }
  return 0;
}
//计算两个值之和
int CMyTestDll::Sum(int a, int b)
{
  return(a+b);
}

   c.>一定要加上CMyTestDll.def 文件 ，并在在其中定义导出各个function及参数,否则不能被调用
     EXPORTS
     GetComputerNameE @1;
     Sum @2; @3;
   d.>编译成dll便可以.最好每个function定义int为返回值.

  3.vb引用vc中dll 和普通API函数一样.(vb的long对应 vc的int)
    '引用
Private Declare Function GetComputerNameE Lib "目录\MyTestDll.dll" (ByVal strName As String) As Long
Private Declare Function Sum Lib "目录\\MyTestDll.dll" (ByVal g As Long, ByVal b As Long) As Long
    '调用
     Dim str As String * 20 ' 注意对于传址，一定要定义其空间大小(数组可以不指定)
     dim a As Long, b As Long
        a=25 b=78
      result = GetComputerNameE(str) 
      result=Sum(a, b)

  4.vc引用vb中ocx和dll
    如 C:\TestVb\DBCommon.dll 是个vb做的数据库通用类。包括对表的操作。
      在vc中要同时引用 DBCommon.dll和msado15.dll
    a>stdafx.h 中加上
       #import "C:\Program Files\Common Files\System\Ado\msado15.dll" no_namespace      rename("EOF","adoEOF")
    #import "E:\backup\Recycled\Study\VB\vb_Report\DBCommon.dll" named_guids(不知道类名用默认，否则用no_namespace 类名) 
     
    b>在调用时先要在App中InitInstance
       //初始化com类
      ::CoInitialize(NULL);

          //用指定命名来定义类型接口指针
          ::DBCommon::_clsDBCommonPtr pdb;
    HRESULT hr=pdb.CreateInstance(DBCommon::CLSID_clsDBCommon); 
   if(FAILED(hr))
   {
                 AfxMessageBox("Active dll error",MB_ICONINFORMATION);
    return false;
   }
 
   pdb->PutDBPath(CurrentMoudlePath); //向类中传入数据库存路径
   pdb->PutDBPwd((_bstr_t)strpwd); //向类中传入数据库存密码
   BSTR bstrNo=_com_util::ConvertStringToBSTR(Mydata->Name.GetBuffer(0));
  // BSTR bstrNo=::SysAllocString(L"Q50001");
     hr=pdb->Qutation_Print_Transe(&bstrNo);//向类中传入报价单号
        
  
   pdb.Detach(); //free memory
 
  若Active dll修改后(可删除ncb文件)，要重新编译源程式便可!

   摘自:http://blog.vckbase.com/jim97/