特設ページ「VB6によるJpeg画像のExif情報読み取り(取得)」学習室でなくてMy備忘録に，変更

• 初心は，タイトル通りですが，たぶん挫けます。自信があります。

• めんどうなんで，更新は怠りがちだと思うし，概念ダケだよ。詳しくは，参考サイトを見てください。
• ご意見及び質問は，Ｅｘｉｆ２Ｃｌｉｐ修行場板へ書き込んでください。気が向いたらレスします。気に入らないのは削除します。
• ないでしょうけど当方へのリンクは，原則フリーです。報告の義務はありません。

• 2004/01/02 はじめに
• 2004/01/03 Exif情報は，あるか
• 2004/01/06 big endianとlittle endian
• 2004/01/07 教材用ツール紹介と・・・
• 2004/01/08 ベース・ソフトの概要
• 2004/01/19 仕切直し
• 2004/01/20 すこし振りだしに戻ります
• 2004/01/22 対象タグの再確認
• 2004/02/01 やっと最初のタグだぞ
• 2004/02/04 すこしTiffでは，Jpegのタグとは異なるID-Codeなのだな
• 2004/03/05 ここで少し休眠宣言
• 2004/06/23 Exif2Clipに，GPSタグを追加したので
• 2004/07/02 Exif2Clipの礎
• 2005/11/25 なんか，訪問者が多いようなので

• 計画として，特定フォルダーのファイルから，Exif情報の入ったJepg画像だけの，Exif情報付きのCSVファイルをつくります。
• ただし，実験ネタとして，読み取りと書き出しは，Exif2ClipのVer.0.1.693で実装した[簡易出力]の６項目に準じます。
• その内容は，ISO(&h8827),露光時間(&h829A)，F値(&h829D)，撮影日時(&h9003)，メーカー(&h010f)，機種(&h0110)。
• 露光時間(&h829A)が無い場合はシャッター速度(&h9201)が有ればソレを，F値(&h829D)が無い場合はレンズ絞り値(&h9202)が有ればソレを代用として使います。
• それ以外は，ファイル名とフルパス。CSVの内容は，この８項目になります。
• 一部メーカーのMakerNoteにも対応しません。
• Exifヘッダーがシフトしていた場合も，対応しません。

• まず，対象ファイルがJepg形式なのかをチェックするには，頭２バイト分を読み取り，&hD8FFで有るかを確かめる。
• &hD8FFで無ければ，このファイルは，Jepgじゃないとして無視する。

• ポインターとかオフセットの値は，VBを前提として話すと思うけど，時たまCでやっちゃってるかも。
• VBは，ファイルの先頭を１から，Cでは，０から表してるよね。好みはC式なんだけどね。
• Exif2Clipでは，横着したところを手を抜かずにやることもあるからね。

• ３文字目から，２バイトが，&hE1FFで有るかを確かめる。で無ければ，このファイルはExifが見つからないとして無視する。

• ５文字目からの２バイトは，読み取って変数に覚えさせておこう。

• ７文字目から，４バイト分が'Exif'のASCIIコードに相当するか確かめる。
• &h45，&h78，&h69，&h66で無ければ，このファイルはExifが見つからないとして無視する。
• このチェックが[Ok]なら，ひとまずExif情報が有るかもしれないってコト。

• １３文字目の２バイトが，&h4D4Dか，&h4949かで，データ並びがbig endianとlittle endianに分けられる。
• Exif2Clip頁でも言ってる。

• 反響もないし，見ている人もいないだろうから，My備忘録としてやっていく。
• 検索でヒットしたからやってきた人には残念かもしれないが，そういう方は，下の参考サイトを見ていただいた方が，より親切である。

• デジカメファイルの中身は，処理に使われるプロセッサーによって，そのデータ値のならび方が違う。
• おまけに，Jpeg内の基本タグは，"big endian"なのだ。
• "little endia"であるVB6にとって面倒なことなのだが，"big endian"は，避けては通れないのでここでいっそのこと，ふれておく。
• ここまでで，話してきた，頭の&hD8FFとか，つづく&hE1FFなどは，特に指定のない限り"big endian"として扱った方がいいので，話しを元に戻しながら進めていこうと思う。だから忘れてくれとは言わないが・・・
• big endianとlittle endianを各々[m]と[i]と以降では，表現することがある。
• "big endian"をVBでどう扱うかだが，そのままではダメなので"little endia"へ返還してやる。
• では，どの様にやるのか。私は，プロセス・ロジックを深く考える力量がないので，取り敢えずbig endian(m)とlittle endian(i)双方のGet関数を作り，データ型によって切り替える方法をとった。
• たとえば，２バイトの場合は，II2Int(filenumber as integer,point as long)とMM2Int(filenumber as integer,point as long)をつくり，振り分けようのGetIM2(filenumber as integer,point as long,IMsw as integer)を呼びだすといった具合。
• 雰囲気として，次のようなもの。こういったのを，２バイト系の他，４バイト系など必要なだけ用意しておく。
• Function GetIM2(p1, p2 As Long, p3) As Integer Dim c As Integer c = 0 If p3 = 1 Then c = II2Int(p1, p2) If p3 = 2 Then c = MM2Int(p1, p2) GetIM2 = c End Function Function II2Int(p1, p2) Dim c, bC As Byte Get #p1, p2 + 1, bC: c = Hex2(bC) Get #p1, p2, bC: c = c + Hex2(bC) II2Int = Val("&h" + c) End Function Function MM2Int(p1, p2) Dim c, bC As Byte Get #p1, p2, bC: c = Hex2(bC) Get #p1, p2 + 1, bC: c = c + Hex2(bC) MM2Int = Val("&h" + c) End Function Function Hex2(p1) Hex2 = Right("0" + Hex(p1), 2) End Function
• 回りくどいが，文字列の１６進にしているのは，数値のままで上下を分けようとすると，最上位ビットがたっているときにVBが悪さをしてしまうので，仕方なくこうしている。
• なお，II2Int関数は，直接Integer型のGetを行えばいいのだが，MM2Int関数の対比として今回こうしている。

• あと，必要なのは，VB4(16bit)で出来ていたコトがVB６では，ストレートに文字列を読み取ることが出来ないので，任意の数だけByte単位でコードを拾って文字列にするモノも用意しておく。
• ココで使った手法は，PDAとして少しは浸透したPalm互換機のPRCとPDBファイルをVB6で読み取るために作ったモノを流用した。

• Exif2Clipを作るに当たって，試作品となったものを改造して，現在もタグの確認ツールに使っている。
• 試作品という意味合いで，Exif0Clip.exeと呼んでいる。exif0clip.zip(24KB)
• 改めて，タグの取り方の話しをするまで，こいつにJpeg画像を落とし込んで遊んでいて欲しい。

• ターゲットとなるExif2CSVの組み立てを始めているが，E2C頁で脱線ネタとしてつかった，PathReadTestを改造しているので，しばし待たれたし。

• 開発中の画面は次の通り。ProjectNameは，"Exif2CSV"。
• オブジェクトは，殆どデフォルトの付け方のまま使っている。
• 左上より，ターゲットディレクトリーを指定するためのDorive1，その下にDir1，一つ右がFile1。
• あらかじめ用意しているいくつかのディレクトリを選択するCommand1からCommand5。
• 実行を指示するCommand6とメッセージ用のLabel1，そしてText1。
• 

• 実行時には，次のような感じになる。
• ふだん右端のText1は，隠された形で，対象数が0以上の時に"Exif情報の抽出開始"ボタンを押すと伸び出すようになっている。
• 

• "Exif情報の抽出開始"ボタン(Command1)のコードは，次のようなもので，この頁での話しは，ここから呼びだすGetExif2CSV関数とその周辺を作っていく。
• Sub Command6_Click() Dim w90, w91, w92 Dim w80, w81, w82 Dim c, n w90 = File1.ListCount Label1.Caption = "対象数 : " & Str(w90) If Val(w90) > 0 Then Text1.Text = "" Me.Width = 12990 w91 = File1.Path: If Right(w91, 1) <> "\" Then w91 = w91 & "\" w81 = Path84 & "Exif2CSV.csv" Open w81 For Output As #1 Close #1 w80 = "": w82 = 0 For n = 0 To (w90 - 1) w92 = File1.List(n) w80 = w80 & Format(n + 1, "0000:") & w92 '& CrLf Text1.Text = w80 w82 = w82 + GetExif2CSV(w92, w91, w81) w80 = w80 & " (" & Str(1) & ")" & CrLf Text1.Text = w80 DoEvents Next c = "対象数，" & Str(w90) & "の中から，Exif情報を" & Str(w82) & "見付けました。" MsgBox c, vbInformation End If End Sub

• GetExif2CSV関数について
• GetExif2CSV(p1,p2,p3)の形で呼びだし，戻り値としてExif情報があった場合は，１。無い場合は，０を返す。
• p1:Jpegファイル名。(Pathは含まない。次のp2と併せてフルパスとなる。)
• p2:Jpegファイルのパス名。
• p3:取り出した情報を書き出す，テキスト型のファイル名。

• 前回から少し日数が経ってしまったが，その間所有デジカメで撮ったTIFFとかRAW形式のタグを眺めていた。
• いくつかの実験をしてみて，JpegオンリーでなくTIFFにも対応できるかを調べている。
• 続く話しはもう少し時間をおく。

• どうやら，TIFFにもSONY DSC-F828のRAW(SRF)にも100%ではないが，なんとかタグが採れそうなので，GetExif2CSV関数を多段階にする。
• 拡張子がSRFということは，SonyRawFormatFileから来ているのかなぁ。
• 一段階目，GetExif2CSV関数。子分から手に入れた情報で，CSVをつくるだけ。
• 二段階目，GetExit関数。JPEGか，非JPEGかを判断し各々に異なる，あるポイントを示す。
• 三段階目，GetExifTag関数。GetExit関数に指摘されたポイントから，黙々と対象タグと中身を記憶していく。

• GetExif関数
• Function GetExif(p1, p2) Dim w90, w91, w92 Dim w80 Dim c, n, iC As Integer, iiC As Long w90 = 0 '戻り値の用意　Exifが有った場合は，１ w91 = UCase(PathSplit(p1, 3)) '拡張子の取得 Open p2 & p1 For Binary As #1 If Left(w91, 1) = "J" Then ' Jpeg Check w80 = 1 iC = MM2Int(1, w80): w80 = w80 + 2 If iC = &HFFD8 Then iC = MM2Int(1, w80): w80 = w80 + 2 If iC = &HFFE0 Then iC = MM2Int(1, w80): w80 = w80 + iC: iC = MM2Int(1, w80): w80 = w80 + 2 End If If iC = &HFFE1 Then iiC = MM4Int(1, w80 + 2): w80 = w80 + 8 If iiC = &H45786966 Then w90 = GetExifTag(1, w80) End If End If Else ' Not Jpeg w90 = GetExifTag(1, 1) End If Close GetExif = w90 End Function
• いまのところ，上の様なコードでやろうとしているが，お分かりだろうか。
• かいつまんで言うと，まず拡張子の頭が"J"かどうかでJpegか非Jpegを見分けている。
• ココまでの仕様では，この関数にたどり着くのは，"JPG"，"JPEG"，"TIF"，"TIFF"，"SRF"しかないから乱暴だがこの方法が，私には分かりやすい。
• どちらも，"II"か"MM"から後は，似たパターンなのだ。
• 非Jpegだと，頭が必ず"II"か"MM"かなので，Jpegでもこの位置を捜すことにする。
• しかしJpegの場合，Exif情報そのものが無い場合もあるので，すこしチェックを加えてある。
• まず，頭が"0xFFD8"かを確認して，安堵する。
• Exif情報の書き込みがあるデジカメで撮影した直後は，この次に"0xFFE1"とくる。
• コレを確認するのだが，画像補整系のソフトを使ったりして加工した場合，ずれが生じる。(最近CSというエディションとなったあのソフトのことだ。頁下のサンプル，"II"type Vol.2を参照)
• そこで次が"0xFFE0"だった場合，その続く２バイトが次のタグへのポインターオフセットなのでこれを加算して，"0xFFE1"なのかを確認する。
• "0xFFE0"でも"0xFFE1"でも無い場合は，Exif情報はないとして処理する。(戻り値を，0)
• 無事，"0xFFE1"を見付けた場合，その４バイト後に"Exif"の文字列があるので，"0x45786966"として確認をする。
• タグ"0xFFE1"が有った場合は，必ずあるのだが，ファイルが壊れている可能性もあるので，思込エラー回避のためにこうしている。
• "Exif"の文字列の後，"0x0000"と２バイト空き，続く２バイトが，"II"か"MM"なので，この１文字目のポイントを添え字にして，次のGetExifTag関数を呼ぶ。

• この頁の開始当初は，ISO(&h8827),露光時間(&h829A)，F値(&h829D)，撮影日時(&h9003)，メーカー(&h010f)，機種(&h0110)。
• 露光時間(&h829A)が無い場合はシャッター速度(&h9201)が有ればソレを，F値(&h829D)が無い場合はレンズ絞り値(&h9202)が有ればソレを代用として使用。
• こんな予定だったのだが，すこし追加をする。
• "No."で，複数行に渡っているモノは，どちらか一方をとる。上位優先。

• 	No.	Tag Code	Tag Name	私的表現名称	備考
  	1	&h010f	Make	メーカー
  	2	&h0110	Model	機種
  	3	&h8827	ISO Speed Ratings	ISO	ISO999
  	4	&h829A	Exposure Time	露光時間	基本は，1/999。以外は，99″
  		&h9201	Shutter SpeedValue	シャッター速度	〃
  	5	&h829D	F Number	F値	F99.9
  		&h9202	Aperture Value	レンズ絞り値	〃
  	6	&h9204	Exposure BiasValue	露出補正値	{−/±/＋}9.9
  	7	&h8822	Exposure Program	撮影モード	{[M]/[P]/[A]/[S]/・・・Other}
  	8	&h9208	Light Source	光源	{自動/昼光/・・・Other}
  	9	&h9209	Flash	発光	発光していない場合は，Null
  	10	&hA405	Focal length in 35 mm film	35mm換算焦点距離	(99.9mm)
  		&h920A	FocalLength	焦点距離	99.9mm。内部に換算補正値があれば，[99.9mm]
  	11	&hA404	Digital zoom ratio	デジタル倍率	×9.9。倍率のない場合は，Null
  	12	&h9003	Date Time Original	撮影日時	YY/MM/DD hh:mm

• まだTIFF/RAW(SRF)内のタグの解析が済んでいないので途中までしか，GetExifTag関数がまだ完成していない。
• 今回は，そこまで・・・
• Function GetExifTag(p1, p2) Dim w90, w91, w92 Dim w80 As Long, w81, w82 As Long, w83 As Long Dim w70, w71, w72, w73, w74 Dim c, n, iC As Integer, iiC As Long w90 = 0 '戻り値を０ w80 = p2 'Pointer w81 = 0 'ビッグかリトルか iC = MM2Int(p1, w80): w80 = w80 + 2 If iC = &H4949 Then w81 = 1 'リトル II 80系 If iC = &H4D4D Then w81 = 2 'ビッグ MM x68系 iC = GetIM2(p1, w80, w81): w80 = w80 + 2 If iC <> &H2A Then Exit Function iiC = GetIM4(p1, w80, w81): w80 = p2 + iiC: w82 = w80 iC = GetIM2(p1, w80, w81): w80 = w80 + 2 'Exif IFD0 Count w91 = iC w82 = w80 If w91 = 0 Then Exit Function 'IFD0 For n = 1 To w91 iC = GetIM2(p1, w80, w81): w80 = w80 + 2 'Exif Tag Get w71 = iC c = t2(0): t2(c) = w71: t2(0) = c + 1 'Check Line Next w90 = w91 + w92 'Test check Line GetExifTag = w90 End Function
• 大きく分けて，２つのブロックになる。その一つ目にまでこぎ着けた。
• "'IFD0"のコメント行から下は，エラーになる。ナゼかは，見れば解ると思う。
• 今日はここまで。

• ただ今，Tiffタグを少し研究中。ボチボチやっています。E2C頁で変化がありました。

• ２／１で，最初にあるタグの頭まではいけるので，あとは，タグごとの意味取りしか残っていない。
• そこそこプログラミングができるモノには，雑作のないことと思う。
• 特に，問題となることはほとんど残っていないだろう。っうことで，この頁は一時休眠。
• 休んでいたこの一月の間に，続けろなんて，声も一度として聴かなかったからゴミ頁だね。

• GPSタグについて，「Exif02.10に含まれるGPS情報について」として概要をまとめはじめている。

• E0C20040607.ZIP(12KB)(2005/03/24公開停止)
• Exifタグの構造を自力で確かめるために，まず作ったExif0Clipの改造品ソース。
• 混沌としていて，これだけではコンパイルできないと思う。自分でもよく分からなくなった。

• 長く，うちゃってたのですが，なんかアクセスが少ないとはいえ，有るようなので。
• VB6サンプルの公開です。実行ファイルとソースが含まれています。
• RET.EXE
• 特定のフォルダー内にあるExif情報を含んだjpgファイルの日時情報から，Jpgファイルの名前を一気に変えるモノです。
• 自由に使って使ってもらって結構ですが，チェックを殆ど組み込んでいません。ナニが起きても責任は持てません。
• 以上のことをご理解した上でお使いクダサイ。
• お役に立った場合は，Ｅｘｉｆ２Ｃｌｉｐ修行場板に，ご一報いただくか，ご自身のサイトからリンクしていただけると幸いです。

サンプルとするファイルのヘキサダンプ

• "II"type Vol.1
• 

• "MM"type Vol.1
• 

• "II"type Vol.2
• 

• "MM"type Vol.2
• 

参考サイト

• Exif file format (http://www.ba.wakwak.com/~tsuruzoh/Computer/Digicams/exif.html)
• JEITA Web Site (http://www.jeita.or.jp/japanese/index.htm)