Hej!


Jag vill komma åt kommentarerna från en Jpg-fil, Ni vet när man exempelvis fotar med en modern digitalkamera så får man ju all exponeringsinformation presenterad under egenskaper.

Är det någon som kan leda mig på rätt väg?


Tack på förhand

Hej
Du kan börja med att testa denna metod.
Om uppgifterna finns borde dom finnas i denna "chunk"

Option Explicit
Private Sub Command1_Click()
Dim FileNum As Long, Buffer As String, i As Long
FileNum = FreeFile
Buffer = Space$(624)
Open "E:\MinaProgram\Grattis.jpg" For Binary As #FileNum
Get #FileNum, , Buffer
Close #FileNum
For i = 1 To Len(Buffer)
'Obs sätt Label1 WordWrap till true
Label1.Caption = Label1.Caption & Mid$(Buffer, i, 1)
Next 'i
End Sub

mvh
Sven

Hej Sven!

Tack för ditt tips, jo jag har redan "kollat" att informationen finns med i filen...Men jag skulle behöva "utvinna" informationen mer strukturerat. Tänkte om det fanns färdiga metoder för det

Hej igen
Det är ju bara att kolla på vilken adress/byte som
resp info finns sen hämtar man med Get.

Om du körde mitt exempel så låt oss säga att en
viss info börjar på tecken 102 då skriver du

Get#FileNum,102,tmpBuff där tmpBuff är så lång som
infon i bytes.Mer strukturerat än så kan det knappast bli.

Skicka en jpg från din kamera så skall jag visa ett exempel
svenpon@telia.com

Sven