Необработанное исключение по адресу 0x799792C0 (ucrtbased.dll) в tester.exe: 0xC0000005: нарушение прав доступа при чтен

#include <iostream>
#include <fstream>
#include <cstdio>
#include <string>
 
#include "modelA.h"
#include "compressor.h"
#include "decompressor.h"
 
struct my_model : public modelA<int>
{
  void pacify(){}
  void frozen(){}
};
 
int validate( const std::string &input_file,
              const std::string &compressed_file,
              const std::string &output_file,
              double &bpb );
 
int main(int argc, char* argv[])
{
  try {
    std::cout << "compressing " << argv[1] << "... " << std::flush;
    std::ofstream output1("temp.ari", std::ofstream::binary);
    std::ifstream input1(argv[1], std::ifstream::binary);
    my_model cmodel;
 
    compress(input1, output1, cmodel);
    output1.close();
 
    std::ifstream input2("temp.ari", std::ifstream::binary);
    std::ofstream output2("temp.out",std::ofstream::binary);
    cmodel.reset();
    decompress(input2, output2, cmodel );
    output2.close();
 
    double bpb;
    int result = validate(argv[1], "temp.ari", "temp.out", bpb);
    std::cout << bpb << "\n";
    return 0;
  }
  catch (std::exception &ex)
  {
    std::cerr << "Failed with exception: " << ex.what() << "\n";
  }
  return 255;
}
 
int validate( const std::string &input_file,
              const std::string &compressed_file,
              const std::string &output_file,
              double &bpb )
{
  bool verbose = false; 
 
  std::ifstream in(input_file.c_str(), std::ifstream::binary);
  if ( !in ) {
    std::cout << "validate error opening inptut file: " << input_file << "\n";
    return 255;
  }
  std::ifstream compressed(compressed_file.c_str(), std::ifstream::binary);
  if ( !compressed ) {
    std::cout << "validate error opening compressed file: " << compressed_file << "\n";
    return 255;
  }
  std::ifstream out(output_file.c_str(), std::ifstream::binary);
  if ( !out ) {
    std::cout << "validate error opening output file: " << output_file << "\n";
    return 255;
  }
  in.seekg(0,std::ios::end);
  out.seekg(0,std::ios::end);
  compressed.seekg(0,std::ios::end);
  auto in_length = in.tellg();
  auto out_length = out.tellg();
  auto compressed_length = compressed.tellg();
  in.seekg(0,std::ios::beg);
  out.seekg(0,std::ios::beg);
  if ( verbose )
    std::cout << "input length: " << in_length << "\n"
              << "output length: " << out_length << "\n"
              << "compressed length: " << compressed_length << "\n";
  if ( in_length != out_length ) {
    std::cout << "Error, input file and output file have different lengths\n";
    return 255;
  }
  if ( static_cast<long long>(in_length) == 0 )
    bpb = 8.0;
  else
    bpb = compressed_length * 8.0 / in_length;
  if ( verbose )
    std::cout << "Compressed to " << bpb << " bits per byte\n";
  int c1;
  int c2;
  while ( c1 = in.get(), c2 = out.get(), c1 != -1 || c2 != -1 ) {
    if ( c1 != c2 ) {
      int i = 1;
      std::cerr << "Error comparing at position: " << (std::streamoff(in.tellg()) - 1) << "\n";
      return 255;
    }
  }
  if ( verbose )
    std::cout << "Comparison passed!\n";
  return 0;
}

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
TMemoryStream *MS  = new TMemoryStream;
TStringList *SL = new TStringList;
TStringList *SL2 = new TStringList;
TStringList *request = new TStringList;
String site, path, path2;
int days[12] = {31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};  // кол-во дней в месяцах
int current_record;
bool change_proxy = 1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  int outer_radius = 22, inner_radius = 12, beam_count = 10;
  TColor fill_color = clBtnFace, outline_color = clGray;
  star(Image, TPoint(Image->Width / 2, Image->Height / 2), outer_radius, inner_radius, beam_count, fill_color, outline_color);
 
  HTTP->Request->Host = "www.mrkoll.se";
  HTTP->Request->Referer = "https://www.mrkoll.se";
  HTTP->Request->Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
  HTTP->Request->UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:69.0) Gecko/20100101 Firefox/69.0";
  HTTP->Request->ContentType = "application/x-www-form-urlencoded";
  HTTP->Request->AcceptLanguage = "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3";
  HTTP->Request->AcceptEncoding = "gzip, deflate";
  HTTP->Compressor = CompressorZLib;
  HTTP->Request->Connection = "keep-alive";
  HTTP->Request->CustomHeaders->Clear();
  HTTP->Request->CustomHeaders->AddValue("Upgrade-Insecure-Requests", "1");
 
  // загрузка параметров
  path = ExtractFileDir(ParamStr(0));
  if (FileExists(path + "\\options.txt"))
  {
    Memo->Lines->LoadFromFile(path + "\\options.txt");
    ComboBoxSex->ItemIndex = Memo->Lines->Strings[0].ToIntDef(0);
    Edit_dd->Text = Memo->Lines->Strings[1];
    Edit_mm->Text = Memo->Lines->Strings[2];
    Edit_yyyy->Text = Memo->Lines->Strings[3];
    current_record = Memo->Lines->Strings[4].ToIntDef(0);
  }
}
//---------------------------------------------------------------------------
String TForm1::GetData(TStringList *request, String site)  // отправка запроса к веб-странице / получение страницы
{
  MS->Clear();
  HTTP->Post(site, request, MS);
  MS->Position = 0;
  SL->LoadFromStream(MS);
  SL->Text = UTF8ToString(SL->Text);
  return SL->Text;
}
//---------------------------------------------------------------------------
String TForm1::BaseSearch(String number)  // получение общих данных
{
  // пример: 19511228%2D0424
  site = "https://mrkoll.se/resultat?n=" + number + "&c=&min=16&max=120&sex=a&c_stat=all&company=";
  return GetData(request, site);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtnSearchClick(TObject *Sender)
{
  try
  {
    Timer->Enabled = 0;
    Tag ^= 1;  // "изменение флажка"
    Work();  // интерфейс
    StatusBar->Panels->Items[0]->Text = "Status";
 
    int d = Edit_dd->Text.ToIntDef(0);
    int m = Edit_mm->Text.ToIntDef(0);
    int y = Edit_yyyy->Text.ToIntDef(0);
 
    // пока флажок активен и дата не больше 31 декабря 2000 года
    while (Tag && d <= 31 && m <= 12 && y <= 2000)
    {
      if (d == 29 && m == 2 && !IsLeapYear(y))
      {
        Edit_dd->Text = "01";
        Edit_mm->Text = "03";
      }
 
      // счетчик записей
      int count;
      // разделители столбцов данных и полей даты
      wchar_t delimiter_data = FormatSettings.ListSeparator, delimiter_date = '.';
//    wchar_t delimiter_data = ',', delimiter_date = '.';
 
      // пути к программе и директории номеров SSN
      path = ExtractFileDir(ParamStr(0)), path2 = path + "\\" + ComboBoxSex->Text.Trim() + "\\" + Edit_yyyy->Text + "\\SSN";
      // загрузка из файла (если он есть)
      path2 = path2 + "\\" + Edit_dd->Text + delimiter_date + Edit_mm->Text + ".txt";
      if (FileExists(path2))
        MemoNumber->Lines->LoadFromFile(path2);  // , TEncoding::UTF8
 
//    if (!current_record)  // если текущая запись имеет номер 0
      {
        Memo->Clear();
        // шапка данных
        Memo->Lines->Add(String("name") + delimiter_data + "dob" + delimiter_data + "address" + delimiter_data + L"län" +
                         delimiter_data + "ssn");
      }
      if (current_record)  // если текущая запись имеет номер > 0
      {
        // пути к программе и директории номеров PEOPLE
        path = ExtractFileDir(ParamStr(0)), path2 = path + "\\" + ComboBoxSex->Text.Trim() + "\\" + Edit_yyyy->Text + "\\PEOPLE";
        // загружаем из файла (если он есть)
        path2 = path2 + "\\" + Edit_dd->Text + delimiter_date + Edit_mm->Text + ".csv";
        if (FileExists(path2))
          Memo->Lines->LoadFromFile(path2, TEncoding::UTF8);
      }
 
      for (int i = current_record; i < MemoNumber->Lines->Count; i++)
      {
        current_record = i;
 
        if (!Tag)
          break;
 
        Timer2->Enabled = 1;
 
        count = 0;
 
        String num = String(random(10));
        String a[4] = {"Mozilla", "Opera", "Internet", "Google"}, b[4] = {"Firefox", "Opera", "Explorer", "Chrome"};
        int num1 = random(5), num2 = random(5);
        HTTP->Request->UserAgent = a[num1] + "/5.0 (Windows NT 6.1; rv:6" + num + ".0) Gecko/20100101 " + b[num2] + "/6" + num + ".0";
 
        SleepEx(10, 1);
 
        // получение основных данных
        SL2->Text = BaseSearch(MemoNumber->Lines->Strings[i]);
 
        EditNumber->Text = "record: " + String(i + 1) + " / " + String(MemoNumber->Lines->Count) + ", number: " + MemoNumber->Lines->Strings[i];
        Application->ProcessMessages();
 
        if (HTTP->Response->Location.Pos("/om/limit"))
        {
          Timer2->Enabled = 0;
//        Beep(2000, 2000);
          ShellExecuteW(NULL, L"open", L"C:\\911S5\\ProxyTool\\AutoProxyTool.exe", L"-changeproxy/SE", NULL, SW_SHOWNORMAL);
//        MessageBoxW(Application->Handle, String("Your IP is blocked. Programm is stopped.").w_str(), L"Error", MB_OK+MB_ICONWARNING);
//        BitBtnSearch->Click();
          StatusBar->Panels->Items[0]->Text = "Your IP is blocked. Proxy is changed.";
 
          Tag = 0;
          Timer->Enabled = 1;
          Work();
          BitBtnSearch->Caption = "S T A R T";
          BitBtnSearch->Font->Color = clGreen;
 
          break;
        }
 
        if (SL2->Text.Pos(L"Sökningen gav 1 träffar"))
        {
          String name, dob = Edit_dd->Text + delimiter_date + Edit_mm->Text + delimiter_date + Edit_yyyy->Text;
          String address, index_city, city, region, ssn = MemoNumber->Lines->Strings[i];
 
          //  полное имя
 
          //  <span class="namnSpan"><strong>Madeleine Mia Elisabeth</strong></span>
          //  <span class="namnSpan"></span>
          //  <strong>Kronstrom</strong>
 
          //  <span class="namnSpan"><strong>Stefan</strong> Nils Erik</span>
          //  <span class="namnSpan"></span>
          //  <strong>Garhult</strong>
 
          //  <span class="namnSpan"><strong>Dimitri</strong></span>
          //  <span class="namnSpan"> Edin </span>
          //  <strong>Zylberstein</strong>
 
          for (int j = 0; j < SL2->Count; j++)
            if (SL2->Strings[j].Pos(L"class=\"namnSpan\">"))
            {
              name = Parse(L"class=\"namnSpan\">", L"</span>", "", SL2->Strings[j]);
              name = Trim(name + " " + Trim(Parse(L"class=\"namnSpan\">", L"</span>", "", SL2->Strings[j + 1])));
              name = name + " " + Parse(L"<strong>", L"</strong>", "", SL2->Strings[j + 2]);
              name = ReplaceText(name, "<strong>", "");
              name = ReplaceText(name, "</strong>", "");
              name = UpperCase(name, TLocaleOptions::loUserLocale);  // или loInvariantLocale
              break;
            }
 
          //  адрес, индекс и город
 
          //  <span class="stText">Hagagatan 17 E lgh 1001<br>11347&nbsp;Stockholm</span></div>
 
          //  <span class="stText"><br>11430&nbsp;Stockholm</span></div>
 
          //  <span class="stText"><br>&nbsp;</span></div>
 
          address = "";
          index_city = "";
          city = "";
          for (int j = 0; j < SL2->Count; j++)
            if (SL2->Strings[j].Pos(L"class=\"stText\">"))
            {
              address = Parse2(L"class=\"stText\">", L"<br>", "", SL2->Strings[j]);
//            ShowMessage(address);
              index_city = Parse2(L"<br>", L"</span></div>", "", SL2->Strings[j]);
              index_city = ReplaceText(index_city, L"<span class=\"stText\">" + address + L"<br>", "");
              index_city = ReplaceText(index_city, "&nbsp;", " ");
              city = index_city.SubString(7, index_city.Length() - 6);
              index_city = UpperCase(index_city, TLocaleOptions::loUserLocale);  // или loInvariantLocale
//            ShowMessage(index_city);
              break;
            }
 
          // определение области (округа)
          region = "";
          if (city != "")
          {
            region = Parse(city + "  ", L" län", L" län", MemoRegionsCities->Text);
            region = Trim(Parse(L"kommun  ", L"län", L"län", region));
          }
 
          count++;
          // заполнение данными
          String temp = name + delimiter_data + dob + delimiter_data + Trim(address + " " + index_city) + delimiter_data +
                        region + delimiter_data + ssn;
//        Memo->Text = Memo->Text + temp + "\n";
 
          if (Trim(address) != "" && Trim(index_city) != "")
            Memo->Lines->Add(temp);
 
          // пути к программе и директории номеров PEOPLE
          path = ExtractFileDir(ParamStr(0)), path2 = path + "\\" + ComboBoxSex->Text.Trim() + "\\" + Edit_yyyy->Text + "\\PEOPLE";
          // создание директории, если ее еще нет
          if (!DirectoryExists(path2))
            CreateDir(path2);
          // если есть записи, сохраняем в файл
          if ((count > 0) && (Trim(address) != "" && Trim(index_city) != ""))
          {
            Memo->Text = Memo->Text.Trim();
            Memo->Lines->SaveToFile(path2 + "\\" + Edit_dd->Text + delimiter_date + Edit_mm->Text + ".csv", TEncoding::UTF8);
          }
        }
        Timer2->Enabled = 0;
      }
 
      // увеличение даты
      int s = ComboBoxSex->ItemIndex;
      if (Tag)
        d++;
 
      if (d == 29 && m == 2 && !IsLeapYear(y))
        d++;
 
      if (d > days[m - 1])
      {
        d = 1;
        m++;
        if (m > 12)
        {
          m = 1;
          y++;
          if (y > 2000)
          {
            y = 1951;
            s += 1;
            if (s > 1)
            {
              s = 0;
              Tag = 0;
              MessageBoxW(Application->Handle, String("Data collecting completed successfully.").w_str(), L"Message", MB_OK+MB_ICONINFORMATION);
            }
          }
        }
      }
      String dd = String(d), mm = String(m), yy = String(y);
      if (d < 10)
        dd = "0" + dd;
      if (m < 10)
        mm = "0" + mm;
      Edit_dd->Text = dd;
      Edit_mm->Text = mm;
      Edit_yyyy->Text = yy;
      ComboBoxSex->ItemIndex = s;
      if (Tag)
        current_record = 0;
      Work();
      Application->ProcessMessages();  // принудительное (по возможности) обновление интерфейса
    }
    Tag = 0;  // сброс флажка
  }
  catch (EIdException &E)  // исключение / ошибка
  {
    StatusBar->Panels->Items[0]->Text = TimeToStr(Now()) + " " + E.Message;
 
//  bool state = Tag;
 
//  Error connecting with SSL.
//  EOF was observed that violates the protocol
//    if (E.Message.Pos("Error connecting with SSL") || E.Message.Pos("Host not found"))
    if (Tag && change_proxy)
    {
//    ShellExecuteW(NULL, L"open", L"C:\\911S5\\ProxyTool\\AutoProxyTool.exe", L"-changeproxy/SE", NULL, SW_SHOWNORMAL);
      StatusBar->Panels->Items[0]->Text = "Maybe your proxy is broken.";  // Proxy is changed.";
//    change_proxy = 0;
//    Timer3->Enabled = 1;
    }
 
//  Timer->Enabled = Tag;
    Timer->Enabled = 0;
 
    Timer2->Enabled = 0;
    Tag = 0;
    Work();
    BitBtnSearch->Caption = "S T A R T";
    BitBtnSearch->Font->Color = clGreen;
 
    // сохранение параметров
    path = ExtractFileDir(ParamStr(0));
    Memo->Clear();
    Memo->Lines->Add(ComboBoxSex->ItemIndex);
    Memo->Lines->Add(Edit_dd->Text);
    Memo->Lines->Add(Edit_mm->Text);
    Memo->Lines->Add(Edit_yyyy->Text);
    Memo->Lines->Add(current_record);
    Memo->Lines->SaveToFile(path + "\\options.txt");
 
/*
    if (state)
    {
      BitBtnSearch->Click();
      ShowMessage("Connection has been closed.");
    }
*/
 
    //  Internal Server Error  -  внутр. ошибка сервера
//  MessageBoxW(Application->Handle, String("\""+E.Message+"\"\n\nPerhaps there is no internet\nconnection or no access to the site.").w_str(), L"Error", MB_OK+MB_ICONWARNING);
  }
}
//---------------------------------------------------------------------------
void TForm1::Work()  // интерфейс
{
  BitBtnSearch->Caption = Tag ? "S T O P" : "S T A R T";
  BitBtnSearch->Font->Color = Tag ? clRed : clGreen;
  ComboBoxSex->Enabled = !Tag;
  LabelSex->Enabled = !Tag;
  LabelBirthday->Enabled = !Tag;
  ButtonResetRecord->Enabled = !Tag;
  Timer0->Enabled = Tag;
  Image->Visible = Tag;
 
  Edit_dd->Enabled = !Tag;
  if (Edit_dd->Text.ToIntDef(0) < 1)
    Edit_dd->Text = "01";
  if (Edit_dd->Text.ToIntDef(0) > 31)
    Edit_dd->Text = "31";
 
  Edit_mm->Enabled = !Tag;
  if (Edit_mm->Text.ToIntDef(0) < 1)
    Edit_mm->Text = "01";
  if (Edit_mm->Text.ToIntDef(0) > 12)
    Edit_mm->Text = "12";
 
  Edit_yyyy->Enabled = !Tag;
  if (Edit_yyyy->Text.ToIntDef(0) < 1951)
    Edit_yyyy->Text = "1951";
  if (Edit_yyyy->Text.ToIntDef(0) > 2000)
    Edit_yyyy->Text = "2000";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  // сохранение параметров
  path = ExtractFileDir(ParamStr(0));
  Memo->Clear();
  Memo->Lines->Add(ComboBoxSex->ItemIndex);
  Memo->Lines->Add(Edit_dd->Text);
  Memo->Lines->Add(Edit_mm->Text);
  Memo->Lines->Add(Edit_yyyy->Text);
  Memo->Lines->Add(current_record);
  Memo->Lines->SaveToFile(path + "\\options.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  if (BitBtnSearch->Enabled == 0 || BitBtnSearch->Caption == "S T O P")
    CanClose = 0;
  else
    CanClose = 1;
}
//---------------------------------------------------------------------------
String TForm1::Parse(String text_start, String text_end, String text_extra, String text)
{
  int pos = Pos(text_start, text) + text_start.Length();
  return text.SubString(pos, PosEx(text_end, text, pos + 1) + text_extra.Length() - pos);
}
//---------------------------------------------------------------------------
String TForm1::Parse2(String text_start, String text_end, String text_extra, String text)
{
  int pos = Pos(text_start, text) + text_start.Length();
  return text.SubString(pos, PosEx(text_end, text, pos) + text_extra.Length() - pos);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonResetRecordClick(TObject *Sender)
{
  current_record = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TimerTimer(TObject *Sender)
{
  BitBtnSearch->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
  BitBtnSearch->Click();
  StatusBar->Panels->Items[0]->Text = "Fixing program freeze...";
//  MessageBoxW(Application->Handle, String("Fixing program freeze...").w_str(), L"Message", MB_OK+MB_ICONINFORMATION);
  SleepEx(100, 1);
  BitBtnSearch->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer3Timer(TObject *Sender)
{
  change_proxy = 1;
  Timer3->Enabled = 0;
}
//---------------------------------------------------------------------------
void TForm1::star (TImage *Image, TPoint center, int outer_radius, int inner_radius, int beam_count, TColor fill_color, TColor outline_color)
{
  // center - центр фигуры
  // outer_radius и inner_radius - внешний и внутр. радиусы
  // beam_count - кол-во лучей
  // fill_color и outline_color - цвет заливки (закраски) и контура
 
  // обновляем изображение
  Image->Canvas->FillRect(Image->Canvas->ClipRect);
 
  // цвет контура
  Image->Canvas->Pen->Color = outline_color;
 
  // переходим в "начальную точку" звезды
  Image->Canvas->MoveTo(center.x+sin(0.)*outer_radius, center.y-cos(0.)*outer_radius);
 
  // рисуем лучи
  Image->Canvas->Pen->Width = 2;
  for (int i = 1; i <= beam_count; i++)
  {
    Image->Canvas->LineTo(center.x+sin((i*2-1)*M_PI/beam_count)*inner_radius, center.y-cos((i*2-1)*M_PI/beam_count)*inner_radius);
    Image->Canvas->LineTo(center.x+sin(i*2*M_PI/beam_count)*outer_radius+1, center.y-cos(i*2*M_PI/beam_count)*outer_radius-1);
  }
 
  // закрашиваем фигуру
  Image->Canvas->Brush->Color = fill_color;
  Image->Canvas->FloodFill(center.x, center.y, Canvas->Pixels[center.x][center.y], fsSurface);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer0Timer(TObject *Sender)
{
  Timer->Interval = 50;
  static int j = 0;
  j++;
  int outer_radius = 22, inner_radius = 6, beam_count = 10;
  TColor fill_color = clBtnFace, outline_color = clGray;
  star(Image, TPoint(Image->Width / 2, Image->Height / 2), outer_radius, inner_radius, beam_count, fill_color, outline_color);
  j %= beam_count;
  Image->Canvas->Pen->Color = clBlack;
  Image->Canvas->Pen->Width = 4;
  for (int i = j; i < j+1; i++)
  {
    Image->Canvas->MoveTo(Image->Width/2+sin((i*2-1)*M_PI/beam_count)*inner_radius, Image->Height/2-cos((i*2-1)*M_PI/beam_count)*inner_radius);
    Image->Canvas->LineTo(Image->Width/2+sin((i*2-0)*M_PI/beam_count)*outer_radius+1, Image->Height/2-cos((i*2-0)*M_PI/beam_count)*outer_radius-1);
    Image->Canvas->LineTo(Image->Width/2+sin((i*2+1)*M_PI/beam_count)*inner_radius, Image->Height/2-cos((i*2+1)*M_PI/beam_count)*inner_radius);
  }
}
//---------------------------------------------------------------------------