多媒体与网络.pptVIP

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 DoEvents 36 If Val(Txt_ErrNum) = 11 Then 下载过程出现错误 37 GoTo endjump 38 End If 39 Wend 40 41 Inet1.Execute , close 关闭连接 42 Inet1.Execute , quit 退出服务器 43 44 endjump: 45 End Sub 46 47 Private Sub cmd_get_Click() 48 Down_Upload_file 0 49 End Sub 50 51 Private Sub cmd_send_Click() 52 Down_Upload_file 1 53 End Sub 54 55 Private Sub cmd_save_Click() 56 configFTP 57 End Sub 58 59 Private Sub Inet1_StateChanged(ByVal State As Integer) 60 Txt_ErrNum = State 61 62 Select Case State 63 Case 0: 64 state_info = 空状态！ 65 Case 1: 66 state_info = 正在查找服务器...！ 67 Case 2: 70 state_info = 找到服务器...！ 71 Case 3: 72 state_info = 准备连接服务器！ 73 Case 4: 74 state_info = 与服务器连接建立！ 75 Case 5: 76