标准MFC WinSock ActiveX控件开发实例

最新推荐文章于 2024-04-28 15:15:36 发布

sbsbsbs

最新推荐文章于 2024-04-28 15:15:36 发布

阅读量406

点赞数

文章标签： mfc socket struct 网络 initialization date

摘要：本文主要介绍如何开发一个ActiveX控件，提供接口，与相应事件挂钩。文中涉及到VARIANT，SAFEARRAY，BSTR的详细使用方法。
另外还提供了WinSock的详细开发步骤，以及如何响应网络超时，网络断开的事件方法以及在VC，VB调用该控件的方法。
关键字：ActiveX，Socket，VARIANT， SAFEARRAY，BSTR。

一、MFC ActiveX控件开发步骤(VC 6.0):

New->Projects->MFC ActiveX ControlWizard，然后输入MFCWinSock工程名。如下图：

图一创建工程
一路狂按Next，直至Finsh出现，再按下OK，如下图:

　　　

图二创建完成

二、架设Socket环境：

首先在StdAfx.h文件中加入下面这句代码:
```
#include <afxsock.h>		// MFC socket extensions 
```
打开MFCWinSock.cpp文件，添加代码，看起来如下：

// CMFCWinSockApp::InitInstance - DLL initialization

BOOL CMFCWinSockApp::InitInstance()
{
	BOOL bInit = COleControlModule::InitInstance();

	if (bInit)
	{
		// TODO: Add your own module initialization code here.
		if (!AfxSocketInit())
		{
			AfxMessageBox("无法初始化Socket,请检查!");
			return FALSE;
		}
		WSADATA wsaData;
		WORD wVersion = MAKEWORD(1, 1);//设定为Winsock 1.1版
		int errCode;		
		errCode = WSAStartup(wVersion, &wsaData);//启动Socket服务
		if (errCode)
		{
			AfxMessageBox("无法找到可以使用的 WSOCK32.DLL");
			return FALSE;
		}
	}

	return bInit;
}



// CMFCWinSockApp::ExitInstance - DLL termination

int CMFCWinSockApp::ExitInstance()
{
	// TODO: Add your own module termination code here.
	WSACleanup();//结束网络服务
	return COleControlModule::ExitInstance();
}

三,提供控件接口和事件

在MFCWinSockCtl.cpp加入如下代码:

#ifndef WM_MYWINSOCK 
#define WM_MYWINSOCK WM_USER+1888
#endif

View->ClassWizard->Automation->Add Method…如下图:

图三创建接口
这个时候，我们为这个控件添加了一个Connect()的接口，出于通用性，安全性和扩展性的考虑，我们采用了VARIANT类型的参数，
很多人可能都不太了解该类型，又或者有接触过，但被吓怕了，那么我们来看清它的本来面目：

struct  tagVARIANT
    {
    union 
        {
        struct  __tagVARIANT
            {
            VARTYPE vt;
            WORD wReserved1;
            WORD wReserved2;
            WORD wReserved3;
            union 
                {
                LONG lVal;
                BYTE bVal;
                SHORT iVal;
                FLOAT fltVal;
                DOUBLE dblVal;
                VARIANT_BOOL boolVal;
                _VARIANT_BOOL bool;
                SCODE scode;
                CY cyVal;
                DATE date;
                BSTR bstrVal;
                IUnknown __RPC_FAR *punkVal;
                IDispatch __RPC_FAR *pdispVal;
                SAFEARRAY __RPC_FAR *parray;
                BYTE __RPC_FAR *pbVal;
                SHORT __RPC_FAR *piVal;
                LONG __RPC_FAR *plVal;
                FLOAT __RPC_FAR *pfltVal;
                DOUBLE __RPC_FAR *pdblVal;
                VARIANT_BOOL __RPC_FAR *pboolVal;
                _VARIANT_BOOL __RPC_FAR *pbool;
                SCODE __RPC_FAR *pscode;
                CY __RPC_FAR *pcyVal;
                DATE __RPC_FAR *pdate;
                BSTR __RPC_FAR *pbstrVal;
                IUnknown __RPC_FAR *__RPC_FAR *ppunkVal;
                IDispatch __RPC_FAR *__RPC_FAR *ppdispVal;
                SAFEARRAY __RPC_FAR *__RPC_FAR *pparray;
                VARIANT __RPC_FAR *pvarVal;
                PVOID byref;
                CHAR cVal;
                USHORT uiVal;
                ULONG ulVal;
                INT intVal;
                UINT uintVal;
                DECIMAL __RPC_FAR *pdecVal;
                CHAR __RPC_FAR *pcVal;
                USHORT __RPC_FAR *puiVal;
                ULONG __RPC_FAR *pulVal;
                INT __RPC_FAR *pintVal;
                UINT __RPC_FAR *puintVal;
                struct  __tagBRECORD
                    {
                    PVOID pvRecord;
                    IRecordInfo __RPC_FAR *pRecInfo;
                    }	__VARIANT_NAME_4;
                }	__VARIANT_NAME_3;
            }	__VARIANT_NAME_2;
        DECIMAL decVal;
        }	__VARIANT_NAME_1;
    };

它先是一个结构体，里面有一个重要成员VARTYPE vt；vt即是指明当前的数据类型，比如整型或者字符型，当指明vt后，
后面看到各种变量类型包括在一个联合体当中，也就是说指明vt后，你只能使用对应的其中之一变量类型。看着这众多的各种不同
类型变量集中在一起，确实让人吓了一跳，但细细看来，大多数变量跟我们平时的用法相似。值得一提的是SAFEARRAY __RPC_FAR *parray;
也许有很多人还没有接触过SAFEARRAY类型的变量，SAFEARRAY实际上也是一个结构，大家可以参考MSDN，我也将在后面介绍它的具体使用方法。

用同样的方法创建DisConnect()接口
创建两个事件，FireCloseWinsock()响应网络断开事件，FireRecvSockEvent()响应网络有数据到达的事件。创建方法如下图：

图四创建事件
重载控件消息处理函数WindowProc(),在View->ClassWizard中打开类向导,在消息映射中找到WindowProc,如下图:

图五重载WindowProc()

四、编写代码

编写VariantToLong()转换函数，该函数代码如下：

//类型转换,将VARIANT类型转换成Long类型
long CMFCWinSockCtrl::VariantToLong(const VARIANT &var)
{
	long r;
	switch(var.vt)
	{
		case VT_UI2://USHORT
			r = var.uiVal;
			break;
		case VT_UI4://ULONG
			r = var.ulVal;
			break;
		case VT_INT://INT
			r = var.intVal;
			break;
		case VT_UINT://UINT
			r = var.uintVal;
			break;
		case VT_I4://LONG
			r = var.lVal;
			break;
		case VT_UI1://BYTE
			r = var.bVal;
			break;
		case VT_I2://SHORT
			r = var.iVal;
			break;
		case VT_R4://FLOAT
			r = (long)var.fltVal;
			break;
		case VT_R8://DOUBLE
			r = (long)var.dblVal;
			break;
		default:
			r = -1;//无法转换该值
			break;
	}
	return r;
}

大家可以看到,该函数将最基本的若干中数据类型转换成了long类型,但VARIANT决不是个简单的谱,我将在后面继续揭开它的神秘面纱.

编写我们刚才的接口Connect()，代码代码如下：在MFCWinSockCtrl.h中加入

SOCKET OnlySock;//建立的唯一Socket,不允许重复建立多个
bool isOnlyConnect;//是否建立了连接

然后再编写Connect()，看起来如下：

BOOL CMFCWinSockCtrl::Connect(const VARIANT FAR& RemoteHost, const VARIANT FAR& RemotePort) 
{
	// TODO: Add your dispatch handler code here
	if(isOnlyConnect)//该连接已建立,还没有断开
		return FALSE;

	CString IPAddress;
	int Port;//转换成整型的端口

	switch(RemoteHost.vt)
	{
		case VT_BSTR://字符串型
			IPAddress = CString(RemoteHost.bstrVal);
			break;
		case VT_BYREF|VT_I1://CHAR *
			IPAddress.Format("%s",RemoteHost.pcVal);//RemoteHost.pbstrVal);
			break;
		default:
			IPAddress = "";
			return FALSE;
	}

	Port = VariantToLong(RemotePort);//我们编写的一个VARIANT转换成long类型的函数
	if(Port<=0)
		return FALSE;

	_TCHAR *ip = 0;
	struct hostent *host = 0;
	struct sockaddr_in addr;
	ULONG dotIP = inet_addr(IPAddress);

	OnlySock = socket(AF_INET, SOCK_STREAM, 0);

	// 判断是否为点IP地址格式
    	if (OnlySock == INVALID_SOCKET)
	{
		shutdown(OnlySock, 0x02);
		closesocket(OnlySock);//释放占有的SOCK资源
		return FALSE;
	}

    memset(&addr, 0, sizeof(struct sockaddr_in));
    // 设定 SOCKADDR_IN 结构的内容
    // 如果通讯协议是选择IP Protocol，那此值固定为AF_INET
    // AF_INET 与 PF_INET 这两个常量值相同
    addr.sin_family = AF_INET;
    addr.sin_port = htons(Port);
    addr.sin_addr.S_un.S_addr = dotIP;
    if (dotIP == INADDR_NONE)
    {
        host = gethostbyname(IPAddress);
        if (!host)
        {
		shutdown(OnlySock, 0x02);
		closesocket(OnlySock);//释放占有的SOCK资源
		return FALSE;
        };
        ip = inet_ntoa(*(struct in_addr*)(*host->h_addr_list));
        addr.sin_addr.S_un.S_addr = inet_addr(ip);
    }

    //开始连线
    if (connect(OnlySock, (LPSOCKADDR)&addr, sizeof(SOCKADDR)))
    {
        shutdown(OnlySock, 0x02);
	closesocket(OnlySock);//释放占有的SOCK资源
	return FALSE;
    }

	int   iError = WSAAsyncSelect(OnlySock, m_hWnd,WM_MYWINSOCK, FD_READ|FD_CLOSE); //只对网络断开和数据到达通知感兴趣
	if(iError == SOCKET_ERROR)//无法绑定Winsock的事件通知
	{   
		shutdown(OnlySock, 0x02);
		closesocket(OnlySock);//释放占有的SOCK资源
		return FALSE;
	}  

	isOnlyConnect = true;
	return TRUE;
}

有必要提一下WSAAsyncSelect(),这里接收网络数据到达和断开的两个消息,我们收到WM_MYWINSOCK消息时将处理该消息并作为事件传送给调用者.
第二个参数，窗口句柄，我们传送了m_hWnd，这是因为MFC ActiveX也属于一个窗口，并且是可见的，因此可以成功。

编写WindowProc()，代码看起来如下：

LRESULT CMFCWinSockCtrl::WindowProc(UINT message, WPARAM wParam, LPARAM lParam) 
{
	// TODO: Add your specialized code here and/or call the base class
	switch(message)
	{
	case WM_MYWINSOCK://响应自定义的消息
		switch(WSAGETSELECTEVENT(lParam))
		{
		case FD_READ://有新数据到达
			FireRecvSockEvent();
			break;
		case FD_CLOSE://对方已断掉当前连接
			FireCloseWinsock();
			break;	
		}
		break;
		default:
			break;
	}
	return COleControl::WindowProc(message, wParam, lParam);
}

本部分结束语:

好了,现在一个可以运行的控件已经完成，里面提供有Connect()和DisConnect()接口，和RecvSockEvent()及CloseWinsock()事件。以及WinSock的使用方法。
在下一部分(高级篇)将讲解两个重要接口SendData()和GetData(),下期内容如下:

long SendData(const VARIANT FAR& Data, const VARIANT FAR& DataType,const VARIANT FAR& DataLength, const VARIANT FAR& TimeOut)
long GetData(VARIANT FAR* Data, const VARIANT FAR& DataType, const VARIANT FAR& DataMaxLength, const VARIANT FAR& TimeOut)
VARIANT和SAFEARRAY的复杂用法。
控件开发出来后在VC和VB环境下的使用方法。

本文引自http://www.vckbase.com/document/viewdoc/?id=1883

sbsbsbs

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
标准MFC WinSock ActiveX控件开发实例

摘要：本文主要介绍如何开发一个ActiveX控件，提供接口，与相应事件挂钩。文中涉及到VARIANT，SAFEARRAY，BSTR的详细使用方法。另外还提供了WinSock的详细开发步骤，以及如何响应网络超时，网络断开的事件方法以及在VC，VB调用该控件的方法。关键字：ActiveX，Socket，VARIANT， SAFEARRAY，BSTR。一、MFC ActiveX控件开发步骤(VC 6
复制链接

扫一扫