Hex редактор средствами Delphi

[Shouldercannon]

Сообщение от 3D Hunter

А строки сравнивать кто корректно будет? Компилятор? IntToStr вернет строку без нулей впереди, поэтому у вас ничего найдено не будет. Может s хотя бы в Integer преобразовать? И да, в цикле до FS.Size-1. И если что-то искать, может в AnsiString загрузить файл вместо FileStream? Тогда и поиск будет легче с помощью pos, copy, delete и т.д. И тот же байт меняется заменой i-го символа в строке простым присвоением.

Вот этот вариант лучше

var
  FS: TFileStream;
  Value: AnsiString;
begin
  FS := TFileStream.Create(ExtractFilePath(GetModuleName(0)) + '00000000000000000.prf', fmOpenRead or fmShareDenyWrite);
  try
    SetLength(Value, FS.Size);
    FS.ReadBuffer(Pointer(Value)^, Length(Value));
  finally
    FreeAndNil(FS);
  end;
 
  if Pos(Edit1.Text, Value) <> 0 then ShowMessage('Найдено');

Только нужный Offset не найден, очевидно из-за того, что файл имеет другой вид при данном способе загрузки.

[3D Hunter]

Файл имеет тот же вид, вы неверно ищете. '00002592' - это HEX-значение. А байты в строке у вас не HEX. Преобразуйте '00002592' в бинарную строку (4 байта здесь будет) и ищите именно ее в вашем Value.

[Shouldercannon]

Запутался. 00002592 - это смещение (Offset - в переводе с английского) или указатель на строку, в которой нужно искать значения. Вот ещё раз вырезка из скрина, который находится в моём первом посте.
Функция преобразования данных Edit1.Text в двоичный вид, которую я использую:

function StrToBin(Input: integer): string;
var
  i: integer;
  WorkStr: string;
begin
  while Input > 1 do
  begin
    WorkStr := WorkStr + IntToStr(Input mod 2);
    Input := Input div 2;
    if Input = 1 then WorkStr := WorkStr + '1';
  end;

  for i := Length(WorkStr) - 1 downto 0 do Result := Result + WorkStr[i];
end;

[Аватар]

Это смещение и согласно картинке в десятичном виде. FS.Position:=2592; В следующих 16 байтах: 07 со смещением 2597, 02 - 2601, 01 - 2605. И нет тут никакого HEX-редактора, просто перезапись нужных байтов по заданным смещениям

[Shouldercannon]

Исходя из этого, способ загрузки остаётся тем же, только загруженное содержимое требуется перевести в десятичный вид и дальше позиционироваться на нужном Offset. Я правильно понимаю?
В прикреплённом файле показано содержимое

Value: AnsiString;

с загруженным в него файлом.

[Аватар]

Примерно в этом направлении. FileStream создать с полномочиями на чтение/запись. Никакого перевода в десятичный вид

var b: Byte;

FS.Position:=2597;  //позиционирование для редактирования байта с 07
b:=$17;
FS.Write(b,1); //вставили новое значение в байт со смещением 2597

[Shouldercannon]

Аватар
Спасибо. То, что нужно.