[Gnom_aka_Lexander]

EvilAlex, Держи, тока консольное окошко на распаковке будет, тут уж звиняй, мож кто подскажет, как на прогрессбаре распаковку показать, вместо консоли.

[solvador]

Всех с Праздником!
Подскажите, как в бинарном файле произвести поиск значений (допустим "C7 46 04 00 00 18 00") и определить смещение, если такие значения есть.
Пример поиска строковых данных есть

читать дальше »

Код:

procedure ReadFromFile();
var
  FS: TFileStream;
  str: string;
  i: integer;
begin
  str:= StringOfChar(' ', 10); 
  FS := TFileStream.Create(ExpandConstant('{src}\test.bin'), fmOpenReadWrite);
  try
    FS.Seek(1,soFromBeginning); 
    FS.ReadBuffer(str, 10); 
    MsgBox(str, mbInformation, MB_OK); 
  finally
    FS.Free; 
  end;
end;

а вот как быть с поиском шестнадцатеричных...

Даже такие варианты пробовал

читать дальше »

Код:

procedure ReadFromFile2();
var
  FS: TFileStream;
  strd,str: string;
  shag: integer;
 begin
  str:= StringOfChar(' ',6);
  shag:= 740349
  FS := TFileStream.Create(ExpandConstant('{src}\test.bin'), fmOpenReadWrite);
  try repeat
    FS.Seek(shag,soFromBeginning);
    FS.ReadBuffer(str, 6);
    strd:= IntToStr(Ord(str[1]))+IntToStr(Ord(str[2]))+IntToStr(Ord(str[3]))+IntToStr(Ord(str[4]))+IntToStr(Ord(str[5]))+IntToStr(Ord(str[6]))
    if strd = '1997040024' then MsgBox('bingo', mbInformation, MB_OK); //нашли значение и определили смещение
    shag:= shag + 1
    until shag = 741353
  finally
    FS.Free;
  end;
end;

Конечно же это извращение... Так кто подскажет как нормально сделать?...

[R.i.m.s.k.y.]

нашел в своих примерах скриптов, может поможет

Код:

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}

[*C*ode]
procedure WriteToFile();
var
  FS: TFileStream;
  str: string;
  i: integer;
begin
  str:= '';
  for i:= 0 to 10 do str:= str + IntToStr(Random(10)); // сгенерили рандомную строку
  FS := TFileStream.Create(ExpandConstant('{app}\MyProg.exe'), fmOpenReadWrite); // открыли файл
  try
    FS.Seek(1572,soFromBeginning); // установили курсор по смещению 1572 от начала файла
    FS.WriteBuffer(str, Length(str)); // записали рандомную строку в позицию курсора
  finally
    FS.Free; // освободили файл
  end;
end;

procedure ReadFromFile();
var
  FS: TFileStream;
  str: string;
  i: integer;
begin
  str:= StringOfChar(' ', 10); // подготовили буфер для чтения длиной 10 байт
  FS := TFileStream.Create(ExpandConstant('{app}\MyProg.exe'), fmOpenReadWrite); // открыли файл
  try
    FS.Seek(1572,soFromBeginning); // установили курсор по смещению 1572 от начала файла
    FS.ReadBuffer(str, Length(str)); // считали в буфер 10 байт от позиции курсора
    MsgBox(str, mbInformation, MB_OK); // вывели сообщение с тем, что считали
  finally
    FS.Free; // освободили файл
  end;
end;

procedure ReadFromFileByte();
var
  FS: TFileStream;
  str: string;
  i: integer;
 begin
  str:= StringOfChar(' ',1);
  FS := TFileStream.Create(ExpandConstant('{src}\struct.dat'), fmOpenReadWrite);
  try
    FS.Seek(21,soFromBeginning);
    FS.ReadBuffer(str, 1);
    i:= Ord(str[1]);
    MsgBox(IntToStr(i), mbInformation, MB_OK);
  finally
    FS.Free;
  end;
end;

procedure DeinitializeSetup();
begin
  ReadFromFile(); // прочитали строку из файла
  WriteToFile(); // записали строку в файл
  ReadFromFile(); // опять прочитали
end;

[solvador]

R.i.m.s.k.y.,
В этом примере тоже ищется строка. А надо чтобы искались hex значения.
Таких примеров я не встречал.

А может есть сторонние утилиты, работающие с бинарными файлами через командную строку.

ЗЫ за пример Спасибо, но он у меня есть. И ничего толкового я из него извлечь не смог.

[insombia]

Проблема с фриарком когда делаю скрипт выдаёт ошибку

[murlakatamenka]

insombia, ну переменная не определена, что тут непонятного ?
мб при объединении скриптов в var добавить её забыли. иногда ошибки есть из-за отсутствия ; после предыдущей операции в коде, я так понимаю, это из-за расширенного компилятора эти ошибки бывают.

[insombia]

murlakatamenka как сделать чтобы она определилась?

[murlakatamenka]

вернее было сказать, что она не объявлена
В секции [code] после var написать FilenameLabel: TLabel;

[slysoft]

slysoft, Кинь файлы, ща соединю тебе »

Лександер вот файлы http://rghost.ru/5737321, раньше кинуть не получилось, заранее тебе спасибо!!!

[Gnom_aka_Lexander]

slysoft, забирай, но все это можно вообще двумя строчками сделать, а кнопки и цвета поменять в скине - гораздо корректнее будет работать.

А вот мой вариант - тока код намного короче, и работа элементов корректнее Я тебе советую лучше им воспользоваться