DelphiでOpenCV4 64Bit(参考)

259 views
Skip to first unread message

mbb...@ybb.ne.jp

unread,
Jul 26, 2023, 5:35:11 PM7/26/23
to radstu...@googlegroups.com
みなさんこんにちは
tonboです。

C#ではOpenCvSharpを使って、OpenCV4 64Bit版を簡単に導入できます。
でもDelphiでは、Web上にOpenCV4 64Bit版の情報がありません。
(需要がない?)
取り残されているようで焦り、以下でOpenCV4.7 64Bit版を組み込んでみました。
https://github.com/Laex/Delphi-OpenCV-Class

ただ、この通りではエラーになり、闇雲に色々なことをしました。
結果、うまくいき、全付属サンプルもコンパイルできました。

要望があれば、行ったことを書きます。
ただ不要なことを多く含んでいますので、詳しい方に整理頂ければと思います。

mam

unread,
Aug 5, 2023, 2:42:48 AM8/5/23
to Japan RAD Studio User Group
mamと申します。

情報ありがとうございます。
早速Delphiに組み込んでみました。
サンプルもコンパイルしてみました。
私の勉強不足のため、意味がよく分からないサンプルが多い印象があります。
これから勉強してみます。


とりあえずOpenCVで機械学習というのを試してみました。
で、機械学習結果のcascade.xmlファイルを使って領域検出させています。

ご参考まで。


2023年7月27日木曜日 6:35:11 UTC+9 mbb...@ybb.ne.jp:

mbb...@ybb.ne.jp

unread,
Aug 9, 2023, 7:41:37 AM8/9/23
to radstu...@googlegroups.com

mam

 

tonboです。

機械学習の手順、ありがとうございました。こちらでも動作しました。

今度、この方法で役立つものを作ってみたいです。

【参考】コンパイラで、「オーバーフローチェック」と

「範囲チェック」を入れると実行時に「整数オーバーフロー」が出ました。

 

mam様は導入時にコンパイルエラーは出ませんでしたか?

当方は、以下のようなことが必要でした。

・テキストファイルのLF -> CR LF

CVClass.pas3箇所に改行が抜けていたので追加。

    // ミ珮ⅳ・ 糂鮱澵隯 鵫粽・   

    function GetPropertiesClassName: string;

    // ム鰀萵褪 ・鈞・瑯・・・   

    procedure StartCapture;

    // ホ瑙珞・籵褪 ・顆赳褪 ・・   

    procedure StopCapture;

opt.incファイルの追加

jedi.incファイルの追加

・ライブラリパスで、Windows64bitに加え32bitにも同じpathの追加

(やはり必要でした)

CV.Resource.pasの「OpenCVRootPath」の修正(HPの指示通り)

 

PS: 「ネットワークカメラ映像をRTSPストリーミング再生」

動作しました。複数のカメラを指定して使えるので役立ちます。

ありがとうございます。

 

--------------------------------------------------

Sent: Saturday, August 5, 2023 3:43 PM

mam

unread,
Aug 11, 2023, 9:55:23 PM8/11/23
to Japan RAD Studio User Group
tonbo様

いつも情報ありがとうございます。
>コンパイルエラーは出ませんでしたか?
出ます。

ほぼすべてのファイルがLFなのは問題がないようですが、
CVClass.pasは、不明な文字コードの文字列が入っていてLFが2バイト文字の一部として認識され改行として認識されないようです。
sakuraエディタでCVClass.pasファイルを開いてCR+LFに変換しました。

>ライブラリパスで、Windows64bitに加え32bitにも同じpathの追加
はい、行いました。

>CV.Resource.pasの「OpenCVRootPath」の修正(HPの指示通り)
はい、行いました。

>PS:「ネットワークカメラ映像をRTSPストリーミング再生」
見ていただきありがとうございます。
最近はネットワークカメラが安価(TAPOなら4000円程度で販売されています)で入手できるのですが、専用アプリがスマホのみで不便ですよね。
専用スマホアプリのみだと静止画を切り出してサーバーに転送するとかもできないですし。

2023年8月9日水曜日 20:41:37 UTC+9 mbb...@ybb.ne.jp:

mbb...@ybb.ne.jp

unread,
Aug 12, 2023, 8:08:32 PM8/12/23
to radstu...@googlegroups.com

mam

返信ありがとうございます。

やはりそうなのですね。

 

ネットワークカメラですげ、当方は、導入したDelphi-OpenCv4.7

カメラの静止画をMatで切り出し、付属されていたTCVViewに表示しました。

(TImageにはMatは表示できない)

データベースへの保存方法は、これから考えようと思っています。

(Jpegファイルに変換して保存?Matのデータ部のみ保存?他?)

 

Tapoは電源を落とすとIPアドレスが変わるので、今後、

IPアドレスが固定できるカメラを確かめてみたいです。

--
このメールは Google グループのグループ「Japan RAD Studio User Group」に登録しているユーザーに送られています。
このグループから退会し、グループからのメールの配信を停止するには radstudio-jp...@googlegroups.com にメールを送信してください。
このディスカッションをウェブ上で閲覧するには https://groups.google.com/d/msgid/radstudio-jp/0a158c47-1d5a-411e-9447-75b97fb0f3ebn%40googlegroups.com にアクセスしてください。

Reply all
Reply to author
Forward
0 new messages