Re: tcllib jpeg package and JPEG comments ...

MartinLemburg@UGS wrote:
Hello again,

I went now experimenting the other way, writing comments with the jpeg
package like this:

% package require jpeg
0.3
% puts '[jpeg::getComments $fileName]'
''
% jpeg::addComment $fileName "abc"
% jpeg::addComment $fileName "def"
% puts '[jpeg::getComments $fileName]'
'abc def'

Then I opened the JPEG file with IrfanView, saved the non-changed
comment and reread the comment inside the tcl shell:

% puts '[jpeg::getComments $fileName]'
def } def'
% puts '[string map {"\r" "\n"} [jpeg::getComments $fileName]]'
'{abc
def } def'
% scan [string index [lindex [jpeg::getComments $fileName] 0] end]
%c
0

I know, that IrfanView may handle the comments in a wrong way, but
currently I don't have any other bitmap application allowing to view
or to change the JPEG comments!

Can somebody help?

What platform? unix/cygwin:
you can try with rd|wrjpegcom from the jpeg package
---> http://www.ijg.org/files/
xv can display the comments as well.
---> http://www.trilon.com/xv/

this might be of interest:
http://netzreport.googlepages.com/hidden_data_in_jpeg_files.html


uwe
.

Relevant Pages

  • Re: tcllib jpeg package and JPEG comments ...
    ... I went now experimenting the other way, writing comments with the jpeg ... % package require jpeg ... 'abc def' ... I used IrfanView to put a comment to a JPEG file and afterwards I used ...
    (comp.lang.tcl)
  • Re: tcllib jpeg package and JPEG comments ...
    ... using IrfanView - IrfanView uses \r as line end, ... So using the jpeg package to read comments is not necessarily the best ... 'abc def' ...
    (comp.lang.tcl)
  • Re: tcllib jpeg package and JPEG comments ...
    ... That's the way I already deal with the JPEG comments returned from the ... if an application like IrfanView changes the ... 2,...,n th comment chunk. ... 'abc def' ...
    (comp.lang.tcl)
  • Re: tcllib jpeg package and JPEG comments ...
    ... I think it would be incorrect for the jpeg ... using IrfanView - IrfanView uses \r as line end, ... So using the jpeg package to read comments is not necessarily the best ... 'abc def' ...
    (comp.lang.tcl)
  • Re: getting started
    ... Copyright Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 ... &optional (documentation nil documentation-p)) ... (,def (definitions ',(symbol-package name)))) ... (labels ((save-one-package (out package) ...
    (comp.lang.lisp)