var
FileBuff: TBytes;
Pattern: TBytes;
begin
FileBuff := filetobytes(filename);
Result := CompareMem(@Pattern[0], @FileBuff[0], Length(Pattern));
end;
¿Hay alguna función, como¿Hay alguna función "Pos" para encontrar los bytes?
Result := Pos(@Pattern[0], @FileBuff[0]);
Pos es seguro binario, alimentarlo con matrices de AnsiChar y listo, funciona –
También podría estar interesado en una Función StringReplace para bytes: http://stackoverflow.com/questions/3106139/binary-version-of-stringreplace –