Запись и считывание файлов

@Temnyy Stil · Регистрация: 02.03.2019

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

Вот таким кодом записываю и считываю:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure SaveFile(AFileName, APartName: String; ASource: TStream);
var
  F: TFileStream;
  H: TFileHeader;
begin
  if not FileExists(AFileName) then
    F := TFileStream.Create(AFileName, fmCreate)
  else
  begin
    F := TFileStream.Create(AFileName, fmOpenReadWrite);
    F.Seek(0, soFromEnd);
  end;
  H.Name := ShortString(APartName);
  H.Size := ASource.Size;
  F.WriteBuffer(H, SizeOf(H));
  F.CopyFrom(ASource, ASource.Size);
  FreeAndNil(F);
end;
 
procedure LoadFile(AFileName, APath: String);
var
  F, M: TFileStream;
  H: TFileHeader;
  i: Int64;
begin
  F := TFileStream.Create(AFileName, fmOpenRead);
  F.Seek(0, soFromBeginning);
  i := 0;
  while F.Position <= F.Size - 1 do
  begin
    F.ReadBuffer(H, SizeOf(H));
    M := TFileStream.Create(APath + String(H.Name), fmCreate);
    M.CopyFrom(F, H.Size);
    FreeAndNil(M);
    i := i + 1;
  end;
  FreeAndNil(F);
end;

Все работает хорошо пока не попадется пустой файл, если например попадается пустой текстовый документ то все записывается в него а не в конечный файл, как это исправить?

Verevkin · 04.03.2019, 20:41

Сообщение от Temnyy Stil

Да, пожалуйста.

Создание контрольной суммы

@Temnyy Stil · 04.03.2019, 22:43 **[ТС]**

Как ее правильно использовать?

@Yuliya73 · 04.03.2019, 22:48

Добрый вечер!Сможет кто помочь?На диске D были несколько папок с фото,и несколько папок видимо копированных с C диска но на них стоит замочек,перетащила туда случайно свою папку с фото и теперь пишет что нет прав обратитесь к админу,в свойствах этой папки очень мало кб там должно быть намного больше,подскажет кто в чем дело?

@D1973 · 05.03.2019, 09:01

Yuliya73, а какое отношение Ваш вопрос к Delphi имеет?

@Temnyy Stil · 05.03.2019, 21:33 **[ТС]**

А как уже в готовый файл (тот который из 10 файлов состоит) записать хэш всего файла, а потом его считать?

Verevkin · 05.03.2019, 21:39

Сообщение от Temnyy Stil

А может вы мне всю программу напишете?

Не надо так. Нужны хэши только файлов в контейнере.
----
З.Ы. Отпишусь-ка я от темы. Она мне надоела.

@Temnyy Stil · 05.03.2019, 22:53 **[ТС]**

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

Не надо так. Нужны хэши только файлов в контейнере.

Как тогда проверять целостность всего архива?

Новые блоги и статьи Все статьи Все блоги /
Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .

@Temnyy Stil 0 / 0 / 0 Регистрация: 02.03.2019 Сообщений: 18
	04.03.2019, 22:43 [ТС]
	Как ее правильно использовать? 0

@Yuliya73 0 / 0 / 0 Регистрация: 04.03.2019 Сообщений: 1
	04.03.2019, 22:48
	Добрый вечер!Сможет кто помочь?На диске D были несколько папок с фото,и несколько папок видимо копированных с C диска но на них стоит замочек,перетащила туда случайно свою папку с фото и теперь пишет что нет прав обратитесь к админу,в свойствах этой папки очень мало кб там должно быть намного больше,подскажет кто в чем дело? 0

@D1973 Модератор 9934 / 6471 / 2458 Регистрация: 21.01.2014 Сообщений: 27,436 Записей в блоге: 3
	05.03.2019, 09:01
	Yuliya73, а какое отношение Ваш вопрос к Delphi имеет? 0

@Temnyy Stil 0 / 0 / 0 Регистрация: 02.03.2019 Сообщений: 18
	05.03.2019, 21:33 [ТС]
	А как уже в готовый файл (тот который из 10 файлов состоит) записать хэш всего файла, а потом его считать? 0