Чтение из нетипизированного файла

@AlekseyPl · Регистрация: 18.11.2017

Author24 — интернет-сервис помощи студентам

Есть программа, шифрующая файлы любого содержимого. Проблема только в том, что при файлы размером > 100кб шифрует больше минуты, а видео и все 10 минут. Как можно повысить скорость?

Delphi

//….
function IntToBin(Value: integer): string;
var
  i: integer;
begin
  result := '';
  for i := 0 to 7 do
    if Value and (1 shl i) > 0 then
      result := '1' + result
    else
      result := '0' + result;
end;
 
function LoadFromFile(const Filename: string): string;
var
  F: file;
  B, i: Byte;
  n: integer;
begin
  AssignFile(F, Filename);
  FileMode := fmOpenRead;
  Reset(F, 1);
  while not Eof(F) do
  begin
    BlockRead(F, B, 1); 
    n := ord(B);
    result := result + IntToBin(n);
  end;
  CloseFile(F);
end;
//….

@krapotkin · 14.10.2018, 21:15

вспомнить, что мы в 21 веке и использовать соответствующие классы для работы с файлами
и сразу все наладится

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

@AlekseyPl · 15.10.2018, 00:00 **[ТС]**

Не слышал ни о каких классах, ничего нагуглить не смог. Где можно почитать об этом? Или приведите пример хотя бы одного такого класса.
Насчет конкатенации спасибо, скорость повысилась, хоть и ненамного

@D1973 · 15.10.2018, 05:29

Сообщение от AlekseyPl

Или приведите пример хотя бы одного такого класса

System.IOUtils
Я надеюсь, что Вы не на 7-й Дельфи сидите? Если на 7-й - перечитайте еще раз эту фразу:

Сообщение от krapotkin

вспомнить, что мы в 21 веке

и установить что-то бесплатно-актуальное, типа Tokyo CE...

~~Verevkin~~ · 15.10.2018, 08:36

Посмотрел исходник, жэсть какая. Это не шифрование, а ... я не знаю, как это назвать.
Это чо, 1 байт данных превращается в 8 (или даже 16)?

Сообщение от AlekseyPl

Не слышал ни о каких классах, ничего нагуглить не смог. Где можно почитать об этом?

Кликните здесь для просмотра всего текста

Перевод: "хорош умничать, просто напишите мне прогу, а я пока буду на дивание пить пиво".

TFileStream.
Чтение файлов по 1 байту - это главный тормоз процесса.

-----------
Дай посмотреть оригинал задания. Почему-то я думаю, что там совсем не то.

@AlekseyPl · 15.10.2018, 16:08 **[ТС]**

Сообщение от Verevkin

Дай посмотреть оригинал задания. Почему-то я думаю, что там совсем не то.

Потоковое шифрование на основе сдвигового регистра. Те две процедуры - только часть, если что.

Сообщение от Verevkin

Посмотрел исходник, жэсть какая. Это не шифрование, а ... я не знаю, как это назвать.
Это чо, 1 байт данных превращается в 8 (или даже 16)?

Можно так.

Delphi

function LoadFromFile(const Filename: string): string;
var
  F: file of byte;
  B, i: Byte;
  n: integer;
begin
  AssignFile(F, Filename);
  Reset(F);
  while not Eof(F) do
  begin
    read(F, B);
    n := ord(B);
    result := result + IntToBin(n);
  end;
  CloseFile(F);
end;

~~Verevkin~~ · 15.10.2018, 16:14

Сообщение от AlekseyPl

Можно так.

Не надо так. Это противоречит заданию. Вообще не имеет никакого отношения к нему, если чо.

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	14.10.2018, 21:15	2
	вспомнить, что мы в 21 веке и использовать соответствующие классы для работы с файлами и сразу все наладится а еще каждая операция по конкатенации строк вызывает целую кучу операций по выделению памяти и копированию данных так что лучше сначала выделить полностью строку нужной длины, а потом просто ставить символ в нужную позицию 0

@AlekseyPl 32 / 22 / 12 Регистрация: 18.11.2017 Сообщений: 165
	15.10.2018, 00:00 [ТС]	3
	Не слышал ни о каких классах, ничего нагуглить не смог. Где можно почитать об этом? Или приведите пример хотя бы одного такого класса. Насчет конкатенации спасибо, скорость повысилась, хоть и ненамного 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	15.10.2018, 05:29	4
	Сообщение от AlekseyPl Или приведите пример хотя бы одного такого класса System.IOUtils Я надеюсь, что Вы не на 7-й Дельфи сидите? Если на 7-й - перечитайте еще раз эту фразу: Сообщение от krapotkin вспомнить, что мы в 21 веке и установить что-то бесплатно-актуальное, типа Tokyo CE... 1

~~Verevkin~~ Заблокирован
	15.10.2018, 08:36	5
	Посмотрел исходник, жэсть какая. Это не шифрование, а ... я не знаю, как это назвать. Это чо, 1 байт данных превращается в 8 (или даже 16)? Сообщение от AlekseyPl Не слышал ни о каких классах, ничего нагуглить не смог. Где можно почитать об этом? Кликните здесь для просмотра всего текста Перевод: "хорош умничать, просто напишите мне прогу, а я пока буду на дивание пить пиво". TFileStream. Чтение файлов по 1 байту - это главный тормоз процесса. ----------- Дай посмотреть оригинал задания. Почему-то я думаю, что там совсем не то. 0

~~Verevkin~~ Заблокирован
	15.10.2018, 16:14	7
	Сообщение от AlekseyPl Можно так. Не надо так. Это противоречит заданию. Вообще не имеет никакого отношения к нему, если чо. 0