Delphi使いのナイトーです。

みなさん旅行日記や趣味の話題、いろいろなブログ楽しませていただきました！

社長からメール出ておりますがブログ大賞投票、奮ってご参加ください。

さて、今回は「趣味でプログラムを作ってみよう！」という内容です。

今回はここで使用する言語はWindowsのほか、MacやiOS、Androidのスマホにも対応したマルチプラットフォームにも対応、しかも無償版が公開されている『Delphi（デルファイ）』です。

自分の使っている言語がどの程度人気か気になりませんか？

たまに記事で見かけるプログラム言語の人気ランキング、TIOBEを見てみましょう。

→https://www.tiobe.com/tiobe-index/

人気ランキング2019年5月現在Delphiは12位、人気はVBより上みたいです。

集計方法もよくわからないので、あまり鵜呑みにしないでくださいね。

Delphiの無償版は『Delphi Community Edition』という名前で公開されてます。

機能制限も無いようですので、個人で早速ダウンロード、インストールしてみました。

→https://www.embarcadero.com/jp/products/delphi/starter

趣味のプログラミングは、思い立った時に作ることのできる手軽さは重要かと思います。

早速、今回のお題を。

楽曲のダウンロード販売で、ポイント還元に惹かれ調子に乗って買い過ぎてしまいました。

そして、ダウンロードしてみるとユーザから見て意味のない数字の羅列（図１）で、このままでは扱いづらい・・・図２の機能を持つツールを作ってみます。

画像や音楽ファイルには、付加情報が埋め込まれているフォーマットがあります。

たとえば・・・

JPEG画像にはGPS座標などの付与情報も入っていて、地域ごとに画像を分類するなど使えそうです。

そして、付与情報の取得方法としてパッと思いつくのは①、②の方法です。

今回は②の方法で取得します。

それぞれ、保存されている内容については検索サイトで検索してみて下さい。

私の場合、趣味のプログラムはGUIのプログラムを作成します。

GUIアプリケーションを作る方が出来上がりが想像でき、途中経過を見てモチベーションを保って作ることができるのでお勧めです。

機能を考え、テキストボックス（Edit）および、ボタン（Button）、リスト（ListBox）を配置して、今回は図５のような構成になりました。

今回メインとなる音楽ファイルからタグ情報を取得するにはShell32.dllに含まれる機能「GetDetailsOf」メソッドを使用します。「GetDetailsOf」を使用したソースコードは↓このようになります。

uses節には、Shell32_TLBを追加してください。　詳しくは全体のソースを見てみてください。

【関数】

---

// 音楽ファイルからタグ情報を取得する
function TForm1.getSongInfo(fileName: string):TSongInfo;
var
  shell      : TShell;
  folder     : Shell32_TLB.Folder;
  folderItem : Shell32_TLB.FolderItem;
begin

  // 対象ファイルのプロパティを取得
  shell     := TShell.Create(Self);
  folder    := Shell.NameSpace(ExtractFilePath(fileName));
  folderItem:= folder.ParseName(Extractfilename(fileName));

  // 取得したタグ情報をセットする
  result.artistName:= folder.GetDetailsOf(folderItem, 217);
  result.albumName := folder.GetDetailsOf(folderItem,  14);
  result.trackNum  := folder.GetDetailsOf(folderItem,  26);
  result.songName  := folder.GetDetailsOf(folderItem,  21);
end;

---