第十八章 用Visual Basic开发 多媒体应用程序18.1 Visual Basic的多媒体控件 一、多媒体控件的引入 在“工程”菜单中单击“部件”菜单项，或用鼠 标右键单击工具箱面板并从弹出的菜单中单击“ 部件”菜单项添加它们。然后从“部件”对话框中 选中Microsoft Multimedia Control 6.0，将它添 加到工具箱中。 二、 多媒体控件简介 n 多媒体控件管理媒体控制接口(MCI)设备上多媒 体文件的记录与回放。 n 这种控件就是一组按钮，它被用来向诸如声卡 、MIDI序列发生器、CD-ROM驱动器、视频CD 播放器和视频磁带记录器及播放器等设备发出 MCI命令。 n MCI控件还支持Windows(*.avi)视频文件的回放 。多媒体控件的常用命令、常用属性及事件 命 令描 述Back 将设备的轨道后退一步Close 关闭一个设备Eject 从光驱中退出光盘Next 到下一个轨道的起点Open 打开一个设备Pause 暂停播放或暂停后重新开始Play 播放一个文件Record 对一个设备进 行记录Save储存一份打开的文件Seek寻找位置(位置由To属性给出)Sound播音Step前进一步Stop停止播放或记录Prev回到当前轨迹的起点。在使用Prev命令三秒钟之内再次使用，会 回到前一个轨道的起点。属 性功 能AutoEnable根据设备性能自动启用或禁用多媒体控件界面按钮，它有True 、False两个属性值，为True能自动播放媒体文件 Command向媒体设备发 出各种命令DeviceType设置将要使用的多媒体设备类 型Frames确定来自一个设备的帧数FileName确定一些多媒体设备使用的文件名From确定下一条Play或Record命令的起点位置HwndDisplay设置一个多媒体设备使用的窗口Position取回设备播放或记录的当前位置Start取回一条Play或Record命令的当前位置TimeFormat设置各种媒体设备使用的时间格式To确定下一条Play或Record命令的终点位置Tracks用于显示总的轨迹数量UpdateInterval指定StatusUpdate事件之间间隔的毫秒数Track在播放CD格式文件中，指定 Track和Track Position属性返回信息 的轨迹事件 StatusUpdate: 播放时每隔UpdateInterval触发 PlayClick,OpenClick,StopClick第十九章 ActiveX 部 件uActiveX部件是可以重复使用的编程代码和数据 u由用ActiveX技术创建的一个或多个对象所组成 。 u在VB中，ActiveX部件有三类：ActiveX控件、 ActiveX文档(DLL/EXE)和ActiveX代码库(DLL/ EXE) u创建ActiveX部件可以采用多种编程工具，如 VC+、VB、BCB、JAVA等 u这些创建的ActiveX部件也可以在VB、VC+、 BCB等开发工具中使用 Vb的三种ActiveX部件uActiveX控件是一种可视的ActiveX部件，是一 种可以插入到Web页或任何ActiveX控件容器中 的交互对象。 uActiveX文档的引入允许Web浏览器显示其他格 式的资料，例如PDF格式、Microsoft Office文 档、Visio图形和图表等，创建交互式的 Internet应用程序。 uActiveX DLL和ActiveX EXE是代码部件，提供 了对象库。在程序设计时，通过引用其他应用 程序对象库，可以扩展应用程序的功能。 19.1 ActiveX控件的制作 建立一个ActiveX控件工程，然后在UserControl对象上设计ActiveX控件的界面。 (2) 编写程序代码。(3) 控件调试。(4) 生成且发布OCX控件。例:建立钟表控件19.2 使用其他应用程序中的对象 很多应用程序都向外部提供了规模庞大的对象 库，这些对象可以在各应用程序之间共享 Vb程序可以通过ActiveX部件技术访问这些对象 库中的对象及其属性、方法和事件，从而设计 出功能强大的程序。 使用外部应用程序中的对象的步骤如下： (1) 设置对象库的引用。创建新的对象，或者从其他应用程序中获得已存 在的对象。 (2) 使用这些对象的属性、方法和事件来实现某种 功能。 (3) 释放这些外部变量。 例：引用word对象显示艺术字第二十章 Visual Basic网络编程一、Windows Socket网络通信简介 TCP/IP协议 u是一组完整的网络协议，有效地实现了不同网 络及计算机间的互操作 u包括TCP、UDP、IP、ICMP、ARP/RARP等协 议，它们共同作用，完成TCP/IP网络环境下的 数据传输、文件访问、资源共享 uTCP（传输控制协议）是个面向连接的协议 ，可以将它同电话系统相比，在开始数据传输 之前，用户必须先建立与远程计算机的连接， 连接后两台计算机就可彼此进行数据传输。 uUDP（用户数据报协议）是一个无连接协议， 通信主机之间的数据传输类似于传递邮件,通信 的两台计算机之间没有明确的连接。2. 地址网络通信中通信双方分别位于不同的机器上，这时要用 “地址”来标识通信的两台主机，在TCP/IP协议中采用32 位二进制数表示的IP地址，如192.168.0.1。3. 端口端口用于表示通信的进程。应用程序通过系统调用与 某端口建立连接后，网络传输层传给该端口的数据都被 相应进程所接收，相应进程发给传输层的数据都通过该 端口输出。每个端口都拥有一个称为端口号的整数型标 识符，用于区别不同端口 .其中11023范围内的端口号 通常保留给系统进程使用，用户应用程序中可以使用的 端口号范围是102465535 .如ie的端口号为80，ftp的端口号为21二、Windows Sockets编程原理 1. Socket（套接字） uSocket（套接字）是网络通信的基本构件。它 的用途是将基础网络抽象出来，这样，你不必 对网络协议非常了解，应用程序可在任何支持 套接字的网络上运行。 uWindows Sockets规范定义了程序员能够使用 ，并且网络软件供应商能够实现的一套库函数 调用和相关语法。 uWinsock就是Windows应用程序与TCP/IP之间 的通信界面，这个界面提供了访问TCP和UDP 网络服务的方便途径 应用程序1应用程序2网络应用编程界面(Socket)TCP/IP核心协议物理介质图20.1.1 TCP/IP协议簇核心与应用程序关系图三、采用Winsock控件实现网络通信 1.Winsock控件 u 加入到工具箱：部件-microsoft winsock control 6.0属 性数据类类型用 途BytesReceived Long返回本次连连接中接收到的字节节数LocalHostNameString本地主机名LocalIPString本地主机的IP地址LocalPortLong设设置/返回这这次连连接所用的本地主机端口号ProtocolInteger设设置/返回协议协议 ：SckTCPProtocol(0) TCP协议协议 SckUDPProtocol(1)UDP协议协议RemoteHostString设设置/返回跟本机连连接的远远程计计算机名RemoteIPString设设置/返回本机连连接的远远程计计算机IP地址RemotePortLong设设置/返回跟本机连连接的远远程计计算机的端口号Socket HandleLong套接字的句柄StateInteger本次连连接的状态态，用枚举类举类 型来表示。uWinsock控件的属性方 法用 途AcceptSub Accept(requestID As Long) 响应其他计算机的连接请求CloseSub Close( ) 关闭当前连接 ConnectSub Connect(RemoteHost,RemotePort) 连接到一台远程计算机GetdataSub GetData(data,type,maxLen 从远程计算机接收数据PeekDataSub PeekData(data,type,maxLen) 从接收缓冲区中取数据但不 把缓冲区中的数据删除ListenSub Listen( ) 侦听是否有连接请求SendDataSub SendData(data) 发送数据到远程计算机uWinsock控件的方法事 件用 途Close调用Close方法 时触发 ConnectionReque st接收到连接请求 时触发 Connect连接完成后触发DataArrival数据到达时触发SendComplete发送数据完成后 触发 SendProgress发送数据量变化 时触发 Error出错时 触发uWinsock控件的事件四、采用TCP协议的Winsock通信 服务器 (1) 打开一通信通道并告知本地主机，它愿意在某一约 定的端口上接收客户请求。 (2) 等待客户请求到达该端口。 (3) 接收到请求服务，处理该请求并发送应答信号。 (4) 继续等待一客户请求。 (5) 关闭服务器。 客户 (1) 打开一通信通道，并连接到服务器所在主机的约定 端口上。 (2) 向服务器发服务请求，等待并接收应答 (3)继续提出请求 (4) 请求结束后关闭通信通道并终止。