Переделать в код для Delphi

[Начинающий програм]

Всем доброго времени суток! Помогите пожалуйста переделать код с Си в Delphi.

/*----------------------------------------------------------------------------
*
* демонстрация ElByECC.DLL
* ========================
*
* данная программа демонстрирует работу с библиотекой ElByECC.DLL,
* генерируя избыточные коды Рида-Соломона на основе пользовательских данных,
* затем умышленно искажает их и вновь восстанавливает.
* кол-во разрушаемых байтов передается в первом параметре командной
* строки (по умолчанию - 6)
----------------------------------------------------------------------------*/
#include <stdio.h>
#include "ElByECC.h" // декомпилировано МЫЩЪХем

#define _DEF_DMG 6 // рушить по умолчанию
#define N_BYTES_DAMAGE ((argc > 1) ? atol(argv[1]) : _DEF_DMG) // сколько байт рушить?

main(int argc, char **argv)
{
       int a;
       char stub_head[HEADER_SIZE]; // заголовок сектора
       char user_data[USER_DATA_SIZE]; // область польз. данных

       struct RAW_SECTOR_MODE1 raw_sector_for_damage; // сектор для искажений
       struct RAW_SECTOR_MODE1 raw_sector_for_compre; // контрольная копия сектора

       // TITLE
       //------------------------------------------------------------------------
       printf("= ElByECC.DLL usage demo example by KK\n");

       // инициализация пользовательских данных
       //------------------------------------------------------------------------
       printf("user data initialize...............");
       for (a = 0; a < USER_DATA_SIZE; a++) user_data[a] = a; // user_data init
       memset(stub_head, 0, HEADER_SIZE); stub_head[3] = 1; // src header init
       printf("+OK\n");

       // генерация кодов Рида-Соломона на основе пользовательских данных
       //-----------------------------------------------------------------------
       printf("RS-code generate...................");
       a = GenECCAndEDC_Mode1(user_data, stub_head, &raw_sector_for_damage);
       if (a == ElBy_SECTOR_ERROR) { printf("-ERROR!\x7\n"); return -1;}
       memcpy(&raw_sector_for_compre, &raw_sector_for_damage, RAW_SECTOR_SIZE);
       printf("+OK\n");

       // умышленное искажение пользовательских данных
       //------------------------------------------------------------------------
       printf("user-data %04d bytes damage........", N_BYTES_DAMAGE);
       for (a = 0; a < N_BYTES_DAMAGE; a++) raw_sector_for_damage.USER_DATA[a]^=0xFF;
       if (!memcmp(&raw_sector_for_damage, &raw_sector_for_compre, RAW_SECTOR_SIZE))
              printf("-ERR: NOT DAMAGE YET\n"); else printf("+OK\n");

       // проверка целостности пользовательских данных
       //------------------------------------------------------------------------
       printf("user-data check....................");
       a = CheckSector((struct RAW_SECTOR *)&raw_sector_for_damage, ElBy_TEST_ONLY);
       if (a == ElBy_SECTOR_OK){
              printf("-ERR:data not damage\x7\n"); return -1;} printf(".data damge\n");

       // восстановление пользовательских данных
       //------------------------------------------------------------------------
       printf("user-data recorver.................");
       a = CheckSector((struct RAW_SECTOR *)&raw_sector_for_damage, ElBy_REPAIR);
       if (a == ElBy_SECTOR_ERROR) {
              printf("-ERR: NOT RECORVER YET\x7\n"); return -1; } printf("+OK\n");

       // проверка успешности восстановления
       //------------------------------------------------------------------------
       printf("user-data recorver check...........");
       if(memcmp(&raw_sector_for_damage, &raw_sector_for_compre, RAW_SECTOR_SIZE))
               printf("-ERR: NOT RECORVER YET\x7\n"); else printf("+OK\n");

       printf("+OK\n");
       return 1;
}

[Начинающий програм]

Вы меня извините, я не корректно задал вопрос или в чем причина?

[Stilet]

Вопрос вполне понятен, просто никто не хочет переделывать столько видимо

Кстати никто не сможет скорее всего переделать потому что:

#include "ElByECC.h" // декомпилировано МЫЩЪХем

А что это за хедер... Одному Крысу извесно

[Mad_Cat]

просто никто не хочет переделывать столько

Беззвозмедно - то есть Даром (с) Сова

видимо

Имхо

[Начинающий програм]

Беззвозмедно - то есть Даром (с) Сова

Имхо

А если не даром? Мне очень нужно реализовать код Рида Соломона именно в Delphi, в инете я нашел только на Си. А может у кого-то есть этот код?

[Начинающий програм]

Этот код я брал с сайта http://www.insidepro.com/kk/027/027r.shtml

[raxp]

Александр, вы хотя бы саму DLL-ку приложили в теме.

[Начинающий програм]

raxp, если я Вас правильно понял, то вы имели ввиду это?

[Начинающий програм]

Уважаемые программисты, мне очень нужно эту задачу решить. Скажите что еще от меня требуется, что бы Вы мне помогли?

[BDA]

На правах оффтопа:

реализовать код Рида Соломона

Так вот "это" не реализация,а подключение сторонних библиотек
Имхо, тоже самое что вместо программы, решающей квадратное уравнение, написать uses quadratic_equation.pas;
...
solve_equation(a, b, c);
...

По теме:
Ждем более опытных программистов