标题：怎么样把文件base64加密后存储

1楼

aidimeng 发表于：2024/9/9 14:49:00

Dim data() As Byte = System.IO.File.ReadAllBytes("C:\Users\bqg\Desktop\2023年第34期.pdf") '把文件字节流加载进来,

Dim s As String = Convert.ToBase64String(data)

Output.Show(s)

这里报错

Dim b() As Byte = Convert.ToBase64String(data)

System.IO.File.WriteAllBytes("D:\123.pdf", b) ‘加密存储’

Dim b() As Byte = Convert.FromBase64String(s) ‘解码存储’

System.IO.File.WriteAllBytes("D:\123.pdf", b)

2楼

有点蓝 发表于：2024/9/9 15:10:00

Dim data() As Byte = System.IO.File.ReadAllBytes("C:\Users\bqg\Desktop\2023年第34期.pdf")

Dim s As String = Convert.ToBase64String(data)

ileSys.WriteAllText("D:\123.pdf", s)

[此贴子已经被作者于2024/9/9 15:10:06编辑过]

3楼

有点蓝 发表于：2024/9/9 15:11:00

4楼

aidimeng 发表于：2024/9/9 15:39:00

1、能否使用句斌打开pdf 或图片啊

“”e.form.controls("panel1").basecontrol.Handle

2、System.IO.File.WriteAllText("D:\123.pdf", s)，没有报错，只是生成的文件打不开图片点击可在新窗口打开查看

[此贴子已经被作者于2024/9/9 15:44:57编辑过]

5楼

有点蓝 发表于：2024/9/9 16:42:00

1、我也不懂

2、这种方式保存的文件肯定是无法打开的。都加密了，还怎么打开。

6楼

aidimeng 发表于：2024/9/10 9:07:00

如果把 PDF或者图片通过base64 转码后存在表里，为什么存后 fox 变卡了，半天没反应，这是怎么回事啊

7楼

有点蓝 发表于：2024/9/10 9:42:00

数据太多了，比如一个文件有2M，想想一个单元格存储2M数据，不卡才怪。

8楼

aidimeng 发表于：2024/9/10 10:18:00

我在sql中设置好 Image 后还需要对转码后的字段做调整吗？还是直接就可以存到 Image 列中

9楼

有点蓝 发表于：2024/9/10 10:31:00

请使用Foxtable提供的方式读写，不需要做什么转码：

此主题相关图片如下：1.png

共9 条记录, 每页显示 10 条, 页签: [1]