[HM47]

Собственно проблема в следующем.
Как в Delphi реализовать такую функцию:
В открытом файле перейти по смещению 0x0001000 (к примеру),
прочитать 30 байт, взять открыть другой файл и записать эти 30 байт по смещению 0x0002000?

Вообщем интересует чтение и запись данных в hex по смещениям
?

[zip000]

Юзай TFileStrem. HEX значения записываются в Делфи как $FFFFFF (т.е. начинаются со знака $). Сменить позицию в файле TFileStream.Position := some_hex_value.

[HM47]

Теперь проблема с чтением данных
Если использовать это:

procedure TForm1.Button1Click(Sender: TObject);
var
a:TFileStream;
s:byte;
begin
OpenDialog1.Execute;
a:=TFileStream.Create(OpenDialog1.FileName, fmOpenReadWrite);
a.Seek($0,soFromBeginning);
a.Read(s, sizeof(s));
IF s=$05 then
begin
s:=$00;
a.Seek($0,soFromBeginning);
a.write(s,sizeof(s));
end;
a.free;
end;

то работает с одним байтом. А как сделать чтоб несколько сразу заменить.
Пробывал так:

...
a.Read(s, sizeof(3));
IF s=$050201 then
begin
s:=$000000;
...

не работает

[HM47]

Теперь проблема с чтением данных
Если использовать это:

procedure TForm1.Button1Click(Sender: TObject);
var
a:TFileStream;
s:byte;
begin
OpenDialog1.Execute;
a:=TFileStream.Create(OpenDialog1.FileName, fmOpenReadWrite);
a.Seek($0,soFromBeginning);
a.Read(s, sizeof(s));
IF s=$05 then
begin
s:=$00;
a.Seek($0,soFromBeginning);
a.write(s,sizeof(s));
end;
a.free;
end;

то работает с одним байтом. А как сделать чтоб несколько сразу заменить.
Пробывал так:

...
a.Read(s, sizeof(3));
IF s=$050201 then
begin
s:=$000000;
...

не работает

[Navi1982]

А как сделать чтоб несколько сразу заменить.

Попробуй использовать массив... Например:

Код:

Var
...
s:array [1..10] of byte; //вообщето скока надо стока и ставь
...

а дальше пишеш:

Код:

a.write(s,sizeof(s));

На счет чтения, тоже можешь использовать массив...

Код:

a.Read(s, sizeof(s));

если значения 4-байтовые и их несколько подряд то массив должен быть соответственным например:

Код:

s:array [1..10] of Integer;

А если значение одно, то массив использовать необязательно.

Код:

s:Integer;

Одно могу сказать. Обрабатывая последовательность данных используй массив. Если, требуется обрабатывать кусочки данных, то просто переменную соответствующего размера (даже структуру).