Прошу знатоков сильно не пинать новичка, а помочь отладить следующий код:
Имеем файл "
file.bin " длиной 64 байта следующего тестового содержания(первая строчка-адрес):
000102030405060708090A0B0C0D0E0FFFFFFF003132333400FFFF0031323300FFFFFFFFFFFFFF003132333400FFFFFF
Программа ищет определенные последовательности байт (массив "
Poisk ") и заменяет их на другие (массив "
Zamena ")
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.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
unit Main_Module;
interface
uses
Winapi.Windows, System.SysUtils, System.Classes,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TMainForm = class(TForm)
OpenDialog: TOpenDialog;
btnStart: TButton;
btnOpenFile: TButton;
edtOpenFile: TEdit;
Memo: TMemo;
procedure btnOpenFileClick(Sender: TObject);
procedure btnStartClick(Sender: TObject);
private
{ Private declarations }
FullFileName: String; // Полное имя файла
FBin: TFileStream;
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
//==================== Процедура открытия БИН-файла ============================
procedure TMainForm.btnOpenFileClick(Sender: TObject);
begin
if OpenDialog.Execute then FullFileName := OpenDialog.FileName;
try
FBin:=TFileStream.Create(FullFileName, fmOpenRead);
edtOpenFile.Text := FullFileName;
finally
FBin.Free;
end;
end;
//================= Конец процедуры открытия БИН-файла =========================
//======================== Процедура Поиска и Замены ===========================
procedure TMainForm.btnStartClick(Sender: TObject);
var
MBin: TMemoryStream; // файл in Memory
SizeFile: Dword; // Длина файла
pCurrent: Pointer;
P: PChar;
const
Poisk: array[0..5] of Byte = ($00, $31, $32, $33, $34, $00); // массив Поиска
Zamena: array[0..5] of Byte = ($00, $35, $36, $37, $38, $00); // массив Замены
begin
try
FullFileName := edtOpenFile.Text; // Считываем имя файла
MBin:=TMemoryStream.Create;
MBin.LoadFromFile(FullFileName);
SizeFile := MBin.Size;
//-------------------- Код поиска и замены ------------------------------
pCurrent := MBin.Memory; // адрес в памяти
P := PChar(pCurrent);
//while Integer(pCurrent) + SizeOf(Poisk) < SizeBinFile do
while P <= (PChar(pCurrent) + SizeFile - length(Poisk)) do
begin
if CompareMem(P, @Poisk[0], length(Poisk)) then
begin //---- Найдено совпадение ----
CopyMemory(P, @Zamena[0], length(Poisk)); // Копируем Замену вместо Поиска
P := P + length(Poisk); // Коррекция на длину Поиска, чтоб искать дальше
end
else
begin //---- Нет совпадения ---------
inc(P); // продолжаем дальше искать по файлу
end;
end;
//-----------------------------------------------------------------------
finally
MBin.SaveToFile(FullFileName); // Пишем МЕмори в файл
FreeAndNil(MBin);
end;
end;
//===================== Конец процедуры Поиска и Замены ========================
end.
Код был позаимствован вот от сюда:
https://groups.google.com/forum/#!topic/fido7.ru.delphi.chainik/_U4HgdMDwpo ,
Но вместо
FileMapping -га была сделана попытка применить
TMemoryStream
Что-то видимо нужно немного подправить в
выделенном куске кода ,
у самого ума видимо еще не хватает и знаний!...
