sah ich den folgenden Code in dem berühmten tkdiff Dienstprogramm:Wie konvertiert man GIF in Text, für Inline-Zugriff von einem TK-Skript?
image create photo rediffImage -format gif -data {
R0lGODdhFAAUAPf/AAAAAIAAAACAAICAAAAAgIAAgACAgMDAwMDcwKbK8P/w1P/isf/Ujv/G
......
}
ich ein GIF-Bild habe in meinem tk-Skript. Wie kann ich es in solche Daten konvertieren, so dass ich die separate gif-Datei nicht aufrufen muss?
Es ist Base64 Daten. Tcl 8.6 enthält einen Befehl für die Konvertierung.
# 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
Beachten Sie, dass, was auch immer Leerzeichen Sie wollen base64 Daten hinzufügen können; es bleibt gültig. Dies bedeutet, dass Sie die Zeilen aufteilen und einrücken können, wie Sie es für richtig halten.
Vielen Dank. Es funktionierte. Aber aus irgendeinem Grund erscheinen gif-Bilder im tk-Widget unsichtbar, aber pnm-Bilder kommen gut an. Gibt es eine Möglichkeit, das Gleiche für pnm-Dateien zu tun? Der Befehl (image create photo rediffImage -format pnm) - sagt pnm-Format nicht unterstützt. –