面向对象程序设计实用第8章.ppt

本章学习目标 应知： 网络上常见的几种协议的用途 TCP/UDP协议的通信过程 应会： 使用Internet Transfer控件 使用Winsock控件 编写点对点模型的网络通信程序 编写基于TCP协议的网络服务程序 项目1 使用Internet Transfer控件下载文件 任务1 添加Internet Transfer控件 单击开发环境菜单“工程”“部件”，在“部件”对话框中选上“Microsoft Internet Transfer Control 6.0” 双击工具箱中的Internet Transfer控件的图标 任务2 下载互联网上的网页 双击窗体Form1上的“开始下载”按钮，切换到代码编辑窗口，在Command1_Click()事件过程里输入如下的代码： Private Sub Command1_Click() 下载网页的过程 Dim s As String 该变量储存返回的网页的内容 s = Inet1.OpenURL(Text1.Text) 使用OpenURL方法下载Text1里面的网址 对应的互联网资源 Text2.Text = s 将下载所得的内容在Text2中显示 End Sub 任务3 下载互联网上的图片文件 在Form1上添加一个图片框控件Picture1 编写代码 Private Sub Command1_Click() 下载图片的过程 Dim db() As Byte 用字节数组储存返回的二进制的内容 db() = Inet1.OpenURL(Text1.Text, icByteArray) 使用OpenURL方法下载Text1网址 对应的互联网资源,并用icByteArray 参数指定下载的内容是二进制的。 下面代码的作用是将下载回来的数据 db() 写入到文件 Open c:\down.gif For Binary As #1 以二进制方式打开c:\down.gif文件 Put #1, , db() 将db()的内容写入到文件 Close #1 写入完毕后关闭文件 用LoadPicture方法将创建的图片文件加载到Picture1 Set Picture1.Picture = LoadPicture(c:\down.gif) End Sub 项目2 用Winsock控件制作局域网聊天程序 任务１ 认识互联网的常用协议 UDP的通讯过程 任务2 界面设计 单击开发环境的菜单“工程”“部件”，在添加部件的对话框里选中“Microsoft Winsock Control 6.0” 双击工具箱中的Winsock控件图标 任务3 编写发送和接收信息的代码 Private Sub Form_Load() 窗体启动事件过程 sock1.Bind 3399 用Bind方法绑定本地端口3399 End Sub ? Private Sub sock1_DataArrival(ByVal bytesTotal As Long) 接收数据的事件过程 当有数据发送过来时，winsock控件就会触发 DataArraival 事件 在这个事件里面使用 GetData 方法就可以获取得发送过来的数据了。 Dim s As String 使用GetData方法接收数据 sock1.GetData s, vbString 将收到的文本信息累加到Text2中原来的文本并显示出来 Text2.Text = Text2.Text s vbCrLf End Sub ? Private Sub Command1_Click() 发送信息的过程 sock1.RemoteHost = Text1.Text 指定对方机器的IP地址或名称 sock1.RemotePort = 3399 指定对方机器的端口， 这个端口要跟对方绑定的端口号一致 sock1.SendData Text3.Text