Localizar un array de bytes en un fichero binario.

[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.