Поиск текста в массиве Char, массив берётся у бинарного файла(exe, dll)

[Silver_S]

Относительно варианта в первом посте

fs.ReadBuffer(@Buffer,1000); //читаю 1000 знаков

@ тут не нужна, такой вариант у меня даже не скомпилировался

Далее в функции Pos массив Buffer преобразуется к строке, где признаком конца строки является символ #0, т. е. массив будет обрезан до первого #0 (которых в исполняемом выше крыши).
Лучше сделать примерно так

SetString(s, Buffer, 1000);
if pos('ASDX', s) <> 0 then

PS
Массив объявить так

  Buffer: array[0..999] of AnsiChar;

PPS
И не следует забывать, что 'ASDX' может оказаться на границе 2 считываемых кусков.

[Человек_Борща]

Тоже вариант...
Но я поступил проще=) Получил список секций exe.

[chertovich]

Сообщение от Человек_Борща

chertovich, ваш способ действительно работает...

но результат пичален:
На файл размером 10 кб тратиться 50 ms
На файл 1 мб затрачивается 5 секунд или 5247 ms

Следовательно на файл размером, скажем 10 мб, будет затрачено 50 секунд.

Можно ли быстрее?

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

Для этого, как я уже говорил, необходимо использовать буфер по больше и считывать данные из файла туда. Осталось написать алгоритм, если сами не сможете то скажите, помогу.

[Человек_Борща]

Стоит 2 задачи:
1. Узнать упакован ли файл упаковщиком UPX
2. Получить версию уппаковщика из exe

С первой задачей я справился путём получения списка секций exe, и нахождением там текста UPX.

А вторую вот так:

function GiveUPXVersion(aFileName: string): string;
var
  fs: TFileStream;
  Buff: array [1 .. 1008] of AnsiChar;
  VerBuff: array [1 .. 4] of AnsiChar;
  pStr: Integer;
  UpxVer: string;
  s: String;
begin
  fs := TFileStream.Create(aFileName, fmOpenRead);
  try
    fs.Position := 0;
    fs.Seek(0, soFromBeginning);
    fs.ReadBuffer(Buff, 1007);
    SetString(s, PAnsiChar(@Buff), SizeOf(Buff));
    if Pos('UPX!', s) <> 0 then
    begin
      pStr := (Pos('UPX!', s) - 1);
      fs.Seek((pStr - 5), soFromBeginning);
      fs.ReadBuffer(VerBuff, 4);
      SetString(UpxVer, PAnsiChar(@VerBuff), SizeOf(VerBuff));
      Result := UpxVer;
    end;
    fs.Position := 0;
  finally
    FreeAndNil(fs);
  end;
end;

Silver_S и chertovich Благодарю=)