vb.net 教程 3-9 窗体编程 串口组件4 使用SerialPort传输文件

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

上一节(vb.net 教程 3-9 窗体编程 串口组件3 SerialPort传输的简单范例3)中学习了如何发送字节数组，那么可以使用SerialPort的Write()和Read()方法来发送和接收一个文件。下面的代码将给出具体的示例。

窗口设计试图：

窗体载入的时候打开COM1：

    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SerialPort1.PortName = "COM1"
 
        SerialPort1.Open()
    End Sub
读取文件写入到字节数组，然后进行发送：

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
 
        Dim fs As New FileStream("D:\app.png", FileMode.Open, FileAccess.Read)
        Dim filelen As Integer = fs.Length
 
        Dim br As New BinaryReader(fs)
        Dim writeByte() As Byte
        For i As Integer = 0 To filelen - 1 Step 1024
            writeByte = br.ReadBytes(1024)
            SerialPort1.Write(writeByte, 0, writeByte.Length)
        Next
 
 
        br.Close()
        fs.Close()
 
    End Sub
 读取数据，再写入到新文件：

    Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        Dim fs As New FileStream("d:\appnew.png", FileMode.Append, FileAccess.Write)
        Dim bw As New BinaryWriter(fs)
 
 
        Dim readByte() As Byte
        Dim readLen As Integer = SerialPort1.BytesToRead
        ReDim readByte(readLen - 1)
 
        SerialPort1.Read(readByte, 0, readLen)
        bw.Write(readByte, 0, readLen)
 
        bw.Close()
        fs.Close()
 
    End Sub
以上代码比较简单，请自vb.net教程行研究。
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。