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
原理详细介绍
