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

在实现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

原理详细介绍

转载于:https://www.cnblogs.com/technicalman/p/5427500.html