#####GetEXIF.sml Script
#####Written by Brett Colombe
#####MicroImages, Inc. Software Engineer
#####September 25, 2006
####SML script to get a selected JPEG Image's exif header and output to text file of same name in same directory
class FILE textOutput;
class EXIF exifhandle; #EXIF class for EXIF keys and values
class STRINGLIST keyStrings; #String list for key list
clear();
#User select image
string prompt$ = "Select Image";
string filename$=GetInputFileName("", prompt$, ".jpg");
#Create Text file
string textname$=FileNameGetPath(filename$) + "\" + FileNameGetName(filename$) + ".txt";
print("EXIF output: ", textname$);
textOutput=fopen(textname$, "w"); #open text file in write mode
#Write title to first line of text file
fwritestring(textOutput, sprintf("EXIF Header Information for image: %s\n -----------------------------\n", filename$));
#GetEXIFTags takes filename of image as input
#returns hash with key names and values
exifhandle.Open(filename$);
#Get key list from hash, returns as string list
keyStrings = exifhandle.GetKeyList();
local numeric value,i;
local string value$;
#print all keys and values to text file
for i=0 to keyStrings.GetNumItems()-1 {
fwritestring(textOutput, sprintf("\nKey: %i\t%s\n\tValue: %s\n", i, keyStrings[i], exifhandle.GetDatumStr(keyStrings[i])));
################################################################
############# Display detailed information about EXIF Tags #######################
################################################################
#Exif.Photo.Flash
#bit0: 0 flash didn't fire, 1 flash fired
#bit12: 00 no strobe return detection function, 01 reserved, 10 strobe return light not detected, 11 strobe return ligth deteced
#bit34: 00 unknown, 01 Compulsory flash firing, 10 Compulsory flash suppression, 11 auto mode
#bit5: 0 flash function present, 1 no flash function
#bit6: 0 no red eye reduction mode or unknown, 1 red eye reduction supported
if(keyStrings[i]=="Exif.Photo.Flash")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Photo.Flash"));
if(value>=64)#red eye mode
{
value=value-64;
fwritestring(textOutput, "\tFlash - Red Eye Mode - Red eye reduction supported\n");
}
else
fwritestring(textOutput, "\tFlash - Red Eye Mode - No red eye reduction mode or unknown\n");
if(value>=32)#flash function
{
value=value-32;
fwritestring(textOutput, "\tFlash - Flash Function - No flash function\n");
}
else
fwritestring(textOutput, "\tFlash - Flash Function - Flash function present\n");
if(value>=16)#flash mode
{
value=value-16;
if(value>=8)
{
value=value-8;
fwritestring(textOutput, "\tFlash - Flash Mode - Auto mode\n");
}
else
fwritestring(textOutput, "\tFlash - Flash Mode - Compulsory flash suprression\n");
}
else
{
if(value>=8)
{
value=value-8;
fwritestring(textOutput, "\tFlash - Flash Mode - Compulsory flash firing\n");
}
else
fwritestring(textOutput, "\tFlash - Flash Mode - Unknown mode\n");
}
if(value>=4)#flash return
{
value=value-4;
if(value>=2)
{
value=value-2;
fwritestring(textOutput, "\tFlash - Flash Return - Strobe return light detected\n");
}
else
fwritestring(textOutput, "\tFlash - Flash Return - Strobe return light not detected\n");
}
else
{
if(value>=2)
{
value=value-2;
fwritestring(textOutput, "\tFlash - Flash Return - Reserved\n");
}
else
fwritestring(textOutput, "\tFlash - Flash Return - No strobe return detection function\n");
}
if(value>=1)#flash fired
fwritestring(textOutput, "\tFlash - Flash Fired - Flash did fire\n");
else
fwritestring(textOutput, "\tFlash - Flash Fired - Flash did not fire\n");
}#end Exif.Photo.Flash
#Exif.Photo.ExifVersion
if(keyStrings[i]=="Exif.Photo.ExifVersion")
{
value$=exifhandle.GetDatumStr("Exif.Photo.ExifVersion");
fwritestring(textOutput, sprintf("\tExif Version: %i%i.%i%i\n", StrToNum(GetToken(value$, " ",1))-48, StrToNum(GetToken(value$, " ",2))-48, StrToNum(GetToken(value$, " ",3))-48, StrToNum(GetToken(value$, " ",4))-48));
}
#Exif.Photo.FlashpixVersion
if(keyStrings[i]=="Exif.Photo.FlashpixVersion")
{
value$=exifhandle.GetDatumStr("Exif.Photo.FlashpixVersion");
fwritestring(textOutput, sprintf("\tFlashpix Version: %i%i.%i%i\n", StrToNum(GetToken(value$, " ",1))-48, StrToNum(GetToken(value$, " ",2))-48, StrToNum(GetToken(value$, " ",3))-48, StrToNum(GetToken(value$, " ",4))-48));
}
#Exif.Iop.InteroperabilityVersion
if(keyStrings[i]=="Exif.Iop.InteroperabilityVersion")
{
value$=exifhandle.GetDatumStr("Exif.Iop.InteroperabilityVersion");
fwritestring(textOutput, sprintf("\tInteroperability Version: %i%i.%i%i\n", StrToNum(GetToken(value$, " ",1))-48, StrToNum(GetToken(value$, " ",2))-48, StrToNum(GetToken(value$, " ",3))-48, StrToNum(GetToken(value$, " ",4))-48));
}
#Exif.Image.Orientation
if(keyStrings[i]=="Exif.Image.Orientation" || keyStrings[i]=="Exif.Thumbnail.Orientation")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Image.Orientation"));
switch(value)
{
case 1: fwritestring(textOutput, sprintf("\tOrientation: The 0th row is at the visual %s of the image, and the 0th column is the visual %s.\n","top","left-hand side")); break;
case 2: fwritestring(textOutput, sprintf("\tOrientation: The 0th row is at the visual %s of the image, and the 0th column is the visual %s.\n","top","right-hand side")); break;
case 3: fwritestring(textOutput, sprintf("\tOrientation: The 0th row is at the visual %s of the image, and the 0th column is the visual %s.\n","bottom","right-hand side")); break;
case 4: fwritestring(textOutput, sprintf("\tOrientation: The 0th row is at the visual %s of the image, and the 0th column is the visual %s.\n","bottom","left-hand side")); break;
case 5: fwritestring(textOutput, sprintf("\tOrientation: The 0th row is at the visual %s of the image, and the 0th column is the visual %s.\n","left-hand side","top")); break;
case 6: fwritestring(textOutput, sprintf("\tOrientation: The 0th row is at the visual %s of the image, and the 0th column is the visual %s.\n","right-hand side","top")); break;
case 7: fwritestring(textOutput, sprintf("\tOrientation: The 0th row is at the visual %s of the image, and the 0th column is the visual %s.\n","right-hand side","bottom")); break;
case 8: fwritestring(textOutput, sprintf("\tOrientation: The 0th row is at the visual %s of the image, and the 0th column is the visual %s.\n","left-hand side","bottom")); break;
}
}
#Exif.Image.ResolutionUnit
if(keyStrings[i]=="Exif.Image.ResolutionUnit" || keyStrings[i]=="Exif.Thumbnail.ResolutionUnit" || keyStrings[i]=="Exif.Photo.FocalPlaneResolutionUnit")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Image.ResolutionUnit"));
switch(value)
{
case 2: fwritestring(textOutput, sprintf("\tUnit for Resolution: Inches\n")); break;
case 3: fwritestring(textOutput, sprintf("\tUnit for Resolution: Centimeters\n")); break;
}
}
#Exif.Image.YCbCrPositioning
if(keyStrings[i]=="Exif.Image.YCbCrPositioning" || keyStrings[i]=="Exif.Thumbnail.YCbCrPositioning")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Image.YCbCrPositioning"));
switch(value)
{
case 1: fwritestring(textOutput, sprintf("\tPosition of Chrominance components in relation to Luminance components: centered.\n")); break;
case 2: fwritestring(textOutput, sprintf("\tPosition of Chrominance components in relation to Luminance components: co-sited.\n")); break;
}
}
#Exif.Image.XResolution / YResolution
if(keyStrings[i]=="Exif.Image.XResolution" || keyStrings[i]=="Exif.Image.YResolution" || keyStrings[i]=="Exif.Photo.FocalPlaneXResolution" || keyStrings[i]=="Exif.Photo.FocalPlaneYResolution" || keyStrings[i]=="Exif.Thumbnail.XResolution" || keyStrings[i]=="Exif.Thumbnail.YResolution")
fwritestring(textOutput, sprintf("\tNumber of pixles per resolution unit.\n"));
#Exif.Iop.InteroperabilityIndex
if(keyStrings[i]=="Exif.Iop.InteroperabilityIndex")
{
value$=exifhandle.GetDatumStr("Exif.Iop.InteroperabilityIndex");
switch(value$)
{
case "R98": fwritestring(textOutput, sprintf("\tIndicates a file conforming to R98 file specification of Recommended Exif Interoperability Rules (ExifR98) or to DCF basic file stipulated by Design Rule for Camera File System.\n")); break;
case "THM": fwritestring(textOutput, sprintf("\tIndicates a file conforming to DCF thumbnail file stipulated by Design rule for Camera File System.\n")); break;
}
}
#Exif.Photo.ColorSpace
if(keyStrings[i]=="Exif.Photo.ColorSpace")
{
value$=exifhandle.GetDatumStr("Exif.Photo.ColorSpace");
if(value$=="1")
fwritestring(textOutput, sprintf("\tsRGB (=1) is used to define the color space based on the PC monitor conditions and environment.\n"));
else
fwritestring(textOutput, sprintf("\tUncalibrated.\n"));
}
#Exif.Photo.ExposureMode
if(keyStrings[i]=="Exif.Photo.ExposureMode")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Photo.ExposureMode"));
switch(value)
{
case 0: fwritestring(textOutput, sprintf("\tAuto exposure.\n")); break;
case 1: fwritestring(textOutput, sprintf("\tManual exposure.\n")); break;
case 2: fwritestring(textOutput, sprintf("\tAuto bracket.\n")); break;
}
}
#Exif.Photo.FileSource
if(keyStrings[i]=="Exif.Photo.FileSource")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Photo.FileSource"));
if(value==3)
fwritestring(textOutput, sprintf("\tImage recorded on a DSC.\n"));
}
#Exif.Photo.SceneType
if(keyStrings[i]=="Exif.Photo.SceneType")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Photo.SceneType"));
if(value==1)
fwritestring(textOutput, sprintf("\tA directly photographed image.\n"));
}
#Exif.Photo.ComponentsConfiguration
if(keyStrings[i]=="Exif.Photo.ComponentsConfiguration")
{
value$=exifhandle.GetDatumStr("Exif.Photo.ComponentsConfiguration");
local string line$="";
local numeric k;
for k=1 to 4
{
value=StrToNum(GetToken(value$," ",k));
switch(value)
{
case 0: line$=line$ + sprintf("%i=%s ",value ,"does not exist"); break;
case 1: line$=line$ + sprintf("%i=%s ",value ,"Y"); break;
case 2: line$=line$ + sprintf("%i=%s ",value ,"Cb"); break;
case 3: line$=line$ + sprintf("%i=%s ",value ,"Cr"); break;
case 4: line$=line$ + sprintf("%i=%s ",value ,"R"); break;
case 5: line$=line$ + sprintf("%i=%s ",value ,"G"); break;
case 6: line$=line$ + sprintf("%i=%s ",value ,"B"); break;
}
}
fwritestring(textOutput, sprintf("\tChannels of each component: %s.\n",line$));
}
#Exif.Photo.MeteringMode
if(keyStrings[i]=="Exif.Photo.MeteringMode")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Photo.MeteringMode"));
switch(value)
{
case 0: fwritestring(textOutput, sprintf("\tMetering Mode: %s.\n","Unknown")); break;
case 1: fwritestring(textOutput, sprintf("\tMetering Mode: %s.\n","Average")); break;
case 2: fwritestring(textOutput, sprintf("\tMetering Mode: %s.\n","Center Weighted Average")); break;
case 3: fwritestring(textOutput, sprintf("\tMetering Mode: %s.\n","Spot")); break;
case 4: fwritestring(textOutput, sprintf("\tMetering Mode: %s.\n","Multi Spot")); break;
case 5: fwritestring(textOutput, sprintf("\tMetering Mode: %s.\n","Pattern")); break;
case 6: fwritestring(textOutput, sprintf("\tMetering Mode: %s.\n","Partial")); break;
case 255: fwritestring(textOutput, sprintf("\tMetering Mode: %s.\n","Other")); break;
}
}
#Exif.Photo.SceneCaptureType
if(keyStrings[i]=="Exif.Photo.SceneCaptureType")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Photo.SceneCaptureType"));
switch(value)
{
case 0: fwritestring(textOutput, sprintf("\tScene Type: %s.\n","Standard")); break;
case 1: fwritestring(textOutput, sprintf("\tScene Type: %s.\n","Landscape")); break;
case 2: fwritestring(textOutput, sprintf("\tScene Type: %s.\n","Portrait")); break;
case 3: fwritestring(textOutput, sprintf("\tScene Type: %s.\n","Night Scene")); break;
}
}
#Exif.Photo.SensingMethod
if(keyStrings[i]=="Exif.Photo.SensingMethod")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Photo.SensingMethod"));
switch(value)
{
case 1: fwritestring(textOutput, sprintf("\tImage Sensor Type: %s.\n","Not defined")); break;
case 2: fwritestring(textOutput, sprintf("\tImage Sensor Type: %s.\n","One-chip color area sensor")); break;
case 3: fwritestring(textOutput, sprintf("\tImage Sensor Type: %s.\n","Two-chip color area sensor")); break;
case 4: fwritestring(textOutput, sprintf("\tImage Sensor Type: %s.\n","Three-chip color area sensor")); break;
case 5: fwritestring(textOutput, sprintf("\tImage Sensor Type: %s.\n","Color sequential area sensor")); break;
case 7: fwritestring(textOutput, sprintf("\tImage Sensor Type: %s.\n","Trilinear sensor")); break;
case 8: fwritestring(textOutput, sprintf("\tImage Sensor Type: %s.\n","Color sequential linear sensor")); break;
}
}
#Exif.Photo.WhiteBalance
if(keyStrings[i]=="Exif.Photo.WhiteBalance")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Photo.WhiteBalance"));
switch(value)
{
case 0: fwritestring(textOutput, sprintf("\tWhite Balance: %s\n", "Auto")); break;
case 1: fwritestring(textOutput, sprintf("\tWhite Balance: %s\n", "Manual")); break;
}
}
#Exif.Thumbnail.Compression
if(keyStrings[i]=="Exif.Thumbnail.Compression")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Thumbnail.Compression"));
switch(value)
{
case 1: fwritestring(textOutput, sprintf("\t%s\n", "Uncompressed")); break;
case 6: fwritestring(textOutput, sprintf("\t%s\n", "JPEG compression")); break;
}
}
#Exif.Thumbnail.JPEGInterchangeFormat
if(keyStrings[i]=="Exif.Thumbnail.JPEGInterchangeFormat")
fwritestring(textOutput, sprintf("\tThe offset to the start byte (SOI) of JPEG compressed thumbnail data.\n"));
#Exif.Photo.ExposureProgram
if(keyStrings[i]=="Exif.Photo.ExposureProgram")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Photo.ExposureProgram"));
switch(value)
{
case 0: fwritestring(textOutput, sprintf("\tExposure Program Class: %s.\n","Not defined")); break;
case 1: fwritestring(textOutput, sprintf("\tExposure Program Class: %s.\n","Manual")); break;
case 2: fwritestring(textOutput, sprintf("\tExposure Program Class: %s.\n","Normal Program")); break;
case 3: fwritestring(textOutput, sprintf("\tExposure Program Class: %s.\n","Aperture priority")); break;
case 4: fwritestring(textOutput, sprintf("\tExposure Program Class: %s.\n","Shutter priority")); break;
case 5: fwritestring(textOutput, sprintf("\tExposure Program Class: %s.\n","Creative program (biased toward depth of field)")); break;
case 6: fwritestring(textOutput, sprintf("\tExposure Program Class: %s.\n","Action program (biased toward fast shutter speed")); break;
case 7: fwritestring(textOutput, sprintf("\tExposure Program Class: %s.\n","Portrait mode (for closeup photos with the background out of focus)")); break;
case 8: fwritestring(textOutput, sprintf("\tExposure Program Class: %s.\n","Landscape mode (for landscape photos with the background in focus")); break;
}
}
#Exif.Photo.LightSource
if(keyStrings[i]=="Exif.Photo.LightSource")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Photo.LightSource"));
switch(value)
{
case 0: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Unknown")); break;
case 1: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Daylight")); break;
case 2: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Fluorescent")); break;
case 3: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Tungsten (incandescent light)")); break;
case 4: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Flash")); break;
case 9: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Fine weather")); break;
case 10: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Cloudy weather")); break;
case 11: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Shade")); break;
case 12: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Daylight fluorescent (D 5700 - 7100K)")); break;
case 13: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Day white fluorescent (N 4600 - 5400K)")); break;
case 14: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Cool white fluorescent (W 3900 - 4500K)")); break;
case 15: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","White fluorescent (WW 3200 - 3700K)")); break;
case 17: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Standard light A")); break;
case 18: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Standard light B")); break;
case 19: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Standard light C")); break;
case 20: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","D55")); break;
case 21: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","D65")); break;
case 22: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","D75")); break;
case 23: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","D50")); break;
case 24: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","ISO studio tungsten")); break;
case 255: fwritestring(textOutput, sprintf("\tLight Source: %s.\n","Other light source")); break;
}
}
#Exif.Thumbnail.PhotometricInterpretation
if(keyStrings[i]=="Exif.Image.PhotometricInterpretation" || keyStrings[i]=="Exif.Thumbnail.PhotometricInterpretation")
{
value=StrToNum(exifhandle.GetDatumStr("Exif.Thumbnail.PhotometricInterpretation"));
switch(value)
{
case 2: fwritestring(textOutput, sprintf("\tPixel Composition: %s\n", "RGB")); break;
case 6: fwritestring(textOutput, sprintf("\tPixel Composition: %s\n", "YCbCr")); break;
}
}
#########################################################
}#for
fclose(textOutput);
Download