Localizar un array de bytes en un fichero binario.

[maro]

Hola,

Pude ser que lo que intento hacer sea un poco abstracto (o no, ¿no?).

Me gustaría saber como puedo localizar un array de bytes, dentro de un fichero binario.

Me explico:
Lo que quiero es abrir un fichero en binario y cargar un buffer (entiendo que es un array de bytes) y localizar su posición en un segundo fichero, también abierto en modo binario.

¿Es posible hacer esto?


Muchas gracias por su tiempo.
Un Saludo!

Maro.

[ixMike]

Supongamos que ya está todo cargado y tal:

Código Delphi [-]
var
  Buffer: array of byte; //Donde buscas
  Cadena: array of byte; //Lo que buscas
  BufSize: integer; //cantidad de bytes de Buffer
  CadSize: integer; //cantidad de bytes de lo que buscas
  n, p: integer; // ¡Benditos contadores!
  Correcto: Boolean;
begin
//
//Aquí cargarás los datos de donde sea
//
for n:=0 to BufSize - CadSize do
  begin
  Correcto:=False;
  If Buffer[n]=Cadena[0] then
    for p:=0 to CadSize-1 do
      if Buffer[n+p]=Cadena[p] then Correcto:=True else
        begin
        Correcto:=False;
        Break;
        end;
  If correcto then break;
  end;
If correcto then ShowMessage(Format('Se encontró en la posición %d', [p]));
end;

Así, de memoria, más o menos


Salu2.

[maro]

Perfecto. Lo probaré.


Muchas gracias ixMike.

[maro]

Hola de nuevo.

Lo he probado y es justo lo que necesitaba.
Muchas gracias de nuevo ixMike.

Un Saludo!.

Maro.