多媒体与网络【荐】.pptVIP

在键入后立即发送文本。 udpPeerB.SendData txtSend.Text End Sub Private Sub udpPeerB_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String udpPeerB.GetData strData txtOutput.Text = strData End Sub [运行结果] 按 F5 键运行工程，在两个窗体的 txtSend TextBox 中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox 中。  表11-4 State 的设置值 常数 值 描述 icNone 0 无状态可报告。 icHostResolvingHost 1 该控件正在查询所指定的主机的 IP 地址。 icHostResolved 2 该控件已成功地找到所指定的主机的 IP 地址。 icConnecting 3 该控件正在与主机连接。 icConnected 4 该控件已与主机连接成功。 icRequesting 5 该控件正在向主机发送请求。 icRequestSent 6 该控件发送请求已成功。 icReceivingResponse 7 该控件正在接收主机的响应。 icResponseReceived 8 该控件已成功地接收到主机的响应。 icDisconnecting 9 该控件正在解除与主机的连接。 icDisconnected 10 该控件已成功地与主机解除了连接。 icError 11 与主机通讯时出现了错误。 icResponseCompleted 12 该请求已经完成，并且所有数据均已接收到。 使用inet控件的一般思路：设置URL属性，指定登录的服务器；如果登录的是FTP服务器，需要指定用户名和密码，可以匿名登录的FTP服务器无需设置其UserName和Password属性。然后通过Execute方法传递get命令参数下载文件；传递send命令参数上传文件. 11.2.2 利用控件上传下载文件 [例11-3] [分析] 要正确运行本例，需要在本地建立FTP服务器，在FTP服务器中存放有A6.MP3文件或其它任意文件。此外，也可以指定任意一个实际存在的FTP服务器，输入用户名和密码进行下载和上传文件。 [建立工程] 添加三个文本框，分别命名为 Dlurl、Dlname、DLpwd，用于输入服务器IP地址、用户名和密码。添加三个按钮，分别为下载文件、上传文件和保存帐号设置，并重新命名为：cmd_get、 cmd_send和cmd_save。界面布局如图11-4所示。 cmd_get cmd_send DLurl DLname DLpwd lbl_state cmd_save 图11-4 界面布局 [程序代码] 1 Dim Txt_ErrNum As Integer 2 Dim state_info As String 3 4 Private Sub Form_Load() 5 Txt_ErrNum = 0 6 state_info = 7 lbl_state.Caption = 就绪 8 9 configFTP 10 End Sub 11 12 Sub configFTP() 13 Inet1.URL = DLurl.Text 14 Inet1.UserName = DLname.Text 14 Inet1.Password = DLpwd.Text 15 Inet1.Protocol = icFTP 16 Inet1.RequestTimeout = 60 17 End Sub 18 19 Sub Down_Upload_file(flag As Integer) 20 On Error Resume Next 21 configFTP 22 23 If flag = 0 Then 24 Inet1.Execute , get /A6.MP3 C:\5.mp3 25 Else 26 Inet1.Execute , send C:\5.mp3 /A61.MP3 27 End If 28 29 If Err.Number 0 Then 30 MsgBox Err.Description 31 GoTo endjump 32 End If 33 34 While Val(Txt_ErrNum) 12 等待下载结束 12 35