如何将 gif 转换为文本，以便从 tk 脚本进行内联访问？

Question

我在著名的 tkdiff 实用程序中看到了以下代码：

image create photo rediffImage -format gif -data {
R0lGODdhFAAUAPf/AAAAAIAAAACAAICAAAAAgIAAgACAgMDAwMDcwKbK8P/w1P/isf/Ujv/G
......
}

我有一个 gif 图像要包含在我的 tk 脚本中。我怎样才能将它转换成这样的数据，这样我就不必调用单独的 gif 文件了？

Answer 1

是base64数据。 Tcl 8.6 包含一个用于进行转换的命令。

# Read the data in *as binary data*
set f [open yourfile.gif b]
set data [read $f]
close $f

# Do the encoding
set encodedData [binary encode base64 $data]

# Print the encoded version out; it's just plain ASCII text now
puts $encodedData

请注意，您可以在 base64 数据中添加任何您想要的空格；它仍然有效。这意味着您可以按照您认为合适的方式拆分和缩进行。