13518219792
一、二进制文件读写
创新互联云计算的互联网服务提供商,拥有超过13年的服务器租用、四川乐山服务器托管、云服务器、网站空间、网站系统开发经验，已先后获得国家工业和信息化部颁发的互联网数据中心业务许可证。专业提供云主机、网站空间、域名申请、VPS主机、云服务器、香港云服务器、免备案服务器等。
1、写二进制数据到指定目录
==将barray字节数组中的数据创建在strFilename目录文件下，存储格式为二进制，False表示不添加，直接覆盖创建。
2、从指定路径下读取二进制数据到数组
==将目录中的文件读取到barry字节数组中，即读取二进制文件。
二、字符文件的读写
1、 将txtFile控件中的字符写到srtFileName指定目录,以创建方式。
2、从srtFileName目录中的文件读取到txtFile控件
用PDF417动态库可生成2维条码
阅读直接用2维条码扫描枪即可读出数据，然后还原数据
有个二维条码演示应用小软件，可参考
可以使用专门制作二维码的软件进行设置V6.5.3的也行，就不用写什么代码了，简单又省事。
大小的话直接在在图形属性基本中就可以调整二维码的外观。
Dim curSqlstr As String = "INSERT INTO Picture(picture_id, picture_area)" _
"VALUES('" (i + 1).ToString() "','@picture_area ')"
你看这句中的,'@picture_area ')",多个单引号了,被当成VARCHAR处理了.去了单引号才是变量.
VB.NET打开二进制文件用fileopen完成，打开二进制文件的形式为：openmode.binary
读取二进制文件用的是fileget方法，写入二进制文件用的是fileput方法。
应用示例：将一批随机数保存在一个dat文件中，然后再将其提取到文本框中。
二进制文件的读写一批随机数的存取，程序为：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, i, fn As Integer
Dim s As String = ""
fn = FreeFile()
FileOpen(fn, "d:\data.dat", OpenMode.Binary)
For i = 1 To 8
x = Int(Rnd() * 100)
s = s + Str(x)
FilePut(fn, x)
Next
FileClose(fn)
TextBox1.Text = s
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x, fn As Integer
Dim s As String = ""
fn = FreeFile()
FileOpen(fn, "d:\data.dat", OpenMode.Binary)
Do While Not EOF(fn)
FileGet(fn, x)
s = s + Str(x) + " "
Loop
FileClose(fn)
TextBox1.Text = s
End Sub
