码迷,mamicode.com
首页 > 其他好文 > 详细

Tcl/tk用base64编码替换GIF/PNG图片

时间:2016-04-24 18:29:56      阅读:482      评论:0      收藏:0      [点我收藏+]

标签:

在实现Tcl程序,遇到类似需要给菜单栏添加图标时,如果直接引用图标,这些图标需要存档在相应文件夹下。如果将这些图片以base64编码,再引用,就可以避免这个问题。
注意:base64需要安装tcllib。

1 package require base64
2 set fileID [open "mypic.gif" RDONLY]
3 fconfigure $fileID -translation binary
4 set rawData [read $fileID]
5 close $fileID
6 set encodedData [base64::encode $rawData]
7 set myPic [image create photo -data $encodedData]
8 label .l1 -image $myPic
9 pack .l1
原理详细介绍

Tcl/tk用base64编码替换GIF/PNG图片

标签:

原文地址:http://www.cnblogs.com/technicalman/p/5427500.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!