Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.04.2012, 22:24   #1
casio23
Форумчанин
 
Аватар для casio23
 
Регистрация: 29.12.2010
Сообщений: 186
По умолчанию Поиск лица

есть код на С + dll, помогите переделать код под делфи , а то в С не бум бум,кому надо могу скинуть демку и длл
Код:
#include "windows.h"
#include "loadbmp.h" // from http://gpwiki.org/index.php/LoadBMPCpp
#include "fdlib.h"

void main(int argc, char *argv[]) 
{
	int i, n, x[256], y[256], size[256], w, h, threshold;	
	BMPImg *bi;
	unsigned char *bgrdata, *graydata;
	
	if (argc==1)
	{
	    printf("usage: fdtest bmpfilename [threshold]\n");
	    exit(0);
	}
		
	bi = new BMPImg();
	printf("\nloading %s\n", argv[1]);
	bi->Load(argv[1]);
	w = bi->GetWidth();
	h = bi->GetHeight();
	printf("image is %dx%d pixels\n", w, h);
	bgrdata = bi->GetImg();
	graydata = new unsigned char[w*h];
	
	for (i=0; i<w*h; i++)
	{
	    graydata[i] = (unsigned char) ((.11*bgrdata[3*i] + .59*bgrdata[3*i+1] + .3*bgrdata[3*i+2]));
	    //if (i<10) printf("%d ", graydata[i]);	    
	}	
	
	threshold = argc>2 ? atoi(argv[2]) : 0;
	printf("detecting with threshold = %d\n", threshold);
	fdlib_detectfaces(graydata, w, h, threshold);	
		
	n = fdlib_getndetections();
	if (n==1)
	    printf("%d face found\n", n);
	else
 	    printf("%d faces found\n", n);		
	
	for (i=0; i<n; i++)
	{
	    fdlib_getdetection(i, x+i, y+i, size+i);
	    printf("x:%d y:%d size:%d\n", x[i], y[i], size[i]);
	}
	
	delete[] graydata;
	delete bi;
}
casio23 вне форума Ответить с цитированием
Старый 30.04.2012, 20:14   #2
denisbrain
Форумчанин
 
Регистрация: 29.05.2011
Сообщений: 449
По умолчанию

присылай посмотрим для саморазвития чисто
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype
denisbrain вне форума Ответить с цитированием
Старый 03.05.2012, 11:30   #3
casio23
Форумчанин
 
Аватар для casio23
 
Регистрация: 29.12.2010
Сообщений: 186
По умолчанию

Цитата:
присылай посмотрим для саморазвития чисто
http://www.fayloobmennik.net/1853049

Цитата:
Сообщение от denisbrain Посмотреть сообщение
присылай посмотрим для саморазвития чисто
ну и? кто подскажет как с этой библиотекой работать?

Последний раз редактировалось artemavd; 04.05.2012 в 19:49.
casio23 вне форума Ответить с цитированием
Старый 26.05.2012, 01:55   #4
casio23
Форумчанин
 
Аватар для casio23
 
Регистрация: 29.12.2010
Сообщений: 186
По умолчанию

решено!можно закрывать
casio23 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
3D шутер от 3-лица! cashmail Gamedev - cоздание игр: Unity, OpenGL, DirectX 7 17.04.2012 21:46
Распознание лица harkonen C# (си шарп) 0 27.02.2012 15:07
Распознавание лица Даниил_глазко Свободное общение 3 31.10.2011 15:01
Распознование лица с помощью веб камеры AndreyFreeman Мультимедиа в Delphi 5 28.09.2009 13:23
Камера от третьего лица в DirectX Pedro Gamedev - cоздание игр: Unity, OpenGL, DirectX 5 08.04.2009 15:51