Delphi で OpenCV を使って顔認識する

OpenCV というライブラリがあるらしい。Intel が公開してる？詳しくは調べてないのでよくしらない... 画像処理関連のライブラリらしい。

で、そのライブラリの中に顔認識をする関数がある。それが流行ってるとかなんとか。とりあえず Delphi で使ってみた。

OpenCV.zip をダウンロード

OpenCV をダウンロードして、各種DLLがあるフォルダにパスを通しておく必要があるのと、haarcascade_frontalface_alt.xml を読み込むのでローカルに置くかパスを通しておく必要がある。

Web カメラとかがついた PC でコンパイル実行するとカメラからキャプチャした画像に対して顔認識を行います。カメラの制御も OpenCV にある関数を使ってます。

元ネタはだいぶ前に Web からダウンロードしてあったサンプル。2つのサンプルを組み合わせて作りました。たぶん、「delphiopencv」「opencvdelphi」ってキーワードでググるとそれぞれ2つのサンプルソースがダウンロードできるハズ。

で、それらから必要な部分を取り出して作ったのが上記 ZIP ファイル。

ユニットにある DLL 名は cv110.dll など、OpenCV version 1.10 に対応させてあります。コレ叩き台にだれか OpenCV の Delphi 用のヘッダもう少し整備してくれないかなーとか思ったり。僕の方でも時間あれば OpenCV.pas の更新はしようと思っています。