在实现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
原理详细介绍
时间: 2024-12-29 19:56:10