Page 1 of 1

Delphi Save JPeg with comments

Posted: Wed Sep 14, 2005 11:11 pm
by marcp
Hello,

I am trying to embed comments in a jpeg file. I have tried 2 ways but windows doesn't see a comment associated with either. I can't see it in photoshop either. To complicate matters, comments put in with photshop aren't visible by windows explorer and vice versa.

Here is some code:
procedure TImageViewForm.miSaveasClick(Sender: TObject);
var
Params: TGFL_save_Params;
begin
gflGetDefaultSaveParams( Params);
Params.FormatIndex := gflGetFormatIndexByName( 'jpg' );
Params.Quality := 100;
gflSaveBitmap( 'c:\temp\test.jpg', gfl_bmp, Params );
gflJPEGSetComment( 'c:\temp\test.jpg', 'testing' );
end;

I've also tried Params.comment := 'bla', with the same result.

Can someone please explain how jpeg comments should work?

thanks

Marc Pelletier
Goldak Airborne Surveys

Re: Delphi Save JPeg with comments

Posted: Sun Sep 18, 2005 2:04 pm
by xnview
marcp wrote: I am trying to embed comments in a jpeg file. I have tried 2 ways but windows doesn't see a comment associated with either. I can't see it in photoshop either. To complicate matters, comments put in with photshop aren't visible by windows explorer and vice versa.

Here is some code:
procedure TImageViewForm.miSaveasClick(Sender: TObject);
var
Params: TGFL_save_Params;
begin
gflGetDefaultSaveParams( Params);
Params.FormatIndex := gflGetFormatIndexByName( 'jpg' );
Params.Quality := 100;
gflSaveBitmap( 'c:\temp\test.jpg', gfl_bmp, Params );
gflJPEGSetComment( 'c:\temp\test.jpg', 'testing' );
end;
Do you see the comment in XnView?
I've also tried Params.comment := 'bla', with the same result.
???? There is no field comment in GFL_SAVE_PARAMS