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)