第10章_网络程序设计实例.ppt

第10章网络程序设计实例 10 1使用WinsockAPI设计网络程序的实例10 2使用MFC类库进行网络程序设计的实例10 3基于WinInetAPI的客户程序编写实例10 4原始套接口 SOCK RAW 程序设计实例10 5广播通信与组播通信程序设计实例习题 10 1使用WinsockAPI设计网络程序的实例 10 1 1程序源代码1 UDP程序1的源代码 编程环境 VC6 0 程序说明 基于用户数据报协议UDP的程序实例 程序功能 在窗口中点击鼠标左键 则发送信息到端口号为6000的远程机上 并可以从端 口号6000的远程机接收数据 include stdafx h include 说明全局量HINSTANCEhInst LRESULTCALLBACKWndProc HWND UINT WPARAM LPARAM intAPIENTRYWinMain HINSTANCEhI HINSTANCEhP LPSTRlp intnC MSGmsg HWNDhWnd 实例句柄存入全局量hInsthInst hI WNDCLASSwc memset wc hbrBackground HBRUSH COLOR WINDOW wc lpszClassName W1 RegisterClass if hWnd returnFALSE ShowWindow hWnd nC 主消息循环while GetMessage returnmsg wParam 定义WinsockAPI需要的量WSADATAws SOCKETs1 s2 structsockaddr inCs1A Cs2A 发送数据缓冲charsendBuf 200 接收数据缓冲 charrecvBuf 200 intlen 存放接收到的字节数 defineCs1Port8000 本地端口号 defineCs2Port6000 远程端口号 defineCs1IP 127 0 0 1 本地IP地址 defineCs2IP 127 0 0 1 远程IP地址 消息处理LRESULTCALLBACKWndProc HWNDhW UINTmsg WPARAMwP LPARAMlP switch msg caseWM DESTROY 关闭程序触发事件 向Windows注销Socket触发事件WSAAsyncSelect s1 hW 0 0 释放连接closesocket s1 卸载动态链接库WinsockDLLWSACleanup PostQuitMessage 0 break caseWM CREATE 初始化触发事件 装载动态链接库WinsockDLLWSAStartup 0 x0202 本地IP地址Cs1A sin addr s addr inet addr Cs1IP 进行本地绑定len bind s1 structsockaddr 远程IP地址 Cs2A sin addr s addr inet addr Cs2IP 向Windows注册网络事件WSAAsyncSelect s1 hW WM USER 1 FD READ Beep 2000 200 发出报警声音break caseWM USER 1 Socket触发事件switch LOWORD lP caseFD READ 接收远程信息len recv s1 recvBuf sizeof recvBuf 0 recvBuf len 0 MessageBox 0 recvBuf UDP程序1从UDP程序2收到的数据 MB OK break break caseWM LBUTTONDOWN 点击鼠标左键 将发送数据放入缓冲区wsprintf sendBuf Hello UDP程序2 len sizeof Cs2A 发送信息sendto s1 sendBuf strlen sendBuf 0 structsockaddr 2 UDP程序2的源代码 编程环境 VC6 0 程序说明 基于用户数据报协议UDP的程序实例 程序功能 在窗口里点击鼠标左键 则发送信息到端口为8000的远程机上 并可以从端口 为8000的远程机接收数据 include stdafx h include 说明全局量HINSTANCEhInst LRESULTCALLBACKWndProc HWND UINT WPARAM LPARAM intAPIENTRYWinMain HINSTANCEhI HINSTANCEhP LPSTRlp intnC MSGmsg HWNDhWnd 实例句柄存入全局量hInsthInst hI WNDCLASSwc memset wc hIcon LoadIcon NULL IDI APPLICATION wc hbrBackground HBRUSH COLOR WINDOW wc lpszClassName W1 RegisterClass if hWnd returnFALSE ShowWindow hWnd nC 主消息循环while GetMessage 定义WinsockAPI需要的量WSADATAws SOCKETs1 s2 structsockaddr inCs1A Cs2A 发送数据缓冲charsendBuf 200 接收数据缓冲charrecvBuf 200 intlen 存放接收到的字节数 defineCs1Port6000 本地端口 defineCs2Port8000 远程端口 defineCs1IP 127 0 0 1 本地网址 defineCs2IP 127 0 0 1 远程网址 消息处理LRESULTCALLBACKWndProc HWNDhW UINTmsg WPARAMwP LPARAMlP switch msg caseWM DESTROY 关闭程序触发事件 向Windows注销Socket触发事件WSAAsyncSelect s1 hW 0 0 释放连接closesocket s1 卸载动态链接库WinsockDLL WSACleanup PostQuitMessage 0 break caseWM CREATE 程序初始化触发事件 装载动态链接库WinsockDLLWSAStartup 0 x0202 设置地址类型Cs1A sin family AF INET 本地端口Cs1A sin port htons Cs1Port 本地IP地址Cs1A sin addr s addr inet addr Cs1IP 进行本地绑定len bind s1 structsockaddr 远程端口Cs2A sin port htons Cs2Port 远程IP地址Cs2A sin addr s addr inet addr Cs2IP 向Windows注册网络事件WSAAsyncSelect s1 hW WM USER 1 FD READ break caseWM USER 1 Socket触发事件 switch LOWORD lP caseFD READ 接收远程信息len recv s1 recvBuf sizeof recvBuf 0 recvBuf len 0 MessageBox 0 recvBuf UDP程序2从UDP程序1收到的数据 0 break break caseWM LBUTTONDOWN 点击鼠标左键wsprintf sendBuf Hello UDP程序1 len sizeof Cs2A 发送信息sendto s1 sendBuf strlen sendBuf 0 structsockaddr 10 1 2程序运行结果在这两个程序调试 编译和链接正确后 就可以执行这两个程序了 这两个程序执行后的窗口如图10 1所示 其中 图 a 是UDP程序1执行后的窗口 图 b 是UDP程序2执行后的窗口 a UDP程序1的窗口 b UDP程序2的窗口图10 1UDP程序执行后的窗口 程序执行后就可以检查它们所实现的功能了 在UDP程序1的窗口中点击鼠标左键 则可以发送数据给UDP程序2 UDP程序2在收到UDP程序1发送的数据后 弹出如图10 2 a 所示的窗口 并显示收到的数据 同样 如果在UDP程序2的窗口中点击鼠标左键 则可以发送数据给UDP程序1 UDP程序1在收到UDP程序2发送的数据后 弹出如图10 2 b 所示的窗口 a UDP程序2收到的信息 b UDP程序1收到的信息图10 2UDP程序收到数据后弹出的窗口 在学习这两个程序的过程中 我们应该注意两个问题 1 在程序中 虽然使用的是数据报传输方式 SOCK DGRAM 但却使用bind 函数进行了地址的绑定 2 这两个程序的功能是一样的 所以代码几乎是相同的 10 2使用MFC类库进行网络程序设计的实例 10 2 1创建客户端程序我们使用VC 提供的可视化集成编程环境来创建客户端程序 创建客户端程序的主要步骤介绍如下 1 创建一个工程使用VC 的应用程序生成向导 MFCAppWizard exe 创建一个基于对话框的工程 该工程的名称为CSockClient 2 设计程序对话框如图10 3所示 图10 3添加类变量 3 生成CAsyncSocket类的子类MySock4 在MySock ccp文件中添加文件包含信息在生成的MySock cpp中添加如下文件包含信息 include CSockClient h include CSockClientDlg h 5 向MySock h文件中添加代码向MySock h文件中添加如下代码 public BOOLm bConnected 是否连接UINTm nLength 消息长度charm szBuffer 4096 消息缓冲区 6 重载MySock ccp文件中的各函数 1 MySock 函数重载的代码如下 MySock MySock m nLength 0 memset m szBuffer 0 sizeof m szBuffer m bConnected FALSE MySock MySock 关闭套接字if m hSocket INVALID SOCKET Close 2 OnReceive 函数重载的代码如下 voidMySock OnReceive intnErrorCode m nLength Receive m szBuffer sizeof m szBuffer 0 下面两行代码用来获取对话框指针CCSockClientApp pApp CCSockClientApp AfxGetApp CCSockClientDlg pDlg CCSockClientDlg pApp m pMainWnd pDlg m MSGS InsertString 0 m szBuffer memset m szBuffer 0 sizeof m szBuffer CAsyncSocket OnReceive nErrorCode 3 OnSend 函数重载的代码如下 voidMySock OnSend intnErrorCode Send m szBuffer m nLength 0 m nLength 0 memset m szBuffer 0 sizeof m szBuffer 继续提请一个 读 的网络事件 接收Server消息AsyncSelect FD READ CAsyncSocket OnSend nErrorCode 4 OnConnect 函数重载的代码如下 voidMySock OnConnect intnErrorCode if nErrorCode 0 m bConnected TRUE CCSockClientApp pApp CCSockClientApp AfxGetApp CCSockClientDlg pDlg CCSockClientDlg pApp m pMainWnd memcpy m szBuffer Connectedto 13 strncat m szBuffer pDlg m szServerAdr sizeof pDlg m szServerAdr pDlg m MSGS InsertString 0 m szBuffer 提请一个 读 的网络事件 准备接收AsyncSelect FD READ CAsyncSocket OnConnect nErrorCode 7 新建一个输入地址的对话框新建一个输入地址信息的对话框IDD Addr用来输入IP地址和端口号 生成一个新的基于对话框的类CAddrDlg 在该对话框中增加两个编辑 Edit 控件 一个为IDC Addr 用来输入要连接的IP地址 另一个为IDC Port 用来输入端口号 使用类向导 ClassWizard 为CAddrDlg类添加m Addr和m Port两个类变量 它们的ID标识 类型和名称如下 ControlIDTypeMemberIDC AddrCStringm AddrIDC PortIntm Port 然后向CSockClientDlg类中添加如下代码 protected intTryCount MySockm clientSocket UINTm szPort public charm szServerAdr 256 10 添加 连接 按钮的程序代码双击IDD CSOCKCLIENT DIALOG对话框中的 连接 按钮 添加以下代码 voidCCSockClientDlg OnConnect m clientSocket ShutDown 2 m clientSocket m hSocket INVALID SOCKET m clientSocket m bConnected FALSE CAddrDlgm Dlg 默认端口7m Dlg m Port 7 if m Dlg DoModal IDOK m Dlg m Addr IsEmpty memcpy m szServerAdr m Dlg m Addr sizeof m szServerAdr m szPort m Dlg m Port 建立计时器 每1秒尝试连接一次 直到连上或TryCount 10SetTimer 1 1000 NULL TryCount 0 11 添加Windows消息WM TIMER的响应函数OnTimervoidCCSockClientDlg OnTimer UINTnIDEvent if m clientSocket m hSocket INVALID SOCKET BOOLbFlag m clientSocket Create 0 SOCK STREAM FD CONNECT if bFlag AfxMessageBox SocketError m clientSocket Close PostQuitMessage 0 return m clientSocket Connect m szServerAdr m szPort TryCount if TryCount 10 m clientSocket m bConnected KillTimer 1 if TryCount 10 AfxMessageBox ConnectFailed return CDialog OnTimer nIDEvent 12 添加 发送 按钮的程序代码双击IDD CSOCKCLIENT DIALOG对话框中的 发送 按钮 添加以下代码 voidCCSockClientDlg OnSend if m clientSocket m bConnected m clientSocket m nLength m MSG GetWindowText m clientSocket m szBuffer sizeof m clientSocket m szBuffer m clientSocket AsyncSelect FD WRITE m MSG SetWindowText 13 添加 关闭 按钮的程序代码双击IDD CSOCKCLIENT DIALOG对话框中的 关闭 按钮 添加以下代码 voidCCSockClientDlg OnExit 关闭Socketm clientSocket ShutDown 2 关闭对话框EndDialog 0 上述步骤完成后 调试程序并建立可执行的 EXE文件 当该项目运行时 弹出如图10 4所示的程序对话框 点击 Connect 按钮 弹出如图10 5所示的对话框 输入要连接的服务器的IP地址和端口号 然后单击 OK 按钮 当连接建立后 就可以在客户程序对话框中输入回送信息 并按 Send 按钮进行程序测试了 图10 4客户程序对话框 图10 5地址信息输入对话框 10 2 2创建服务器端程序1 建立一个CAsyncSocket的子类在本例中 由于我们要实现的是一个回声程序 所以服务器程序应将收到的信息原封不动地发送给客户程序 因此 服务器程序的代码主要是重载CAsyncSocket类的接收和发送函数 建立一个CAsyncSocket类的子类CNewSocket 并重载CAsyncSocket类的OnReceive 和OnSend 函数 程序代码如下 CnewSocket OnReceive intnErrorCode m nLength receive m szBuffer sizeof m szBuffer 0 直接转发消息AsyncSelect FD WRITE CNewSocket OnSend intnErrorCode send m szBuffer m nLength 0 2 创建一个用于建立连接的类CMyServerSocket创建一个用于建立连接的类CMyServerSocket 并重载CAsyncSocket类的OnAccept 函数 在MyServerSocket h中声明如下变量 public CNewSocket m pSocket OnAccept 程序的代码如下 voidCMyServerSocket OnAccept intnErrorCode 侦听到连接请求 调用Accept函数CNewSocket pSocket newCNewSocket if Accept pSocket pSocket AsyncSelect FD READ m pSocket pSocket elsedeletepSocket 3 为对话框添加一个 侦听 按钮为对话框添加一个 侦听 按钮 并添加如下代码 在CSockServerDlg ccp中声明变量 public CMyServerSocketm srvrSocket OnListen 函数的代码如下 voidCCSockServerDlg OnListen if m srvrSocket m hSocket INVALID SOCKET BOOLbFlag m srvrSocket Create UserPort SOCK STREAM FD ACCEPT if bFlag AfxMessageBox SocketError M srvrSocket Close PostQuitMessage 0 Return 侦听 成功 等待连接请求if m srvrSocket Listen 1 intnErrorCode m srvrSocket GetLastError if nError WSAEWOULDBLOCK AfxMessageBox SocketError M srvrSocket Close PostQuitMessage 0 Return 10 3基于WinInetAPI的客户程序编写实例 10 3 1应用程序说明编程环境 VC 6 0 程序功能 给定Internet中一台服务器的域名 客户机首先与该域名的服务器建立连接 然后查询该服务器提供的功能 当然用户也可以随便输入一个域名 看是否在Internet中有该域名的服务器 10 3 2建立应用程序的用户操作界面编写该程序要求用户对VC的编程环境比较熟悉 在该程序中我们建立一个基于对话框的用户界面 1 使用AppWizard生成对话框程序框架 1 在VC启动后 从 文件 菜单中选择 新建 在 新建 对话框中选择使用MFC的应用程序生成向导建立一个应用程序 即选择 MFCAppWizard exe 然后在 工程 框内输入要新建工程的名称 在该例中我们取名为scan 再单击 确定 按钮 如图10 6所示 图10 6创建一个WinInet应用程序 2 在弹出的 MFCAppWizard step1 对话框中 选择基于对话框的 DialogBased 应用程序类型 然后单击 下一步 按钮 3 在弹出的 MFCAppWizard step2of4 对话框中 取消ActiveXControls控件的选中标记 并且注意不要选择 WindowsSockets 因为在该程序中我们不直接调用WindowsSockets函数 在对话框标题栏中输入 服务器功能扫描程序 再单击 下一步 按钮 4 在弹出的 MFCAppWizard step3of4 对话框中 选择MFC所使用的链接库 一般选择静态链接库 再单击 下一步 按钮 5 在 MFCAppWizard step4of4 对话框中 一般不需要改变MFCAppWiard自动生成的各种类名 直接按 完成 按钮即可 这时弹出一个新建的有关工程和信息的对话框 2 编程对话框 1 添加一个显示输出结果的编辑框 使用VC的资源工具给对话框添加一个编辑框 然后右击编辑框 在弹出的下拉菜单中选择 Properties 在弹出的编辑控件属性对话框中 将资源的ID标识符设置为IDC EDIT1 再给该编辑框增加一些其他类型属性 如在 Styles 选项卡中 选中图10 7所示的 Mutiline 等属性 图10 7属性对话框 2 添加一个输入网址的编辑框 用与上面类似的方法再增加另一个编辑框 编辑框的ID标志设为IDC EDIT2 然后在属性对话框中选择 Mutiline 和 Wantreturn 属性 3 添加查询命令按钮 在对话框上的恰当位置添加5个按钮 这5个按钮分别用来实现HTTP FTP Gopher FINGER和WHOIS查询功能 它们的ID标志分别设置为IDC BUTTON HTTP IDC BUTTON FTP IDC BUTTON GOPHER IDC BUTTON FINGER和IDC BUTTON WHOIS 在上面的操作完成以后 适当调整这些资源的布局 使用户界面比较美观 最后的结果如图10 8所示 图10 8应用程序对话框 10 3 3应用程序代码及其说明1 给编辑框添加变量为了完成程序的显示和输入功能 需要给编辑框添加对应的变量 为了简单起见 我们可以使用 ClassWizard 给编辑框添加变量 编辑框IDC EDIT1附加的变量为m out 编辑框IDC EDIT2附加的变量为m host 它们都应为CString类型的变量 2 HTTP协议查询代码给对话框类CScanDlg添加一个函数 用于实现HTTP查询 函数原形为 voidTryURL CStringURL 其实现代码为 voidCScanDlg TryURL CStringURL CInternetSessionsession m out 正在链接 URL r n UpdateData FALSE CInternetFile file NULL try file CInternetFile session OpenURL URL catch CInternetException pEx file NULL pEx Delete if file m out 已建立链接 r n CStringline for inti 0 iReadString line i m out line r n file Close deletefile else m out 本地址没有发现http主机 r n m out r n UpdateData FALSE 下面 我们分析一下这个函数是如何实现HTTP链接的 首先 根据我们在第9章所学的知识 需要建立一个Internet会话 这就要定义一个CInternetSession的对象 其构造函数的原形如下 CInternetSession LPCTSTRpstrAgent NULL DWORDdwContext 1 DWORDdwAccessType INTERNET OPEN TYPE PRECONFIG LPCTSTRpstrProxyName NULL LPCTSTRpstrProxyBypass NULL DWORDdwFlags 0 这个函数需要定义很多参数 但本程序都使用缺省值 即 号后的值 CInternetSession构造函数参数说明如下 LPCTSTRpstrAgent 应用程序名 如果为NULL 将填入在AppWizard中给定的程序名 DWORDdwContext 本操作的设备关联符定义 DWORDdwAccessType 访问类型 可以为以下参数之一 INTERNET OPEN TYPE PRECONFIG default INTERNET OPEN TYPE DIRECT或INTERNET OPEN TYPE PROXY LPCTSTRpstrProxyName 如访问类型为INTERNET OPEN TYPE PROXY 则给该参数赋予协议名称 LPCTSTRpstrProxyBypass 如访问类型为INTERNET OPEN TYPE PROXY 则该参数为不通过协议服务器而直接链接的一系列地址 DWORDdwFlags 可为以下参数 INTERNET FLAG DON T CACHE INTERNET FLAG ASYNC和INTERNET FLAG OFFLINE DWORDdwAccessType 值缺省时将使用系统注册簿定义的值 显然 程序允许使用者定义访问类型将比由程序内部直接定义要好 因此 要正确使用本程序 必须先在Windows系统中定义好网络访问类型 步骤如下 1 双击桌面上 我的电脑 图标 2 双击 控制面板 3 点击 Internet 4 在随后弹出的对话框中选择 连接 然后填写网络连接属性 如果是通过拨号上网的 选中 拨号设置 选择项 并填写相关属性 如果是局域网 LAN 上网的 则要进入局域网 LAN 设置代理服务器的地址和端口号 注意 如果所使用的计算机已经接入Internet 则不需要进行如上设置 本程序在构造CInternetSession对象时使用缺省值 因此 构造函数将不带任何参数 如下所示 CInternetSessionsession 在构造对象session后 如下两行程序进行输出提示 表示程序已开始工作 m out 正在链接 URL r n UpdateData FALSE 接下来使用session对象的成员函数OpenURL 来打开一个URL资源 该函数返回一个文件的指针 文件类型为以下四种之一 file 如果访问的是本地机器 函数返回一个CStudioFile类对象的指针ftp 如果访问的是FTP地址 函数返回一个CInternetFile类对象的指针gopher 如果访问的是Gopher地址 函数返回一个CGopherFile类对象的指针http 如果访问的是HTTP地址 函数返回一个CHttpFile类对象的指针 本程序用于访问远程机器 因此 函数不会返回一个file 类型的本地文件 而CGopherFile和CHttpFile均派生自CInternetFile 所以将该函数返回值赋给CInternetFile类的指针是安全的 当OpenURL 不能正常打开URL资源时 该函数将会抛出一个异常 exception 从而导致程序运行时错误 由于本程序用于探查未知的网址 该网址可能不提供相应服务或根本不存在 因此OpenURL 有时可能不会正常运行 为了避免程序异常终止 我们需使用try catch结构来处理异常 本段程序代码如下 CInternetFile file NULL try file CInternetFile session OpenURL URL catch CInternetException pEx file NULL 如果发生运行时错误 给file赋空值 程序将继续运行pEx Delete 通过以上代码 程序将使用用户指定的地址来试图打开HTTP网址 如果失败 返回的文件为空 程序将继续运行 尝试用其他协议打开网址 随后 无论网址是否成功打开 我们都应作相应输出以提示用户 如果成功 用一个for循环读出返回文件的头20句并输出 如果失败 也要给出相应的提示 程序代码如下 if file 判定链接是否成功 m out 已建立链接 r n CStringline for inti 0 iReadString line i m out line r n file Close deletefile else m out 本地址没有发现http主机 r n m out r n UpdateData FALSE 用于查询的函数编写完后 还要给按钮的单击事件增加代码 以便按钮按下时程序开始查询 给按钮IDC BUTTON HTTP增加BN CLICKED消息的代码如下 voidCScanDlg OnScanHttp constCStringhttp http UpdateData TRUE m out UpdateData FALSE TryURL http m host TryURL http www m host 这段程序代码中 UpdateData TRUE 的调用将给m host赋予用户定义的值 UpdateData FALSE 语句将清空输出编辑框变量m out的内容 接下来调用两次TryURL 例如 当用户输入时 程序将首先试一试 然后试一试 到此为止 就可以编译程序并执行了 在该例中 我们在执行时输入后 再单击 HTPP 按钮 在连接到Internet后 程序输出主页的头20行 如图10 9所示 图10 9服务器功能扫描程序对话框 3 FTP协议查询代码下面我们来探讨如何实现FTP链接 首先给对话框类增加一个实现链接的函数TryFTP 代码如下 voidCScanDlg TryFTP CStringhost CInternetSessionsession m out 正在链接FTP地址 host r n UpdateData FALSE CFtpConnection connection NULL try connection session GetFtpConnection host catch CInternetException pEx connection NULL pEx Delete if connection m out 已建立链接 r n CStringline connection GetCurrentDirectory line m out 缺省目录为 line r n connection Close deleteconnection else m out 本地址没有发现ftp主机 r n m out r n UpdateData FALSE 本函数和TryURL 很相似 不过它不使用OpenURL 来打开一个文件 而用GetFtpConnection 与FTP服务器建立链接 如果链接成功 将使用GetCurrentDirectory 来得到服务器的缺省目录 大多数FTP地址前有前缀ftp 一些早期的地址没有此前缀 现在 给IDC BUTTON FTP链接单击消息的处理函数 并编写如下程序代码 voidCScanDlg OnButtonFtp UpdateData TRUE m out UpdateData FALSE TryFTP m host TryFTP ftp m host 现在已完成了FTP链接的实现代码 重新编译程序并运行 键入 可以发现在处提供ftp服务 从程序开始查询到输出结果将有一段较长的时间 因为程序要等结果全部探查到后再显示 但实际上现在的商业Internet程序都是实时显示的 如果我们希望结果实时显示 就要使用异步套接口 AsynchronousSockets 或多线程编程 4 Gopher协议查询代码Gopher是一种基于文本的协议 它和WWW相似 可以通过点击链接点实现网络的链接和浏览 但是 Gopher是通过逐级文字菜单来组织链接和内容的 它不像WWW那样有丰富的多媒体页面 要实现Gopher查询 我们应给CScanDlg类增加另一个成员函数voidTryGopher CStringhost 如果查询成功 该函数将返回查询地址的第一个Gopher位置 locator 位置是Gopher协议的概念 任何Gopher客户程序必须先得到一个Gopher位置 然后才能进行相应的Gopher操作 TryGopher 函数如下 voidCScanDlg TryGopher CStringhost CInternetSessionsession m out 正在链接gopher地址 host r n UpdateData FALSE CGopherConnection connection NULL try connection session GetGopherConnection host catch CInternetException pEx connection NULL pEx Delete if connection m out 已建立链接 r n CStringline CGopherLocatorlocator connection CreateLocator NULL NULL GOPHER TYPE DIRECTORY line locator m out 第一个Gopher位置是 line r n connection Close deleteconnection else m out 本地址没有发现gopher主机 r n m out r n UpdateData FALSE 本函数和前两个函数大致相似 下面对主要语句进行一些说明 1 建立Gopher链接的语句是 connection session GetGopherConnection host 2 建立一个Gopher位置 locator 的语句是 CGopherLocatorlocator connection CreateLocator NULL NULL GOPHER TYPE DIRECTORY 注意 函数CreateLocator 有多个版本 这里使用的是含有三个参数的版本 其函数原形如下 CGopherLocatorCreateLocator LPCTSTRpstrDisplayString LPCTSTRpstrSelectorString DWORDdwGopherType 其中 参数pstrDisplayString指明要查询的服务器上的具体文件或目录名 如果它为NULL 则返回服务器缺省目录名 参数pstrSelectorString是发送给服务器的字符命令 以便检索某个项目 它可设为空 参数dwGopherType指明Gopher访问的类型 本例中定义为GOPHER TYPE DIRECTORY 指明要访问的是目录 它的其他可取值请参考VC 6 0文档 Gopher位置建立后 我们把它强制转换为CString类型 并把该位置显示出来 现在 给IDC BUTTON GOPHER链接单击消息的处理函数 并编写如下程序 voidCScanDlg OnButtonGopher UpdateData TRUE m out UpdateData FALSE TryGopher m host TryGopher gopher m host 重新编译程序 输入地址harvard edu 程序将会探查出它是一个Gopher地址 并显示出第一个Gopher位置 5 FINGER协议查询代码FINGER协议的作用是提供一个网址的具体情况 它是Internet上最古老的协议之一 在一个FINGER服务器上 可以查询它的某一个用户或整个网址的情况 当然 这对网络的安全是不利的 为了安全起见 许多网络服务器不提供FINGER服务 但当它接收到FINGER查询请求时 仍然会返回一些有用信息 在MFC和Win32API中 没有提供直接实现FINGER查询的函数 但可以使用变通的办法来实现它 所有的Internet链接都需要一个宿主名和端口号 所有的著名的服务都有其特定的端口号 例如 HTTP服务使用远程宿主机上的端口80 FTP服务使用端口21 Gopher服务使用端口70 对于FINGER服务来说 它使用端口79 FINGER是一种简单的协议 如果向远程宿主机的端口79发送字符串 FINGER服务器在端口79侦听到后 将会发送出一个FINGER回答 如果发送的字符串仅仅包含 r n 服务器通常会把本服务器上所有用户的列表及相关信息 如用户真实姓名等 作为应答返回 因此 如果我们不使用缺省的端口70 而是使用端口79来建立Gopher链接 就能发出FINGER查询 给CScanDlg类增加一个如下的成员函数voidTryFinger CStringhost voidCScanDlg TryFinger CStringhost CInternetSessionsession m out 正在链接finger地址 host r n UpdateData FALSE CGopherConnection connection NULL try connection session GetGopherConnection host NULL NULL 79 catch CInternetException pEx connection NULL pEx Delete if connection m out 已建立链接 r n CGopherLocatorlocator connection CreateLocator NULL NULL GOPHER TYPE TEXT FILE CGopherFile file NULL try file connection OpenFile locator catch CInternetException pEx file NULL pEx Delete if file CStringline for inti 0 iReadString line i m out line r n file Close deletefile else m out finger查询失败 r n connection Close deleteconnection else m out 本地址没有发现finger主机 r n m out r n UpdateData FALSE 本函数中 语句connection session GetGopherConnection host NULL NULL 79 用于建立FINGER链接 随后 创建一个文本文件类型的Gopher位置 用来操作服务器返回的信息 该语句为CGopherLocatorlocator connection CreateLocator NULL NULL GOPHER TYPE TEXT FILE 使用该Gopher位置打开文件并使用一个for循环来读出该文件的头20行 随后将它显示出来 现在 给IDC BUTTON FINGER按钮链接单击消息的处理函数 并编写如下代码 voidCScanDlg OnButtonFinger UpdateData TRUE m out UpdateData FALSE TryFinger m host 编译程序 输入地址whitehouse gov 程序将会返回该服务器的E mail地址 从返回的信息可知 出于安全考虑 该服务器的其他FINGER服务已被取消了 如果你输入的网址没有提供FINGER服务 程序将有较长一段时间没有反应 最后弹出一个消息框 通知用户链接出现超时错误 6 WHOIS协议查询代码还有一个协议也能提供网址的相关信息 它也是一种古老的协议 MFC并不直接支持它 这就是WHOIS协议 在整个Internet上 只有少数服务器提供WHOIS服务 WHOIS服务建立了Internet上的域名数据库 如果对某个域名进行WHOIS查询 服务器将会返回拥有该域的机构或个人的实际姓名 地址 电话号码等信息 国际上的域名注册机构拥有WHOIS服务器 例如 域名结尾为 com的域都在一个称为InterNIC的机构中注册 该机构拥有一个WHOIS服务器 称为 WHOIS协议和FINGER协议一样 是一种简单的协议 它使用端口43 如果向WHOIS服务器的端口43发送包含域名的字符串 则WHOIS服务器将会返回该域拥有者的信息 给CScanDlg类增加一个如下的成员函数voidTryWhois CStringhost voidCScanDlg TryWhois CStringhost CInternetSessionsession m out 正在链接Whois地址 host r n UpdateData FALSE CGopherConnection connection NULL try connection session GetGopherConnection NULL NULL 43 catch CInternetException pEx connection NULL pEx Delete if connection m out 已建立链接 r n CGopherLocatorlocator connection CreateLocator NULL host GOPHER TYPE TEXT FILE CGopherFile file NULL try file connection OpenFile locator catch CInternetException pEx file NULL pEx Delete if file CStringline for inti 0 iReadString line i m out line r n file Close deletefile else m out Whois查询失败 r n connection Close deleteconnection else m out Whois查询失败 r n m out r n UpdateData FALSE 在本函数中 语句connection session GetGopherConnection NULL NULL 43 使程序链接到了WHOIS服务器 随后 建立一个Gopher位置来查询用户输入的域 CGopherLocatorlocator connection CreateLoca