Imports System.IO.Ports Public Class Form1 Dim file_ending() As Byte = System.Text.Encoding.Default.GetBytes("file_send_over") '将传输结束标志以二进制存放在file_ending 中 Dim file_name_ending() As Byte = System.Text.Encoding.Default.GetBytes("/") '将文件名结束标志存放在file_name_ending 中 Dim file_rec_byt(10485760) As Byte '设置缓存大小为10M Dim file_name_byt(50) As Byte '设置文件名缓存大小为50 字节 Dim file_name_count As UInt16 = 0 '文件名计数 Dim file_rec_count As UInt32 = 0 '文件内容计数 Dim file_ok As Boolean = False '文件传输完成标志 Dim flag As Boolean = True '文件名传输未完成标志 Dim st As Boolean = True '显示“正在接收文件”用标志 Dim file_name_sa(2000) As String Dim file_name_sa_cou As Integer = 0 Public Delegate Sub data_rec() Public Sub wait(ByVal t) '延迟，单位 ms Application.DoEvents() Threading.Thread.Sleep(t) End Sub Public Sub write_file() '存储文件 Dim path As String path = Now path = Replace(path, "/", "‐") path = Replace(path, ":", "‐") Dim pa As String = System.Text.Encoding.Default.GetString(file_name_byt, 0, file_name_count) 'System.Text.Encoding.Default.GetString(file_name_byt, 0, file_name_count) Dim pa_t As Integer pa_t = InStr(pa, ".") pa = Mid(pa, pa_t, Len(pa) + 1 ‐ pa_t) Dim file_path As String = TextBox2.Text + "\" + path + pa 'System.Text.Encoding.Default.GetString(file_name_byt, pa, file_name_count) 'System.Text.Encoding.Default.GetString(file_name_byt, 0, file_name_count) '获取保存文件路径 file_name_sa(file_name_sa_cou) = file_path '保存路径 file_name_sa_cou = file_name_sa_cou + 1 Dim pll As String = file_name_sa_cou Dim filesw As New System.IO.FileStream(file_path, IO.FileMode.OpenOrCreate) '新建或者打开文件 filesw.Write(file_rec_byt, 0, file_rec_count ‐ 14) '写文件内容 filesw.Close() '关闭文件流 TextBox3.Text = TextBox3.Text + Now + ...
