Discussion :

[rdr2510]

J'ai mis ce code pour implémenter OpenCV avec Delphi

Version OpenCV: 2.3

Version Delphi 7 (je n'ai pas encore testé avec Delphi 8, ....XE2)
Si quelqu'un teste avec d'autres versions de Delphi, je suis preneur.

Contenu du fichier
- Les fichiers binaire ".dll" OpenCV 2.3

- Les fichiers entêtes ".pas" contenant les fonctions et procédures
* OpenCV_Core.pas
* OpenCV_ImgProc.pas
* OpenCV_Legacy.pas
* OpenCV_HighGui.pas
* OpenCV_Types.pas
* OpenCV_Utils.pas
* OpenCV_MachineLearning.pas
* OpenCV_GPU.pas
* OpenCV_Features.pas
* OpenCV_ObjDetect.pas
* OpenCV_Video.pas
* OpenCV_Calibration.pas

- Les Exemples démontrant l'utilisation en Delphi.
J'ai mis des exemples juste pour démontrer que ça marche parfaitement.
Cet exemple n'est pas parfait mais il fonctionne.
* ANPR
* BackGround Substraction
* Canny
* Compare Histogram
* Drawing Histogram
* Find Object
* Machine Learning (KNearest)
* Match Template
* Motion Detection
* OCR
* Segmentation (Sobel, Laplace, ....)
* Snake
* Threshold
* Track Corner
* Tracking Face, Mouth, Eye

Un autre problème que j'ai rencontré c'est d'utiliser les class C++ en Delphi, donc j'ai trouver une solution de créer une fichier OpenCV_Class.dll pour faire l'interface sur les class C++.

Un autre problème aussi d'utiliser les fonction GPU en Delphi. Je ne sais pas comment on convertit les templates <> en Delphi.

Fichier d'entête: https://docs.google.com/file/d/0BwaH...it?usp=sharing

Fichier Binaire Dll: https://docs.google.com/file/d/0BwaH...it?usp=sharing

Example Demo:
- Track Face, Mouth, Eye: https://docs.google.com/file/d/0BwaH...it?usp=sharing
- Track corner: https://docs.google.com/file/d/0BwaH...it?usp=sharing
- Threshold: https://docs.google.com/file/d/0BwaH...it?usp=sharing
- Snake: https://docs.google.com/file/d/0BwaH...> usp=sharing
- Segmentation(Sobel, Laplace, ...): https://docs.google.com/file/d/0BwaH...it?usp=sharing
- OCR: https://docs.google.com/file/d/0BwaH...it?usp=sharing
- Motion Detect: https://docs.google.com/file/d/0BwaH...it?usp=sharing
- Match Template: https://docs.google.com/file/d/0BwaH...it?usp=sharing
- Machine Learning (KNearest): https://docs.google.com/file/d/0BwaH...it?usp=sharing
- Find Object: https://docs.google.com/file/d/0BwaH...it?usp=sharing
- Drawing Histogram: https://docs.google.com/file/d/0BwaH...it?usp=sharing
- Canny: https://docs.google.com/file/d/0BwaH...it?usp=sharing
- Background substractor: https://docs.google.com/file/d/0BwaH...it?usp=sharing
- ANPR: https://docs.google.com/file/d/0BwaH...it?usp=sharing

Document OpenCV (en C++): https://docs.google.com/file/d/0BwaH...it?usp=sharing

Data pour HaarClassified: https://docs.google.com/file/d/0BwaH...it?usp=sharing

Si vous trouvez d'autres améliorations, envoyez-les moi au rdr2510@gmail.com

[ShaiLeTroll]

Tu pourais nous traduire cela sous la forme d'un tutoriel avec les fichiers hébergés sur Developpez.com et non sur Google, tout le monde n'a pas forcément un compte gmail !

[rdr2510]

OK, mais il y a des fichier sont trop lourd, comment on fait pour faire ça sur developpez.com

[Rayek]

Ici : http://www.developpez.com/hebergement/

[[ZiP]]

Bonjour,

Je n'arrive pas à accéder aux fichiers pour tester cette superbe contribution !

Cordialement,
ZiP

[Cl@udius]

Je n'arrive pas à accéder aux fichiers pour tester cette superbe contribution !

Moi non plus ! C'est dommage.

[Bernard B]

Il faut être invité, j'ai demandé...
j'attends..

[[ZiP]]

Bonjour Bernard,

J'attends également!

Cordialement,

ZiP

[rdr2510]

Ecoutez les gars, je suis en train de préparer pour les envoyer les fichiers, veillez patientez un peu.

J'ai pas beaucoup de temps aussi puisque je travaille en même temps.

[Bernard B]

OK pas de soucis.
Pour la bonne cause il est toujours possible de patienter
Merci d'avance pour le boulot

[[ZiP]]

Bonjour,

Message bien reçu !

Merci d'avance !

ZiP

[rdr2510]

Bonjour,

Comme j'ai promis, j'ai mis sur un serveur FTP les fichiers.

Librairie d'entête:
http://rdr2510.site88.net/Files_Upload/Lib/Lib.rar
Fichier Dll OpenCV 2.3:
http://rdr2510.site88.net/Files_Upload/Bin/Bin.rar
Exemples Demos:
http://rdr2510.site88.net/Files_Upload/Demos/
Fichiers Ressources Demos:
http://rdr2510.site88.net/Files_Uplo.../Resources.rar

Merci à Rayek de me proposer l'hébergement sur developpez.com mais c'est trop difficile leurs conditions. J'ai pas trop de temps pour élaborer un tutoriel pour ça. Je veux juste mettre en ligne ce que j'ai fait pour le partager. A vous de me retourner pour amélioration.

En fait je connais pas trop C++, je sais développer en Delphi. Vu que dans mon boulot on a besoin de développer un logiciel de vidéo analytique pour une camera de surveillance alors on s'est tourné vers openCV pour trouver la solution. Mais OPENCV avec delphi ????

J'ai essayé de trouver la combinaison compléte avec OpenCV + Delphi sur le net surtout avec Mr Google mais pas trop satisfaisante.
Alors j'ai essayé de trouver une solution pour que je puisse utiliser OpenCV avec Delphi.

Problèmes rencontrés
J'ai affronté beaucoup de problème pour convertir du code C++ vers delphi. Par exemple pour convertir les Templates <> ou liste collection C++ en Delphi 7.
Jusqu'à maintenant j'ai pas encore réuissi, surtout pour convertir le OpenCV_GPU, .... qui utilise pas mal cette méthode pour retourner des listes de valeurs.

J'ai mis pas mal de journées, de mois, pour convertir les fichiers parce qu'il faut apprendre aussi C++, faire des recherches pour comprendre sa logique et trouver son équivalent en Delphi. Il faut faire beaucoup de tests aussi.

Par exemple, pour moi c'est vraiment difficile d'utiliser les class exporter C++ en delphi 7. La solution que j'ai trouvée est de créer une dll C++ qui traduit les class en fonctions simples faciles à exporter. Vous pouvez voir par exemple dans OpenCV_ML.pas.
Si quelqu'un a d'autre idées pour l'utilisation de class C++ en delphi 7 ?

Si quelqu'un peut voir aussi si c'est un bug OpenCV ou bien juste j'ai mal converti la fonction cvGetSize : ça donne une erreur exception (je sais pas pourquoi ??)

Pourquoi j'ai utilisé OpenCV 2.3,
Au début j'ai utilisé OpenCV 2.1 et ça marchait bien avec delphi 7, comme il y a beaucoup de fonctions et procédures avancées dans la version OpenCV 2.2, alors j'ai migré vers OpenCV 2.2 or j'ai remarqué qu'il y a des bugs avec cette version (je ne me rappelle plus quels bugs), aussi j'ai migré vers OpenCV 2.3.
J'ai resté avec cette version parce que la version 2.4 est vraiment changée, utilise beaucoup, beaucoup les templates <>, list, iterator.... que j'ai exposé ci-dessus.

Les exemples Demonstrations
Les exaeples que j'ai mis sont juste pour montrer que ça marche avec Delphi 7.
Je vais mettre prochainement d'autres exemples, mais il faut que je récupère dans mon disque dur archive à la maison.
Background substractor MOG 2, codeBook, SURF, utilisation XML pour stocker des données, petit example de ANPR, .....

Les Fichiers entêtes
Il y a encore des fonctions et procedures que je n'ai pas encore converties, faute de temps. J'irai poster prochainement aussi quand j'aurai fini par exemple dans le fichier OpenCV_Legacy et les fonctions inline.

J'attends vos avis. Merci à tous

[Bernard B]

Super boulot
Je plonge là dedans, mais je ne sais pas quand je vais pouvoir refaire surface

Encore merci

[Bernard B]

J'ai fait quelques essais vite fait.
J'ai pu lancer Project1.exe inclu dans la répertoire Bin.

Par contre il m'a fallut récupérer en plus 3 dll :
- mfc100ud.dll
- msvcr100d.dll
- msvcp100d.dll

Prochaine étape compiler un exemple...

[Bernard B]

Essais de l'exemple "Drawing Histogram" qui m'intéresse particulièrement.

Compilation et lancement avec DXE2 : OK.
Par contre, cvLoadImage retourne toujours Nil quelque soit le type d'image
chargée png ou jpg
Pas d'erreur remontée.

[rdr2510]

Essais de l'exemple "Drawing Histogram" qui m'intéresse particulièrement.

Compilation et lancement avec DXE2 : OK.
Par contre, cvLoadImage retourne toujours Nil quelque soit le type d'image
chargée png ou jpg
Pas d'erreur remontée.

Attention! avec Delphi XE2 pour utilisation pChar doit être en pAnsiChar, peut être à cause de ça.

[Bernard B]

PWideChar ou PAnsiChar ne change rien au problème...

[Paul TOTH]

Bonjour,

Alors pour utiliser des objets C++ sous Delphi, c'est "possible" mais particulièrement compliqué. J'ai exploré tout cela à l'époque de Kylix et de l'interface QT qui est nativement objet. Il faut déclarer toutes les fonctions exportées par les DLL C++ qui sont généralement "manglées" pour construire une structure équivalente à l'objet C++.

le fruit de mes travaux de l'époque est ici.

L'approche plus traditionnelle est en effet d'utiliser un wrapper C qui remplace toute référence à une objet C++ par un THandle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
function CreateObject: THandle;
begin
  Result := THandle(TObjet.Create);
end;
 
procedure FreeObject(Handle: THande);
begin
  TObject(Handle).Free;
end;

note que la DLL peut très bien utiliser des pointeurs object, c'est au niveau de l'interface Delphi qu'on indiquera THandle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
// côté DLL
function CreateObject: TObject;
begin
  Result := TObjet.Create;
end;
 
procedure FreeObject(Object: TObject);
begin
  Object.Free;
end;
 
// côté EXE
function CreateObject: THandle; external 'lib.dll';
procedure FreeObject(Handle: THandle); external 'lib.dll';

[bbloopp]

Bonjour,

Comme j'ai promis, j'ai mis sur un serveur FTP les fichiers.

Librairie d'entête:
http://rdr2510.site88.net/Files_Upload/Lib/Lib.rar
Fichier Dll OpenCV 2.3:
http://rdr2510.site88.net/Files_Upload/Bin/Bin.rar
Exemples Demos:
http://rdr2510.site88.net/Files_Upload/Demos/
Fichiers Ressources Demos:
http://rdr2510.site88.net/Files_Uplo.../Resources.rar

Salut
il semble que ces liens ne sont pas actifs. sont-ils?

[PhilLU]

Salut
il semble que ces liens ne sont pas actifs. sont-ils?

Exact, les liens sont morts :-/
Je suis surpris qu'il n'y ai pas plus d'intérêt à intégrer OpenCV pour Delphi
Si quelqu'un a d'autres solutions ou liens ...
d'avance