Hi Malte,
This button script extracts and displays a jpeg thumbnail
from this image:
http://216.18.212.226/PRODS/fuji-x100t/FULLRES/X100ThSLI00100NR2D.JPG
This sample jpeg image have two thumbnails:
160x120 and 320x240
on mouseUp
local temp
answer file "Select JPEG image with EXIF thumbnail data"
put it into temp
open file temp for binary read
read from file temp for 100000 -- first 100k of jpeg binary data
put it into temp1
close file temp
put numtochar(255) & numtochar(216) into tStart
-- in Hexadecimal: FFD8 = SOI(Start of jpeg image)
put numtochar(255) & numtochar(217) into tEnd
-- in Hexadecimal: FFD9 = EOI(End of jpeg image)
delete char 1 to 4 of temp1
-- delete JPEG SOI (Start of jpeg image)
if char -2 to -1 of temp1 = tEnd then delete char -2 to -1 of temp1
-- delete JPEG EOI(End of jpeg image)
put char offset(tStart,temp1) to (offset(tEnd,temp1) + 1) of temp1 into
tJPGThumb
-- this finds the first JPEG Thumbnail in the Data
-- Some Digital Cameras store Two thumbnails
if tJPGThumb is not empty
then
create img
set the text of it to tJPGThumb
-- put "Chars = " & the number of chars of tJPGThumb & cr & tJPGThumb
else
answer "No JPEG Thumbnail in this image"
end if
end mouseUp
Have a nice week!
Al
--
View this message in context:
http://runtime-revolution.278305.n4.nabble.com/extracting-the-thumbnail-from-digital-photos-tp4687985p4688039.html
Sent from the Revolution - User mailing list archive at Nabble.com.
_______________________________________________
use-livecode mailing list
use-livecode@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
