Перенести байты с конца файла в его начало

@vuasya · Регистрация: 26.08.2013

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

Есть код :

Delphi

  FSrc := TFileStream.Create('221.exe', fmOpenRead);
  try
    FDst := TFileStream.Create('221.exe.new', fmCreate);
    try
      FSrc.Position := 8;
      FDst.CopyFrom(FSrc, FSrc.Size - 8);
      FSrc.Position := 0;
      FDst.CopyFrom(FSrc, 8);
    finally
      FDst.Free;
    end;
  finally
    FSrc.Free;
  end;

он переносит 8 байтов в конец, но вот как перенести потом обратно их в начало ? как не пытался чет не выходит ... можете подсказать ?

@mss · 03.07.2015, 12:40

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

потом обратно их в начало

Результатом очевидно будет точная копия файла 221.exe.
Просто удали 221.exe.new и сделай копию 221.exe под именем 221.exe.new - и всего делов-то)

@vuasya · 03.07.2015, 12:47 **[ТС]**

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

Просто удали 221.exe.new и сделай копию 221.exe под именем 221.exe.new - и всего делов-то)

проблема в том, что файл 221(оригинал ) удаляется (в коде просто не указал ) . Нужно из 221.exe.new восстановить 221.exe, тобишь перенести обратно байты.

@mss · 03.07.2015, 13:06

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

проблема в том, что ..оригинал .. удаляется

И что тут проблемного ?

Delphi

  FSrc := TFileStream.Create('221.exe.new', fmOpenRead);
  try
    FDst := TFileStream.Create('221.exe', fmCreate);
    try
      FSrc.Position := FSrc.Size - 8;
      FDst.CopyFrom(FSrc, 8);
      FSrc.Position := 0;
      FDst.CopyFrom(FSrc, FSrc.Size - 8);
    finally
      FDst.Free;
    end;
  finally
    FSrc.Free;
  end;

@vuasya · 03.07.2015, 13:28 **[ТС]**

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

И что тут проблемного ?

спасибо. Я примерно так и делал , но не полностью . Спасибо

Добавлено через 59 секунд
пойду подучу лучше delphi )

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	03.07.2015, 12:40	2
	Сообщение от vuasya потом обратно их в начало Результатом очевидно будет точная копия файла 221.exe. Просто удали 221.exe.new и сделай копию 221.exe под именем 221.exe.new - и всего делов-то) 0

@vuasya 1 / 1 / 2 Регистрация: 26.08.2013 Сообщений: 381
	03.07.2015, 12:47 [ТС]	3
	Сообщение от mss Просто удали 221.exe.new и сделай копию 221.exe под именем 221.exe.new - и всего делов-то) проблема в том, что файл 221(оригинал ) удаляется (в коде просто не указал ) . Нужно из 221.exe.new восстановить 221.exe, тобишь перенести обратно байты. 0

@vuasya 1 / 1 / 2 Регистрация: 26.08.2013 Сообщений: 381
	03.07.2015, 13:28 [ТС]	5
	Сообщение от mss И что тут проблемного ? спасибо. Я примерно так и делал , но не полностью . Спасибо Добавлено через 59 секунд пойду подучу лучше delphi ) 0

Опции темы

Перенести байты с конца файла в его начало

Решение