以下是引用吹水佬在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")
_screen.AddObject("image1","image")
_screen.image1.Visible = 1
_screen.image1.PictureVal = STRCONV(FILETOSTR("图片转为base64字符串.txt"),14)
MESSAGEBOX("关闭")
_screen.RemoveObject("image1")
把吹版的和楼上的综合了下,这个可以显示了!!!
_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")