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

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

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

我的收件箱(0)

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

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

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

取消只看楼主加入收藏

lnfx2019

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

楼主

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

接收到图片转为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

lnfx2019

等　级：论坛游民
帖　子：38
专家分：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

等　级：论坛游民
帖　子：38
专家分：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

等　级：论坛游民
帖　子：38
专家分：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

等　级：论坛游民
帖　子：38
专家分：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

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

第 8 楼

得分:0

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

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

2022-08-25 15:54