0

Имеется список exe файлов, небольшого размера.

Пример, список:

1.exe
2.exe
3.exe

Нужно в конце каждого из низ в добавить данные, в виде Hex строки. В Memo1 расположен текст.

2010
2011
2012

Нужно записать каждое из значений из memo в конце каждого exe файла - что бы на выходе получилось:

Папка с Именем "2010"

И в неё скопированы три файла **1.exe, 2.exe, 2.exe** (в каждом из которых в Hex (в конце) - добавлена строка **2010** ). 

Папка с Именем "2011"

И в неё скопированы три файла **1.exe, 2.exe, 2.exe** (в каждом из которых в Hex (в конце) - добавлена строка **2011** ). 

Папка с Именем "2012"

И в неё скопированы три файла **1.exe, 2.exe, 2.exe** (в каждом из которых в Hex (в конце)  - добавлена строка **2012** ). 

У меня есть код вот такого плана и он делает изменения только в одном файле. Прошу помощи в решении данного вопроса:

function AttachToFile(const AFileName: string;
  MemoryStream: TMemoryStream): Boolean;
var
  aStream: TFileStream;
  iSize: Integer;
begin
  Result := False;
  if not FileExists(AFileName) then
    Exit;
  try
    aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite);
    MemoryStream.Seek(0, soFromBeginning);
    aStream.Seek(0, soFromEnd);
    aStream.CopyFrom(MemoryStream, 0);
    iSize := MemoryStream.Size + SizeOf(Integer);
    aStream.Write(iSize, SizeOf(iSize));
  finally
    aStream.Free;
  end;
  Result := True;
end;

function LoadFromFile(const AFileName: string; MemoryStream: TMemoryStream)
  : Boolean;
var
  aStream: TFileStream;
  iSize: Integer;
begin
  Result := False;
  if not FileExists(AFileName) then
    Exit;

  try
    aStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
    aStream.Seek(-SizeOf(Integer), soFromEnd);
    aStream.Read(iSize, SizeOf(iSize));
    if iSize > aStream.Size then
    begin
      aStream.Free;
      Exit;
    end;

    aStream.Seek(-iSize, soFromEnd);
    MemoryStream.SetSize(iSize - SizeOf(Integer));
    MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize));
    MemoryStream.Seek(0, soFromBeginning);
  finally
    aStream.Free;
  end;
  Result := True;
end;

// А тут у меня идет изменения в файле, то есть перезапись
procedure TForm1.SaveClick(Sender: TObject);
var
  aStream: TMemoryStream;
begin
  aStream := TMemoryStream.Create;
  Memo1.Lines.SaveToStream(aStream);
  AttachToFile('Test.exe', aStream);
  aStream.Free;
end;

// В данном коде можно извлечь - посмотреть результат изменений
procedure TForm1.LoadClick(Sender: TObject);
var
  aStream: TMemoryStream;
begin
  aStream := TMemoryStream.Create;
  LoadFromFile('Test.exe', aStream);
  Memo1.Lines.LoadFromStream(aStream);
  aStream.Free;
end;
2
  • 2
    Вы не пометили как решённый ни один из ответов на Ваши многочисленные вопросы. Это настораживает ;)
    – MBo
    Commented 14 апр. 2020 в 17:23
  • @MBo, Исправила. Пометила все ответы - оставила только те которые не решенные. Commented 15 апр. 2020 в 12:13

1 ответ 1

1

Код, который требуется для решения задачи проще, чем уже представленный.

На входе процедуры должен быть список с полными путями к файлам, строки и стартовая директория, в которую копируются файлы.

Задача решается с использованием двух циклов, созданием директории ForceDirectories и редко используемом классе с потоком данных для строки TStringStream.

procedure StrangeCopy(AFileList: TStringDynArray; AStrList: TStrings; AStartDir: string);
var
  i, j: integer;
  vStream: TStringStream;
  vOutDir, vOutFile: string;
begin
  for i := 0 to AStrList.Count - 1 do
    begin
      vOutDir := TPath.Combine(AStartDir, AStrList[i]);
      ForceDirectories(vOutDir);

      vStream := TStringStream.Create(AStrList[i]);
      try
         for j := Low(AFileList) to High(AFileList) do
            begin
              vOutFile := TPath.Combine(vOutDir, ExtractFileName(AFileList[i]));

              TFile.Copy(AFileList[i], vOutFile);

              AttachToFile(vOutFile, vStream)
            end;
      finally
        vStream.Free;
      end;
    end;
end;  

vStream каждый раз создаю для простоты восприятия. Если его создать один раз через Create, то потребуется еще каждый раз очистить (Clear) и заполнить (WriteString)

4
  • Alex R, А как использовать procedure StrangeCopy тут немного не пойму. Если у Вас есть возможность то опишите. Немного запуталась, а точнее полностью. :( Commented 12 апр. 2020 в 19:04
  • 1
    По параметрам 1. Надо получить список файлов из папки, где лежат 1.exe, 2.exe, 3.exe , например TDirectory.GetFiles('c:\temp'). 2. Передать из Memo1.Lines строки. 3. Куда все скопировать, например TDirectory.GetFiles('c:\temp\result')
    – Alex R.
    Commented 12 апр. 2020 в 19:24
  • А procedure StrangeCopy как использовать. Ох мало опыта у меня к сожалению. Не срабатывает. Спасибо что подсказываете. Commented 12 апр. 2020 в 19:31
  • В общем вопрос остается открытым что только не делал и результат ноль. К сожалению из за нехватки опыта. Commented 12 апр. 2020 в 20:40

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.