なでしこ開発:日本語プログラミング言語

Exif関連情報

FrontPage

• Exif 関連情報
  • http://park2.wakwak.com/~tsuruzoh/Computer/Digicams/exif.h..
  • http://hp.vector.co.jp/authors/VA032610/JPEGFormat/AboutEx..
• 仕様書(よく場所が変わるので)
  • http://www.google.co.jp/search?hl=ja&q=Exifj.pdf
• 良く分かる
  • http://park2.wakwak.com/~tsuruzoh/Computer/Digicams/exif.h..
  • 上記から抜粋したExcelファイル(IEとExcelの連携は完ぺきか！！)

以下、CSVからDelphiのソースを生成するスクリプト

場所=""
タグ=""
タイプ＝「」
名前＝「」
個数＝「」
名前定数＝「」
重複＝「」
「exif_tags.csv」を開く
ＣＳＶ取得
反復
　　＃
　　V=「{対象\1}」の「0x」を「$」に置換
　　場所に(「F_{対象\0}」)を配列追加
　　タグに(V)を配列追加
　　名前に(「'{対象\2}'」)を配列追加
　　タイプに(タイプチェック(対象\3))を配列追加
　　個数に(INT(対象\4))を配列追加
　　もし、重複＠Ｖ＝１ならば、続ける
　　重複＠Ｖ＝１
　　名前定数＝名前定数＆「  EXIFTAG_{対象\2}={V};」＆改行

Ｆ場所＝場所を「,」で配列結合
Ｆタグ＝タグを「,」で配列結合
Ｆ名前＝名前を「,{改行}」で配列結合
Ｆタイプ＝タイプを「,」で配列結合
Ｆ個数＝個数を「,」で配列結合
C=場所の要素数

「
unit unit_exif_taglist;
interface
const
  F_IFD0   = 0;
  F_SubIFD = 1;
  F_IIFD   = 2;
  F_IFDx   = 3;
const
  F_EXIF_PLACE: array[0..{C-1}]of Integer = ({F場所});
  F_EXIF_TAG  : array[0..{C-1}]of Integer = ({Fタグ});
  F_EXIF_TYPE : array[0..{C-1}]of Integer = ({Fタイプ});
  F_EXIF_COUNT: array[0..{C-1}]of Integer = ({F個数});
  F_EXIF_NAME : array[0..{C-1}]of String = ({F名前});
const
{名前定数}

implementation
end.
」を「unit_exif_taglist.pas」へ保存
終わる。

●タイプチェック(T)
    T=Ｔを小文字変換
　　それは１００
　　もし、T=「unsigned byte」ならば、それは１
　　もし、T=「ascii strings」ならば、それは２
　　もし、T=「ascii string」ならば、それは２
　　もし、T=「unsigned short」ならば、それは３
　　もし、T=「unsigned long」ならば、それは４
　　もし、T=「unsigned short/long」ならば、それは４
　　もし、T=「unsigned rational」ならば、それは５
　　もし、T=「signed byte」ならば、それは６
　　もし、T=「undefined」ならば、それは７
　　もし、T=「signed short」ならば、それは８
　　もし、T=「signed long」ならば、それは９
　　もし、T=「short or long」ならば、それは９
　　もし、T=「signed rational」ならば、それは１０
　　もし、T=「single float」ならば、それは１１
　　もし、T=「double float」ならば、それは１２
　　＃
　　もし、それ＝１００ならば
　　　　Ｔを言う。