egghelp.org community

[raider2k]

hi guys

not sure if anyone is familiar with tk in here but id like to know if its possible to recall an image from inside a compiled tcl .exe package. its possible to include it in the compiler without errors but im not sure if its also possible to call that image from inside the package.

at the moment the image is in the same directory as the exe and is being called by using

[nml375]

Well, you'd have to keep the image as a block in the .text section (accessible through a tcl variable), and use the -data option as opposed to the -file option.
_________________
NML_375, idling at #eggdrop@IrcNET

[raider2k]

please be so kind to post me code examples

[nml375]

Well... in pure tcl-space it would look something like this:

[nml375]

Actually, when thinking of it, since we're dealing with binary data, you'd probably be better off creating a new Tcl_Obj along with the objcopy embedding. This way, we can easily contain the NULL character, which would otherwize act as a string terminator.

I'd look at the Tcl_NewObj() function for this, although Tcl still expects strings to be utf-8 encoded. Tcl_UniCharToUtfDString() might be what the doctor ordered here. Finally use Tcl_SetVar2Ex() to set a tcl-space variable to the value of the Tcl String Object.

Messy, I know :/
_________________
NML_375, idling at #eggdrop@IrcNET

[raider2k]

oh .. my .. god ... oO

NOW im really confused >_<
and nope, im not doing any c or c++ or anything like that - tcl/tk is my home.

well .. what you are trying to say is that i need to "convert" the image into raw txt, apply a variable to it and use that variable in the image command? any easy ways to convert an image into that raw text i need?

and maybe less complicated, less c-dependend examples next time please :> i still need to learn and understand ^^

[nml375]

My bad, when you said build an exe-file, I simply assumed you were developing a tcl/tk-extended software (kind of like eggdrop).

I guess you're using TclPro's bytecode compiler or such?
In plain tcl/tk-space, either set a variable to contain the image data, and use the classic $varname syntax along with the -data option for image. The second option would be to embed the data directly into the image comand in place of the variable...

You could write a simple tcl:et to generate a script containing the data:

[nml375]

Done some testing, and the classic [list ..] trick does not work very well. Most likely NULL or EOF characters are not escaped within the list, which works fine for data already loaded into memory, but wrecks havoc with the source command.

I did find this article, which uses tcllib and base64 encoding to sort that issue:
http://wiki.tcl.tk/1434
_________________
NML_375, idling at #eggdrop@IrcNET

[nml375]

More post-farming :p

Got the following working nicely:

[raider2k]

mhm .. interesting ..
and yup .. i was referring to an output .exe after compiling/wrapping ^^

base64 .. mhm .. very interesting ..
ill try your code when im at home later on, looks very interesting. plus i hope that that base64 package doesnt result in an error when compiling/wrapping ..

let me repeat if i caught what you are trying to tell me:

the first code part is a one-time-per-image tcl file needed to parse the images "code" (since i tried to open it with wordpad, notepad++ and nano already and didnt show up in plain characters) and to then save it into somefile.tcl which will be used by the image create tk command for each query of that new image, right?

[raider2k]

hmm .. looks like im either too stupid for that or it doesnt work ..
converting the image seemed to work fine ..

[nml375]

Oops, -data would be correct. I'll update the post accordingly..

Did you do any kind of modifications of the generated code (set giffile {...)? The error suggests that the data is not read as valid base64-encoded data.

I did notice one thing while testing myself, you'll have to use fconfigure to set the -encoding of the input file to binary, or you'll notice the file being distorted/corrupted. Updating this in my previous example as well..
_________________
NML_375, idling at #eggdrop@IrcNET

[raider2k]

nope, i did not do any modifications to what the convertimg.tcl (thats how i named it) output. but ill try again with your updated code including fconfigure ^^ updating thread in a bit

//edit1:

WOHH!!
fconfigure gave me a ****LOAD of much more lines this time lol
going to import that piece into the main code now, brb ^^

//edit2:

DAMN! that worked hahaaaaaa

thx again for help nml ^^
this rocks big time