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)

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

以上代码比较简单，请自行研究。

————————————————

原文链接：https://blog.csdn.net/UruseiBest/article/details/85014998

栏目列表

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