實现vbvc混合编程的关键技术.docVIP

实现VB、VC混合编程的关键技术（实例） 阳剑 2007-12-18 混合编程的方式，4种： Shell启动式。缺点，明显不灵活 过程：VC 编写程序hello.exe。 VB中用： Shell E:\\C\\C++\\Projects\\gray2bit2\\Debug\\gray2bit.exe, vbNormalFocus 测试：Shell F:\\pictures\\women\\155.bmp, vbNormalFocus DLL技术 MFC Dll有三种（可能只供MFC调用）： 2.1 VC中生成win32 dll 1）创建工程 与VB链接的是NON－MFC dll，即要求创建win32 dll。 2）添加.def文件，准备输出函数和变量： 编辑.def： LIBRARY ipcvdll EXPORTS filter1 ; symbols exported 3）编辑.cpp文件 // ipcvdll.cpp : Defines the entry point for the DLL application. // #include stdafx.h BOOL APIENTRY DllMain( HANDLE hModule, DWORD ul_reason_for_call, LPVOID lpReserved ) { return TRUE; } void _stdcall filter1(LPVOID ImgArray, long PicHeight,long Picwidth,long PicWidthBytes) { int temple[3][3]; UCHAR *PicArray=(UCHAR *)ImgArray; int Result; int nPerPixel=(int)(PicWidthBytes/double(Picwidth));//假定处理的都是8位，24，32位图像 if(nPerPixel!=1 nPerPixel!=3 nPerPixel!=4) return; for (int i=0;i3;i++) { for(int j=0;j3;j++) { temple[i][j]=-1; } } temple[1][1]=9; for (i=1;iPicHeight-1;i++) { for(int j=1;j(Picwidth-1);j++) { for(int jj=0;jjnPerPixel;jj++) { Result =0; UCHAR temp=(*(PicArray+i*PicWidthBytes+j*nPerPixel+jj)); for(int k=0;k3;k++) { for (int l=0;l3;l++) { Result +=temple[k][l]*(*(PicArray+(i+k-1)*PicWidthBytes+(j+l-1)*nPerPixel+jj)); } } if(Result0) Result=0; if(Result255) Result=255; (*(PicArray+i*PicWidthBytes+j*nPerPixel+jj))=(UCHAR)(Result); if(temp!=Result) { CHAR diff=0; diff=temp-Result; } } } } } //图像滤波处理 4）.dll文件的生成(Release版本的.dll,默认设置Debug版本) Build-Set Active Configuration 2.2 Vb程序： 1）标准模块中声明只能为Public，在类模块和窗体模块中只能Private。 Public Declare Sub filter1 Lib E:\C\C++\Projects\ipcvdll\release\ipcvdll (ByRef ImgArray As Byte, ByVal PicHeight As Long, ByVal PicWidth As Long, ByVal PicWidthBytes As Long) 2）调用dll函数(图像句柄似乎是直接对应加载到内存的图像数据，下面的例子可以对图像连续处理)： Dim Result, totalBytes As Long Dim