Работа с LPT

[xyz010]

Уважаемые форумчане здравствуйте!
Сразу к делу.
Нужно по LPT передать файл по байтно программа кампилится но во время работы выдает ошибку

Project xxxx raised exception class EAcessViolation with message 'AcessViolation at address 000000B1. Read of address 000000B1'.Process stopped. Use Step or Run to continue.

при отладке первый байт в порт передается а второй нет при чем не зависимо от куда брать данные хоть статические, хоть переменные, хоть в цикле, хоть просто два обращение подряд, задержка тоже не помогает.


При обращении напрямую к функциям out32 и Inp32 при линовке выдает ошибку. Unresolved external 'Out32' referenced from F:\PROJECTS\CF4.OBJ

extern "C"
{
 _stdcall Inp32(short PortAddr);
 _stdcall Out32(short PortAddress, short data);
 }

void __fastcall TForm1::LoadClick(TObject *Sender)
{
        AnsiString Name=Edit1->Text;
        FILE*f_param;
        f_param=fopen(Name.c_str(),"rb");
        if (f_param==0){
              ShowMessage(AnsiString("Файла ")+Name+AnsiString(" нет!!!"));
        }
        else{

             int i=0, aut_data=0;
             int*array_file;
             array_file=(int*)malloc(1572864);
             if(array_file==NULL){
                     MessageBox(NULL,"Error Memo","Error malloc",MB_OK);
                     exit;
             };
             while (!feof(f_param)){
                array_file[i]=fgetc(f_param);
                i++;
             }
             array_file=(int*)realloc(array_file,i+1);
             if(array_file==NULL){
                     MessageBox(NULL,"Error Memo ","Error realloc",MB_OK);
                     exit;
             };
             fclose(f_param);

             HINSTANCE hLib;// указатель на dll
             typedef void (_import * Output(int, int) ); // определяем тип для задания типа указателя :)
             Output *my_out; // Собственно, указатель нужного типа
             typedef short (_import * Input(int) );
             Input *my_in;

             hLib=LoadLibrary ("inpout32.dll");  // Грузим длл-ку
             if(hLib==NULL){
                  ShowMessage(AnsiString("Error Load inpout32.dll не работает "));
             }
             else{
                  my_out=(Output*) GetProcAddress (hLib, "Out32"); // указатель на функцию ввода в порт
                  if (!my_out){
                        MessageBox(NULL,"Error Load my_out","Error",MB_OK);
                        FreeLibrary(hLib);
                  }
                  else{
                        my_in=(Input*) GetProcAddress (hLib, "Inp32");   // указатель на функцию вывода из порт
                        if (my_in==NULL){
                             MessageBox(NULL,"Error Load my_in","Error",MB_OK);
                        }
                        else{
                                //сдесь код предачи данных в цикле
                            for(aut_data+=6;aut_data<i;aut_data++){
                               //Sleep(250);
                               my_out(888, array_file[aut_data]);
                            }
                        }
                  }

            }
            free(array_file);
        }


}

[Assemblerru]

я пробовал чтото подобное но нечего не получилось попробуй функцию описанную ниже: если получится то пиши

http://www.frolov-lib.ru

[f.hump]

А использование этой длл обязательно?
Эта длл только две функции экспортирует?
А порт открывать не надо?

А что должны возвращать функции из длл, или компилятор должен отгадать?
И еще, в декларации стоит short, а при вызове запихивается int. странно.