Работа с бинарным файлом без загрузки в оперативную память

                                               // глобальные переменные
DynamicArray<uint16_t> bt1;     //двоичные данные 1 канала
DynamicArray<uint16_t> bt2;    //двоичные данные 2 канала
DynamicArray<uint16_t> bt3;   //двоичные данные 3 канала
DynamicArray<int> ecg1;      //числовые данные 1 канала
DynamicArray<int> ecg2;     //числовые данные 2 канала
DynamicArray<int> ecg3;    //числовые данные 3 канала
long int fsize;           //количество отсчетов ; in3*6=размер файла(байт)
int in3 = 0;             //  1 - в записи есть 3 канал; 0 - без 3го канала
 
//---------------------------------------------------------------------------
 
{
FILE *fpl;
AnsiString filename;
if(OpenDialog1->Execute()){
  filename = OpenDialog1->FileName;
  fpl=fopen(filename.c_str(),"rb");
  fsize = (filelength(fileno(fpl)))/6;
bt1.Length = fsize;
bt2.Length = fsize;
bt3.Length = fsize;
uint8_t * buf = (uint8_t*) malloc(1);
rewind(fpl);
ecg1.Length = fsize;
ecg2.Length = fsize;
for(int i = 0; i<fsize; i++){
  fread(&buf, 1, 1, fpl);
  bt1[i]= uint8_t(buf);
  bt1[i]<<=8;
  fread(&buf, 1, 1, fpl);
  bt1[i]=bt1[i]+uint8_t(buf);
  ecg1[i]= int(bt1[i]);
  fread(&buf, 1, 1, fpl);
  bt2[i]= uint8_t(buf);
  bt2[i]<<=8;
  fread(&buf, 1, 1, fpl);
  bt2[i]=bt2[i]+uint8_t(buf);
  ecg2[i]= int(bt2[i]);
  fread(&buf, 1, 1, fpl);
  bt3[i]= uint8_t(buf);
  bt3[i]<<=8;
  fread(&buf, 1, 1, fpl);
  bt3[i]=bt3[i]+uint8_t(buf);}}
bt1.Length = 0;
bt2.Length = 0;
int L = 0;
for (int i=0; i<(fsize/144); i++)
  L=L+int(bt3[i]);
if (L>0){
  in3 = 1;
  ecg3.Length = fsize;
  for (int i=0; i<fsize; i++)
    ecg3[i]=int(bt3[i]);
  }
bt3.Length = 0;
}