|
Поиск последовательности в бинарном массиве
#39589210
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
SOFT FOR YOUНо насчёт скорости не согласен. Не может мой пример работать медленее твоего.
Ты скорее всего в моём коде поменял RawByteString на TBytes и получил профит.
Лови исходники и тестируй сам!
Твой код, SOFT FOR YOU: 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.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, DateUtils;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
procedure Test(Sender: TObject);
procedure BeginTime(Sender: TObject);
procedure EndTime(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function HexToByte(const Value: Byte): Byte; inline;
begin
Result := (Value or $20) - Byte('0');
if (Result > 9) then
Dec(Result, Ord('a') - Ord('0') - 10);
end;
procedure TForm1.Test(Sender: TObject);
var
FFile: TFileStream;
FullName: string;
i, m, Dlina, Addr: Integer;
BPoisk: array of Byte; // Динамический массив
RawBin, RawString: RawByteString;
SPSimvol: ansistring;
PSimvol: Byte;
BFile: TBytes;
//---- Переменные для подсчета времени выполнения программы ----------
StartTime: TDateTime; // Время перед подсчетом
EndTime: TDateTime; // Время после подсчета
DelayTime: Double; // Разность времени (Время выполнения программы)
//--------------------------------------------------------------------
label Err;
begin
if OpenDialog1.Execute then
FullName := OpenDialog1.FileName;
FFile:=TFileStream.Create(FullName, fmOpenRead);
try //====== Читаем Файл в TByte ======
SetLength(BFile, FFile.Size);
FFile.ReadBuffer(BFile, FFile.Size);
//====== Читаем Файл в RawByteString ======
SetLength(RawBin,FFile.Size);
FFile.Position := 0;
//FBin.ReadBuffer(PAnsiChar(RawBin)^,FFile.Size);
FFile.ReadBuffer(&RawBin[1],FFile.Size);
finally
FFile.Free;
end;
StartTime := Now; // Фиксируем время Старта
SetLength(SPSimvol, 2);
Addr := 0;
Dlina := 6;
for i := 1 to 1000 do
begin
Memo1.Lines.Add('Prohod-'+IntToStr(i));
//SetLength(BPoisk, Dlina); // Инициируем длину массива
//PInteger(PByte(RawString) - 8)^ := 0;
SetLength(RawString, Dlina); // можно писать в массив байт, но мы будем писать в строку
for m := 0 to Dlina-1 do // Заполняем массив
begin
//SPSimvol[1] := AnsiChar(BFile[Addr + m*2]);
//[2] := AnsiChar(BFile[Addr + m*2 + 1]);
// быстрое чтение хекса
PSimvol := HexToByte(BFile[Addr + m * 2]) shl 4 + HexToByte(BFile[Addr + m * 2 + 1]);
//PSimvol := StrToInt('$' + SPSimvol);
//BPoisk[m] := PSimvol;
RawString[m+1] := AnsiChar(PSimvol);
end;
Err: //RawString := RawByteString(BPoisk);
//PInteger(PByte(RawString) - 8)^ := 0;
Memo1.Lines.Add('Ok');
end;
EndTime := Now; // Фиксируем время СТОПА
// Вычисляем время выполнения ПРОЦЕДУРЫ
DelayTime := SecondSpan(EndTime, StartTime);
Memo1.Lines.Add('Время выполнения=' + FloatToStr(DelayTime) + ' сек.');
end;
end.
Вот мой код Мой код: 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.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, DateUtils;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
procedure Test(Sender: TObject);
procedure BeginTime(Sender: TObject);
procedure EndTime(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function HexToByte(const Value: Byte): Byte; inline;
begin
Result := (Value or $20) - Byte('0');
if (Result > 9) then
Dec(Result, Ord('a') - Ord('0') - 10);
end;
procedure TForm1.Test(Sender: TObject);
var
FFile: TFileStream;
FullName: string;
i, m, Dlina, Addr: Integer;
BPoisk: array of Byte; // Динамический массив
RawBin, RawString: RawByteString;
SPSimvol: ansistring;
PSimvol: Byte;
BFile: TBytes;
//---- Переменные для подсчета времени выполнения программы ----------
StartTime: TDateTime; // Время перед подсчетом
EndTime: TDateTime; // Время после подсчета
DelayTime: Double; // Разность времени (Время выполнения программы)
//--------------------------------------------------------------------
label Err;
begin
if OpenDialog1.Execute then
FullName := OpenDialog1.FileName;
FFile:=TFileStream.Create(FullName, fmOpenRead);
try //====== Читаем Файл в TByte ======
SetLength(BFile, FFile.Size);
FFile.ReadBuffer(BFile, FFile.Size);
//====== Читаем Файл в RawByteString ======
SetLength(RawBin,FFile.Size);
FFile.Position := 0;
//FBin.ReadBuffer(PAnsiChar(RawBin)^,FFile.Size);
FFile.ReadBuffer(&RawBin[1],FFile.Size);
finally
FFile.Free;
end;
StartTime := Now; // Фиксируем время Старта
SetLength(SPSimvol, 2);
Addr := 0;
Dlina := 6;
for i := 1 to 1000 do
begin
Memo1.Lines.Add('Prohod-'+IntToStr(i));
SetLength(BPoisk, Dlina); // Инициируем длину массива
//PInteger(PByte(RawString) - 8)^ := 0;
//SetLength(RawString, Dlina); // можно писать в массив байт, но мы будем писать в строку
for m := 0 to Dlina-1 do // Заполняем массив
begin
SPSimvol[1] := AnsiChar(BFile[Addr + m*2]);
SPSimvol[2] := AnsiChar(BFile[Addr + m*2 + 1]);
// быстрое чтение хекса
//PSimvol := HexToByte(BFile[Addr + m * 2])shl 4 + HexToByte(BFile[Addr + m * 2 + 1]);
PSimvol := StrToInt('$' + SPSimvol);
BPoisk[m] := PSimvol;
//RawString[m+1] := AnsiChar(PSimvol);
end;
Err: RawString := RawByteString(BPoisk);
PInteger(PByte(RawString) - 8)^ := 0;
Memo1.Lines.Add('Ok');
end;
EndTime := Now; // Фиксируем время СТОПА
// Вычисляем время выполнения ПРОЦЕДУРЫ
DelayTime := SecondSpan(EndTime, StartTime);
Memo1.Lines.Add('Время выполнения=' + FloatToStr(DelayTime) + ' сек.');
end;
end.
Запускай и сравнивай сам... |
|
|
