[mohnaty_shmel]

Добрый день!

Есть библиотека написанная в visual studio 2008 с++ и нужно её подключить на дэлфи.

Начал я делать следующее:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

unit increase_h;   interface   const   dll = 'dll.dll';       procedure Get_image_size(input_frame: char;  width: integer; height: integer); stdcall;   procedure Read_image(fname: char;  pdat: Byte); stdcall;   procedure Cal_psnr(pOrig: Byte;  pImg: Byte;  width: integer;  height: integer); stdcall;   function Write2PGM(pImg: Byte;  width: integer;  height: integer;  fname: char): pImg; stdcall;     implementation   procedure  Get_image_size; external dll; procedure  Read_image; external dll; procedure  Cal_psnr; external dll; function  Write2PGM; external dll; procedure  read_header; external dll; procedure  Downsampling; external dll procedure  Bicubic; external dll; procedure  NL_filtering; external dll; procedure  Fast_Motion_estimation; external dll; procedure  Data_fusion; external dll; procedure  Cal_SAD_New; external dll; procedure  NL_Backprojection; external dll; procedure  Add_error; external dll; procedure  Norm2; external dll; procedure  Diff_Norm2; external dll; procedure  Float2uchar; external dll; procedure  Blurring; external dll; procedure  Error_image; external dll; procedure  Bicubic_float; external dll; procedure  Data_fusion_float; external dll;   end.

У меня возникли ошибки, похоже неправильно определил входные и выходные параметры, помогите пожалуйста разобраться :3

А вот основной кусок кода из dll библиотеки:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83

int main(int argc, char* argv[]) {     int                  i, j, width, height, maxval, comp, lwidth, lheight, row, col, scale;     unsigned char        *hr_im, *ori_im, *lr_im;     unsigned char        temp;     double               psnr1;     FILE                 *fp;     int                  *g_mvx[ N ], *g_mvy[ N ];     float                *g_mse[ N ];         if( argc<3 )     {         printf("Usage: NL_Backprojection  LR_image(pgm)  HR_image(pgm)  [Original_image(pgm)]  \n");         return 1;     }     scale    =  2;         if ( Get_image_size( argv[1], &lwidth, &lheight ) )     {         printf( "Can not read %s", argv );         return 1;     }         width       =  lwidth*scale;     height      =  lheight*scale;     hr_im       =  (unsigned char*) malloc( sizeof(char)*width*height );     ori_im      =  (unsigned char*) malloc( sizeof(char)*width*height );     lr_im       =  (unsigned char*) malloc( sizeof(char)*lwidth*lheight );         Read_image( argv[1], lr_im );         printf( "Start to processing %s\n", argv[1] );       Bicubic( lr_im, hr_im, scale, lwidth, lheight );     Write2PGM( hr_im, width, height, "Bic_image.pgm" );         if ( argc >3 )     {         Read_image( argv[3], ori_im );         printf( "Bicubic, PSNR = %f\n", Cal_psnr( ori_im, hr_im, width, height ) );     }           for ( i = 0; i < N; i ++ )     {         g_mvx[ i ]    =  (int*) malloc( sizeof(int)*width*height );         g_mvy[ i ]    =  (int*) malloc( sizeof(int)*width*height );         g_mse[ i ]    =  (float*) malloc( sizeof(int)*width*height );     }       NL_filtering( hr_im, width, height, g_mvx, g_mvy, g_mse );       NL_Backprojection( hr_im, width, height, ori_im, g_mvx, g_mvy, g_mse, argc );       if ( argc > 3 )     {         printf( "After Backprojection, PSNR = %f\n", Cal_psnr( ori_im, hr_im, width, height ) );     }         printf("\nWrite to file: %s.\n",argv[2]);     Write2PGM( hr_im, width, height, argv[2] );         free( hr_im );     free( ori_im );     free( lr_im );       for ( i = 0; i < N; i ++ )     {         free( g_mvx[ i ] );         free( g_mvy[ i ] );         free( g_mse[ i ] );     }     return 0; }

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

[Bargest]

Ну а где объявления функций из библиотеки? Мейн-то тут зачем? Вполне возможно, что не верно соглашение вызова.

[mohnaty_shmel]

вот я пытался объявить функции, но не вышло

Код:

1 2 3 4

procedure Get_image_size(input_frame: char;  width: integer; height: integer); stdcall;  procedure Read_image(fname: char;  pdat: Byte); stdcall;  procedure Cal_psnr(pOrig: Byte;  pImg: Byte;  width: integer;  height: integer); stdcall;  function Write2PGM(pImg: Byte;  width: integer;  height: integer;  fname: char): pImg; stdcall;

[Bargest]

...

Код:

1 2 3 4

while (not дошло) do begin   дошло := перечитать_сообщение(#2); end;

Еще раз спрашиваю: где объявление функций из библиотеки? Не то, которое не работает, а то, которое в рабочем сишном коде.

[Alegun]

Я в сиплюсах полный ноль, может ошибаюсь, но выходит что вот эта строчка в main()

Код:

1	int main(int argc, char* argv[])

подразумевает

на счет этих двух параметров
argc значит argument count.
argv значит argument vector.
argv[0] всегда имя программы, и argc как минимум единица.
argv[argc] всегда NULL...

в смысле - это аналогиня делфийского ParamStr() и она (это же как бы стринговая многострочная переменная) должна быть как PChar,а не просто отдельный символ char, наверное

[mohnaty_shmel]

Вот мой сишный проект(состоит из двух папок). Извиняюсь за тупость, не сразу понял какие функции Вы имеете в виду.

[Bargest]

1) Никогда не запихивай в архив .ncb или .sdf файлы. От них толку нет никакого, и при этом занимают они 99.999999% размера проекта.
2) В этом китайском проекте прописано:

Код:

1	__declspec(dllexport) int Get_image_size ( char *input_frame, int *width, int *height );

Соглашение вызова не указано. По дефолту в сях соглашение - cdecl, а не stdcall, если ничего не химичили в настройках (а автор, т.е. Weisheng Dong, вполне мог и нахимичить). Параметры - char * и int *, что означает "указатель на символы" (строка) и "указатель на целое". А потому объявление, скорее всего, будет выглядеть примерно так:

function Get_image_size(input_frame: PChar; width: ^Integer; height: ^Integer): integer; cdecl;

остальные по аналогии.

ЗЫЖ dll-ка в dll\Debug какая-то покоцанная, без экспортов. В NL_Back_projection2\debug\dll.dll при этом вроде нормальная.

[mohnaty_shmel]

Спасибо за помощь) про архив запомню

[mohnaty_shmel]

Надеюсь та, которая NL_Back_projection2\debug\dll.dll будет работать, её я так же с помощью Форумчан делал