http://www.vckbase.com/index.php/wv/1577
一、MFC ActiveX控件开发步骤(VC 6.0):
1.New->Projects->MFC ActiveX ControlWizard,然后输入MFCWinSock工程名。如下图:
图一 创建工程
2.一路狂按Next,直至Finsh出现,再按下OK,如下图:
图二 创建完成
二、架设Socket环境:
1.首先在StdAfx.h文件中加入下面这句代码:
1.
#include < afxsock.h > // MFC socket extensions
2.打开MFCWinSock.cpp文件,添加代码,看起来如下:
01.
//
02.
// CMFCWinSockApp::InitInstance - DLL initialization
03.
04.
BOOL
CMFCWinSockApp::InitInstance()
05.
{
06.
BOOL
bInit = COleControlModule::InitInstance();
07.
08.
if
(bInit)
09.
{
10.
// TODO: Add your own module initialization code here.
11.
if
(!AfxSocketInit())
12.
{
13.
AfxMessageBox(
"无法初始化Socket,请检查!"
);
14.
return
FALSE;
15.
}
16.
WSADATA wsaData;
17.
WORD
wVersion = MAKEWORD(1, 1);
//设定为Winsock 1.1版
18.
int
errCode;
19.
errCode = WSAStartup(wVersion, &wsaData);
//启动Socket服务
20.
if
(errCode)
21.
{
22.
AfxMessageBox(
"无法找到可以使用的 WSOCK32.DLL"
);
23.
return
FALSE;
24.
}
25.
}
26.
27.
return
bInit;
28.
}
29.
30.
31.
///
32.
// CMFCWinSockApp::ExitInstance - DLL termination
33.
34.
int
CMFCWinSockApp::ExitInstance()
35.
{
36.
// TODO: Add your own module termination code here.
37.
WSACleanup();
//结束网络服务
38.
return
COleControlModule::ExitInstance();
39.
}
40.
三,提供控件接口和事件
1.在MFCWinSockCtl.cpp加入如下代码:
1.
#ifndef WM_MYWINSOCK
2.
#define WM_MYWINSOCK WM_USER+1888
3.
#endif
4.
2.View->ClassWizard->Automation->Add Method…如下图:
图三 创建接口
这个时候,我们为这个控件添加了一个Connect()的接口,出于通用性,安全性和扩展性的考虑,我们采用了VARIANT类型的参数,
很多人可能都不太了解该类型,又或者有接触过,但被吓怕了,那么我们来看清它的本来面目:
01.
struct
tagVARIANT
02.
{
03.
union
04.
{
05.
struct
__tagVARIANT
06.
{
07.
VARTYPE vt;
08.
WORD
wReserved1;
09.
WORD
wReserved2;
10.
WORD
wReserved3;
11.
union
12.
{
13.
LONG
lVal;
14.
BYTE
bVal;
15.
SHORT
iVal;
16.
FLOAT
fltVal;
17.
DOUBLE dblVal;
18.
VARIANT_BOOL boolVal;
19.
_VARIANT_BOOL
bool
;
20.
SCODE scode;
21.
CY cyVal;
22.
DATE date;
23.
BSTR bstrVal;
24.
IUnknown __RPC_FAR *punkVal;
25.
IDispatch __RPC_FAR *pdispVal;
26.
SAFEARRAY __RPC_FAR *parray;
27.
BYTE
__RPC_FAR *pbVal;
28.
SHORT
__RPC_FAR *piVal;
29.
LONG
__RPC_FAR *plVal;
30.
FLOAT
__RPC_FAR *pfltVal;
31.
DOUBLE __RPC_FAR *pdblVal;
32.
VARIANT_BOOL __RPC_FAR *pboolVal;
33.
_VARIANT_BOOL __RPC_FAR *pbool;
34.
SCODE __RPC_FAR *pscode;
35.
CY __RPC_FAR *pcyVal;
36.
DATE __RPC_FAR *pdate;
37.
BSTR __RPC_FAR *pbstrVal;
38.
IUnknown __RPC_FAR *__RPC_FAR *ppunkVal;
39.
IDispatch __RPC_FAR *__RPC_FAR *ppdispVal;
40.
SAFEARRAY __RPC_FAR *__RPC_FAR *pparray;
41.
VARIANT __RPC_FAR *pvarVal;
42.
PVOID
byref;
43.
CHAR
cVal;
44.
USHORT
uiVal;
45.
ULONG
ulVal;
46.
INT
intVal;
47.
UINT
uintVal;
48.
DECIMAL __RPC_FAR *pdecVal;
49.
CHAR
__RPC_FAR *pcVal;
50.
USHORT
__RPC_FAR *puiVal;
51.
ULONG
__RPC_FAR *pulVal;
52.
INT
__RPC_FAR *pintVal;
53.
UINT
__RPC_FAR *puintVal;
54.
struct
__tagBRECORD
55.
{
56.
PVOID
pvRecord;
57.
IRecordInfo __RPC_FAR *pRecInfo;
58.
} __VARIANT_NAME_4;
59.
} __VARIANT_NAME_3;
60.
} __VARIANT_NAME_2;
61.
DECIMAL decVal;
62.
} __VARIANT_NAME_1;
63.
};
64.
它先是一个结构体,里面有一个重要成员VARTYPE vt;vt即是指明当前的数据类型,比如整型或者字符型,当指明vt后,后面看到各种变量类型包括在一个联合体当中,也就是说指明vt后,你只能使用对应的其中之一变量类型。看着这众多的各种不同类型变量集中在一起,确实让人吓了一跳,但细细看来,大多数变量跟我们平时的用法相似。值得一提的是SAFEARRAY __RPC_FAR *parray;也许有很多人还没有接触过SAFEARRAY类型的变量,SAFEARRAY实际上也是一个结构,大家可以参考MSDN,我也将在后面介绍它的具体使用方法。
1.用同样的方法创建DisConnect()接口
2.创建两个事件,FireCloseWinsock()响应网络断开事件,FireRecvSockEvent()响应网络有数据到达的事件。创建方法如下图:
图四 创建事件
3.重载控件消息处理函数WindowProc(),在View->ClassWizard中打开类向导,在消息映射中找到WindowProc,如下图:
图五 重载WindowProc()
四、编写代码
1.编写VariantToLong()转换函数,该函数代码如下:
01.
//类型转换,将VARIANT类型转换成Long类型
02.
long
CMFCWinSockCtrl::VariantToLong(
const
VARIANT &var)
03.
{
04.
long
r;
05.
switch
(var.vt)
06.
{
07.
case
VT_UI2:
//USHORT
08.
r = var.uiVal;
09.
break
;
10.
case
VT_UI4:
//ULONG
11.
r = var.ulVal;
12.
break
;
13.
case
VT_INT:
//INT
14.
r = var.intVal;
15.
break
;
16.
case
VT_UINT:
//UINT
17.
r = var.uintVal;
18.
break
;
19.
case
VT_I4:
//LONG
20.
r = var.lVal;
21.
break
;
22.
case
VT_UI1:
//BYTE
23.
r = var.bVal;
24.
break
;
25.
case
VT_I2:
//SHORT
26.
r = var.iVal;
27.
break
;
28.
case
VT_R4:
//FLOAT
29.
r = (
long
)var.fltVal;
30.
break
;
31.
case
VT_R8:
//DOUBLE
32.
r = (
long
)var.dblVal;
33.
break
;
34.
default
:
35.
r = -1;
//无法转换该值
36.
break
;
37.
}
38.
return
r;
39.
}
大家可以看到,该函数将最基本的若干中数据类型转换成了long类型,但VARIANT决不是个简单的谱,我将在后面继续揭开它的神秘面纱.
2.编写我们刚才的接口Connect(),代码代码如下: 在MFCWinSockCtrl.h中加入
1.
SOCKET OnlySock;
//建立的唯一Socket,不允许重复建立多个
2.
bool
isOnlyConnect;
//是否建立了连接
然后再编写Connect(),看起来如下:
01.
BOOL
CMFCWinSockCtrl::Connect(
const
VARIANT FAR& RemoteHost,
const
VARIANT FAR& RemotePort)
02.
{
03.
// TODO: Add your dispatch handler code here
04.
if
(isOnlyConnect)
//该连接已建立,还没有断开
05.
return
FALSE;
06.
07.
CString IPAddress;
08.
int
Port;
//转换成整型的端口
09.
10.
switch
(RemoteHost.vt)
11.
{
12.
case
VT_BSTR:
//字符串型
13.
IPAddress = CString(RemoteHost.bstrVal);
14.
break
;
15.
case
VT_BYREF|VT_I1:
//CHAR *
16.
IPAddress.Format(
"%s"
,RemoteHost.pcVal);
//RemoteHost.pbstrVal);
17.
break
;
18.
default
:
19.
IPAddress =
""
;
20.
return
FALSE;
21.
}
22.
23.
Port = VariantToLong(RemotePort);
//我们编写的一个VARIANT转换成long类型的函数
24.
if
(Port<=0)
25.
return
FALSE;
26.
27.
_TCHAR *ip = 0;
28.
struct
hostent *host = 0;
29.
struct
sockaddr_in addr;
30.
ULONG
dotIP = inet_addr(IPAddress);
31.
32.
OnlySock = socket(AF_INET, SOCK_STREAM, 0);
33.
34.
// 判断是否为点IP地址格式
35.
if
(OnlySock == INVALID_SOCKET)
36.
{
37.
shutdown(OnlySock, 0x02);
38.
closesocket(OnlySock);
//释放占有的SOCK资源
39.
return
FALSE;
40.
}
41.
42.
memset
(&addr, 0,
sizeof
(
struct
sockaddr_in));
43.
// 设定 SOCKADDR_IN 结构的内容
44.
// 如果通讯协议是选择IP Protocol,那此值固定为AF_INET
45.
// AF_INET 与 PF_INET 这两个常量值相同
46.
addr.sin_family = AF_INET;
47.
addr.sin_port = htons(Port);
48.
addr.sin_addr.S_un.S_addr = dotIP;
49.
if
(dotIP == INADDR_NONE)
50.
{
51.
host = gethostbyname(IPAddress);
52.
if
(!host)
53.
{
54.
shutdown(OnlySock, 0x02);
55.
closesocket(OnlySock);
//释放占有的SOCK资源
56.
return
FALSE;
57.
};
58.
ip = inet_ntoa(*(
struct
in_addr*)(*host->h_addr_list));
59.
addr.sin_addr.S_un.S_addr = inet_addr(ip);
60.
}
61.
62.
//开始连线
63.
if
(connect(OnlySock, (LPSOCKADDR)&addr,
sizeof
(SOCKADDR)))
64.
{
65.
shutdown(OnlySock, 0x02);
66.
closesocket(OnlySock);
//释放占有的SOCK资源
67.
return
FALSE;
68.
}
69.
70.
int
iError = WSAAsyncSelect(OnlySock, m_hWnd,WM_MYWINSOCK, FD_READ|FD_CLOSE);
//只对网络断开和数据到达通知感兴趣
71.
if
(iError == SOCKET_ERROR)
//无法绑定Winsock的事件通知
72.
{
73.
shutdown(OnlySock, 0x02);
74.
closesocket(OnlySock);
//释放占有的SOCK资源
75.
return
FALSE;
76.
}
77.
78.
isOnlyConnect =
true
;
79.
return
TRUE;
80.
}
有必要提一下WSAAsyncSelect(),这里接收网络数据到达和断开的两个消息,我们收到WM_MYWINSOCK消息时将处理该消息并作为事件传送给调用者.
第二个参数,窗口句柄,我们传送了m_hWnd,这是因为MFC ActiveX也属于一个窗口,并且是可见的,因此可以成功。
3.编写WindowProc(),代码看起来如下:
01.
LRESULT
CMFCWinSockCtrl::WindowProc(
UINT
message,
WPARAM
wParam,
LPARAM
lParam)
02.
{
03.
// TODO: Add your specialized code here and/or call the base class
04.
switch
(message)
05.
{
06.
case
WM_MYWINSOCK:
//响应自定义的消息
07.
switch
(WSAGETSELECTEVENT(lParam))
08.
{
09.
case
FD_READ:
//有新数据到达
10.
FireRecvSockEvent();
11.
break
;
12.
case
FD_CLOSE:
//对方已断掉当前连接
13.
FireCloseWinsock();
14.
break
;
15.
}
16.
break
;
17.
default
:
18.
break
;
19.
}
20.
return
COleControl::WindowProc(message, wParam, lParam);
21.
}
本部分结束语:
好了,现在一个可以运行的控件已经完成,里面提供有Connect()和DisConnect()接口,和RecvSockEvent()及CloseWinsock()事件。以及WinSock的使用方法。
在下一部分(高级篇)将讲解两个重要接口SendData()和GetData(),下期内容如下:
1.long SendData(const VARIANT FAR& Data, const VARIANT FAR& DataType,const VARIANT FAR& DataLength, const VARIANT FAR& TimeOut)
2.long GetData(VARIANT FAR* Data, const VARIANT FAR& DataType, const VARIANT FAR& DataMaxLength, const VARIANT FAR& TimeOut)
3.VARIANT和SAFEARRAY的复杂用法。
4.控件开发出来后在VC和VB环境下的使用方法。
声明:
1.部分资料来源于网络,本文所用的所有源代码仅供非商业用途,并请保留原版权,否则后果自负!
2.欢迎大家拍砖,或指正不足的地方,一起探导更好的方法。
3.欢迎访问www.vcfans.cn,感谢您的支持!