Exif Header info in JPGs
Posted: Mon Jan 02, 2012 1:23 am
FAO: Tuxedo
So you are doing something along the lines of this? This works with xExif II.
So you are doing something along the lines of this? This works with xExif II.
Code: Select all
OpenFile(1, "Images:snowphotos/dsc00060.jpg")
make$ = ""
model$ = ""
c$ = ""
; Seek through Exif Header - Camera Make
Seek(1,$92)
For Local t = 0 to 31
c = ReadChr(1)
c$ = Chr(c)
If c <> 0
make$ = make$ .. c$
Else
Break
EndIf
Next
; Seek through Exif Header - Camera Model
Seek(1,$b2)
For Local t = 0 to 15
c = ReadChr(1)
c$ = Chr(c)
If c <> 0
model$ = model$ .. c$
Else
Break
EndIf
Next
debugprint("Make: " .. make$ .. "\nModel: " .. model$)
CloseFile(1)