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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

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

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1756 人关注过本帖， 1 人收藏

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

只看楼主加入收藏

lnfx2019

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

楼主

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

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

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

请大家指教！！

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

2022-08-24 19:13

lnfx2019

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

第 2 楼

得分:0

回复楼主 lnfx2019

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

图片附件: 游客没有浏览图片的权限，请登录或注册

2022-08-24 19:19

lnfx2019

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

第 3 楼

得分:0

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

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

2022-08-24 19:20

cssnet

等　级：职业侠客
威　望：5
帖　子：351
专家分：335
注　册：2013-10-4

第 4 楼

得分:5

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

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

2022-08-25 06:53

cssnet

等　级：职业侠客
威　望：5
帖　子：351
专家分：335
注　册：2013-10-4

第 5 楼

得分:0

顺便说一句：
我没检查源图片是否JPG，只是看你贴图为JPG，就随手加了.jpg的扩展名。

再顺便说一句：
都2022年了，前些天看到有人竟还坚持用VFP6，心道：VFP9早都嫌太过落后太过古董了，居然还在用VFP6？VFP6的strconv()缺了一大块必要功能，就比方说，这个Base64互转；难不成，这都2022年了，还要臣妾手动去写Base64编码/解码？
——毛病！真是的。

2022-08-25 07:07

schtg

来　自：Usa
等　级：贵宾
威　望：67
帖　子：1744
专家分：3333
注　册：2012-2-29

第 6 楼

得分:5

回复 3楼 lnfx2019

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

2022-08-25 07:46

吹水佬

等　级：版主
威　望：451
帖　子：10608
专家分：43190
注　册：2014-5-20

第 7 楼

得分:10

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

2022-08-25 08:05

lnfx2019

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

第 8 楼

得分: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

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

第 9 楼

得分: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

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

第 10 楼

得分: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

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