Ada BlockRead Опции

[TarasBer]

Мне очень не нравится скорость побайтового чтения - 3МБ файл читается больше секунды, когда дельфовый аналог на BlockRead считывает его моментально.
Всё, что приходит в голову - открыть файл для типа byte, узнать размер, потом открыть файл для массива данного размера и считать за раз.

   Byte_IO.Open(SF, Byte_IO.In_File, "test.txt");
   declare
     S: Byte_IO.Count := Byte_IO.Size(SF);
     type Arr is array (1..S) of byte;
     type AArr is access Arr;
     package Arr_IO is new Ada.Direct_IO(Arr);
     F: Arr_IO.File_Type;
     A: AArr;
   begin
     A := new Arr;
     Byte_IO.Close(SF);
     Arr_IO.Open(F, Arr_IO.In_File, "test.txt");
     Arr_IO.Read(F, A.all);
     Arr_IO.Close(F);
   end;

Но это выдаёт
raised STORAGE_ERROR : EXCEPTION_STACK_OVERFLOW
(даже после того, как я вместо заведения массива на стеке завёл указатель)
Да и мало ли размер файла изменится между первым и вторым открытиями.
И вообще много дёргать винт это плохо.

Последний вариант - через ВинАПИ, но мне неохота туда лезть.

ПС Настраиваемые пакеты во внутреннем блоке - это сильно. Реально круто, я про язык.

Сообщение отредактировано: TarasBer - 31.05.2011 12:16

[IUnknown]

Но это выдаёт
raised STORAGE_ERROR : EXCEPTION_STACK_OVERFLOW

Не подтверждается... В пустом проекте читает трехмегабайтный файл легко...

Всё, что приходит в голову - открыть файл для типа byte, узнать размер, потом открыть файл для массива данного размера и считать за раз.

Чтобы узнать размер файла, совсем не обязательно его открывать. Есть пакет Directories, который предоставляет тебе информацию:

   procedure File_Read is
      Name : String := "F:\Programs\Ada\forum\debug\test.txt";
      File_Size : Integer := Integer (Ada.Directories.Size (Name));
      
      type Byte_Buffer is array(1 .. File_Size) of Byte;
      package Arr_IO is new Ada.Direct_IO (Byte_Buffer);
      File : Arr_IO.File_Type;
      Buffer : Byte_Buffer;
   begin
      Arr_IO.Open  (File, Arr_IO.In_File, Name);
      Arr_IO.Read  (File, Buffer);
      Arr_IO.Close (File);
      Ada.Text_IO.Put_Line (Integer'Image (File_Size));
   end File_Read;

шестимегабайтный файл прочитало меньше, чем за 0.1 секунды.

Сообщение отредактировано: IUnknown - 31.05.2011 14:20