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

[Shouldercannon]

Возможно ли написать на Delphi Hex редактор, подобный изображённому на скрине, а точнее часть функционала:
1. Открыть *.prf файл
2. Найти нужный Offset
3. Произвести изменения
4. Сохранить в текущий файл
?

[rpy3uH]

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

1. Открыть *.prf файл
2. Найти нужный Offset
3. Произвести изменения
4. Сохранить в текущий файл

1. класс TFileStream
2. включить моск
3. ??????
4. PROFIT

[Hacker19_90]

можно чё бы нет!
Любая информация это последовательность байт!
К то ж вам мешает с ними работать?

[Shouldercannon]

procedure TFormMain.Button1Click(Sender: TObject);
var
  FS: TFileStream;
begin
  FS := TFileStream.Create(ExtractFilePath(Application.ExeName) + '00000000000000000.prf', fmOpenReadWrite);
end;

Как дальше искать?

[Hacker19_90]

смотрим что вам писали и ....

1. класс TFileStream
2. включить моск // Вот здесь!!!
3. ??????
4. PROFIT

что искать?

[Аватар]

Дальше в цикле FS.Read. Каждый байт прочитанного конвертить в 16-ричный символьный вид. Редактирование полученного текста в 16-ричном виде. Обратное преобразование. Сохранение

[Shouldercannon]

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

2. включить моск // Вот здесь!!!

Остряк Если сталкиваешься с чем-то абсолютно не знакомым тут и включение мозга не поможет. Это как заставить читать человека, который не знает алфавит.
Далее мне надо найти Offset 00002592. Первый раз такое делаю много непонятного.

[Аватар]

Offset

FS.Position

[Shouldercannon]

Для поиска воспользуемся циклом

var
  FS: TFileStream;
  i: Integer;
  s: string;
begin
  FS := TFileStream.Create(ExtractFilePath(Application.ExeName) + '00000000000000000.prf', fmOpenReadWrite);

  s := '00002592';
  FS.Position := 0;

  for i := 0 to FS.Size do
  begin
    if s = IntToStr(FS.Position) then Caption := 'Найдено';
  end;

[3D Hunter]

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