接收到图片转为base64字符串后，如何在VFP中重新显示该图片呢？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 接收到图片转为base64字符串后，如何在VFP中重新显示该图片呢？

标题：接收到图片转为base64字符串后，如何在VFP中重新显示该图片呢？

取消只看楼主

lnfx2019

等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20
结帖率：40%

楼主

已结贴√ 问题点数：20 回复次数：8

接收到图片转为base64字符串后，如何在VFP中重新显示该图片呢？

各位高手：
附件信息是一张图片然后，通过接口获取到该附件byte的BASE64字符串，如何再将该字符串数据转为图片呢？

请大家指教！！

搜索更多相关主题的帖子: 显示　接收　图片　字符串　重新　

2022-08-24 19:13

lnfx2019

等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20

第 2 楼

得分:0

回复楼主 lnfx2019

图片转为base64字符串.txt (24.52 KB)

2022-08-24 19:19

lnfx2019

等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20

第 3 楼

得分:0

以下是引用lnfx2019在2022-8-24 19:19:22的发言：

上面分别是原图和转为 base64字符串，请教如何将该字串转为图片！！

2022-08-24 19:20

lnfx2019

等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20

第 4 楼

得分:0

以下是引用cssnet在2022-8-25 06:53:42的发言：

lcText = FILETOSTR("图片转为base64字符串.txt")
lcJpg = STRCONV(lcText, 14)
STRTOFILE(lcJpg, "base64字符串转为图片.jpg")

或者，装逼一点，决计不让观众看懂，即便一行灭了它：
STRTOFILE(STRCONV(FILETOSTR("图片转为base64字符串.txt"), 14), "base64字符串转为图片.jpg")

实测好用，特别最后一行，装到了！！！

2022-08-25 14:32

lnfx2019

等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20

第 5 楼

得分:0

以下是引用schtg在2022-8-25 07:46:50的发言：

请试一试，可否？
cstr = FILETOSTR(SYS(5)+CURDIR()+[图片转为base64字符串.txt])
= STRTOFILE(STRCONV(cstr,14),SYS(5)+CURDIR()+[图片.JPG])

实测好用，与楼上异曲同工。

2022-08-25 14:33

lnfx2019

等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20

第 6 楼

得分:0

以下是引用吹水佬在2022-8-25 08:05:01的发言：

_screen.AddObject("image1","image")
_screen.image1.Visible = 1
_screen.image1.PictureVal = STRCONV(FILETOSTR("图片转为base64字符串.txt"),14)
MESSAGEBOX("关闭")
_screen.RemoveObject("image1")

吹版的我还在调试，不知什么原因，image控件没能直接显示该图片呢

2022-08-25 14:41

lnfx2019

等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20

第 7 楼

得分:0

把吹版的和楼上的综合了下，这个可以显示了！！！
_screen.AddObject("image1","image")
_screen.image1.Visible = 1
cstr = FILETOSTR(SYS(5)+CURDIR()+[图片转为base64字符串.txt])
STRTOFILE(STRCONV(cstr,14),SYS(5)+CURDIR()+[图片.JPG])
_screen.image1.Picture = SYS(5)+CURDIR()+[图片.JPG]
MESSAGEBOX("关闭")
_screen.RemoveObject("image1")

2022-08-25 15:14

lnfx2019

等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20

第 8 楼

得分:0

吹版的这行代码：
_screen.image1.PictureVal = STRCONV(FILETOSTR("图片转为base64字符串.txt"),14)

PictureVal 这个应该需要的是二进制图片信息，这块是不是涉及把 “图片转为base64字符串.txt ” 由base64 再转回二进制就可以了呢。
问题来了：如何将 base64字符串转为二进制？

2022-08-25 15:54

lnfx2019

等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20

第 9 楼

得分:0

以下是引用吹水佬在2022-8-25 16:18:21的发言：

VFP的“二进制”好多时是指数据在内存的存在形式（内码）
STRCONV(base64串,14)已经是转为实际的图片内码数据

感谢吹版的指导，学到了！

2022-08-25 17:01