VPF::Конвертация из С++ в Delphi - Форум программистов

ctranik

Дата 25.2.2009, 19:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 25.12.2005

Репутация: нет
Всего: нет

Всем здрасте

как я понимаю тип возвращемого значения "Integer", а что такое "CV_CDECL" ???,
и если можно перепешите под делфи.

Код


static int CV_CDECL icvUpdateGaussianBGModel( IplImage* curr_frame, 
CvGaussBGModel*  bg_model );

Тут я непонимаю что такое "CV_IMPL",и если можно перепешите под делфи.

Код


CV_IMPL CvBGStatModel*
cvCreateGaussianBGModel( IplImage* first_frame, CvGaussBGStatModelParams* parameters )

И здесь одни непонятки,правильно-ли я конвертировал из с++ в delphi

Код


sum_d2 += (d*d);//c++
sum_d2:=sum_d2+(d*d);//delphi

Это кусок из с++ файла:

Код


for( i = 1; i < bg_model_params->n_gauss; i++ )
    {
        double index = sort_key[i];
        for( j = i; j > 0 && sort_key[j-1] < index; j-- ) //sort decending order
        {
            double temp_sort_key = sort_key[j];
            sort_key[j] = sort_key[j-1];
            sort_key[j-1] = temp_sort_key;
            
            CvGaussBGValues temp_gauss_values = g_point->g_values[j];
            g_point->g_values[j] = g_point->g_values[j-1];
            g_point->g_values[j-1] = temp_gauss_values;
        }
//        sort_key[j] = index;
    }
А так я его конвертировал : 
i:=1;
while (i< bg_model_params.n_gauss) do begin
 index:= sort_key[i];
 j:= i;
 while ((j > 0)and(sort_key[j-1] < index)) do begin
  temp_sort_key:= sort_key[j];
  sort_key[j] = sort_key[j-1];
  sort_key[j-1] = temp_sort_key;
  temp_gauss_values:= g_point.g_values[j];
  g_point.g_values[j]:= g_point.g_values[j-1];
  g_point.g_values[j-1]:= temp_gauss_values;
 end;//while
 i:=i+1;
end;//while           Всё ли я правильно конвертировал ?

Заранее благодарен

Kirgston

Дата 25.2.2009, 19:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2

Код


var
i,j:integer;// j не известно какого типа... если он равняется i будем думать что integer
index,temp_sort_key:real;
temp_gauss_values:CvGaussBGValues;
begin
for i:=0 to i<bg_model_params.n_gauss do
begin
index:=sort_key[i];
for j:=i to (j>0) and (sort_key[j-1]<index do
begin
temp_sort_key:=sort_key[j];
sort_key[j]:=sort_key[j-1];
 {тут вроде обьявляется переменная... но этого типа я увы не знаю...}
temp_gauss_values:=g_point.g_values[i];
g_point.g_values[j]:=g_point.g_values[j-1];
g_point.g_values[j-1]:=temp_gauss_values;
end;
sort_key[j]:=index;
end;
end;

Вроде как-то так... пардон если не так...

Перед этим код правильный.
Два первых я не знаю smile

Snowy

Дата 25.2.2009, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Два первых ищи в хедерах.
Это кустомные вещи, определённые где-то через #define

Alexeis

Дата 25.2.2009, 22:02 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

CV_CDECL по всей видимости cdecl стандартная директива определяющая метод передачи параметров в функцию и очистку стека

CV_IMPL - похоже от слова Import, т.е. функция импортируемая из Dll. Типа делфийского external 'cvlib.dll'

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Snowy

Дата 25.2.2009, 22:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Похоже-то оно похоже.
Но лучше свериться с хедером - там точно прописано, что оно значит.
Если под это дело завели кустомные вещи, значит они там определены через IFDEF - то есть зависимы от компилятора, таргета или системы.

ctranik

Дата 26.2.2009, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 25.12.2005

Репутация: нет
Всего: нет

Snowy, привет

что значит

Цитата

кустомные вещи

Snowy

Дата 26.2.2009, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

От слово Custom.
Не встроенные в язык, а настроенные самостоятельно - ручками.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »