搜索
编程论坛 → 数据库技术 → 『 VFP论坛 』 → 接收到 图片转为base64字符串后，如何在VFP中重新显示该图片呢？
标题：接收到 图片转为base64字符串后，如何在VFP中重新显示该图片呢？
只看楼主
lnfx2019
Rank: 2
等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20
结帖率：40%
楼主
 已结贴√  问题点数：20 回复次数：16 
接收到 图片转为base64字符串后，如何在VFP中重新显示该图片呢？
各位高手：
附件信息是一张图片然后，通过接口获取到该 附件byte的BASE64字符串 ，如何再将该字符串数据转为图片呢？

请大家指教！！
搜索更多相关主题的帖子: 显示　接收　图片　字符串　重新　
2022-08-24 19:13
lnfx2019
Rank: 2
等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20
第 2 楼
 得分:0 
回复 楼主 lnfx2019
图片转为base64字符串.txt (24.52 KB)
2022-08-24 19:19
lnfx2019
Rank: 2
等　级：论坛游民
帖　子：37
专家分：14
注　册：2019-8-20
第 3 楼
 得分:0 
以下是引用lnfx2019在2022-8-24 19:19:22的发言：

上面分别是原图和转为 base64字符串 ，请教如何将该字串转为图片！！
2022-08-24 19:20
cssnet
Rank: 4
等　级：业余侠客
威　望：4
帖　子：317
专家分：203
注　册：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
Rank: 4
等　级：业余侠客
威　望：4
帖　子：317
专家分：203
注　册：2013-10-4
第 5 楼
 得分:0 
顺便说一句：
我没检查源图片是否JPG，只是看你贴图为JPG，就随手加了.jpg的扩展名。

再顺便说一句：
都2022年了，前些天看到有人竟还坚持用VFP6，心道：VFP9早都嫌太过落后太过古董了，居然还在用VFP6？VFP6的strconv()缺了一大块必要功能，就比方说，这个Base64互转；难不成，这都2022年了，还要臣妾手动去写Base64编码/解码？
——毛病！真是的。
2022-08-25 07:07
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：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
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：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
Rank: 2
等　级：论坛游民
帖　子：37
专家分：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
Rank: 2
等　级：论坛游民
帖　子：37
专家分：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
Rank: 2
等　级：论坛游民
帖　子：37
专家分：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



参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-509861-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.150776 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved