Поиск байт

[Gerzs]

Здравствуйте.
Подскажите, пожалуйста, как найти положение двух байта в файле, стоящих последовательно?

[Stilet]

Чего найти?

[Serge_Bliznykov]

Вы не поверите - читать содержимое файла и сравнивать побайтно, если первый байт совпал, сравнивать второй байт.
При этом учесть, что таких совпадений может быть несколько...

p.s. пример кода нужен?

[Gerzs]

Сообщение от Serge_Bliznykov

p.s. пример кода нужен?

Дайте, если не сложно.

[mutabor]

1. TFileStream
2. читать кусок в буфер (буфер - обычный массив из байтов), потому что побайтно будет медленно
3. в этом массиве искать в цикле нужные тебе байты

Ищи темы на форуме, где TFileStream обсуждали. Или смотри в справке, там все есть.

[Gerzs]

mutabor, я в принципе так и делал, только файл весь пробовал читать в динамический массив, а ничего не читал(

Вот, может ошибка где-то?

var
  FS:TFileStream;
  b:array of byte;
  buf,i:integer;
begin
  FS:=TFileStream.Create('filename', fmOpenReadWrite);
  buf:=FS.Size;
  FS.Seek(buf, soFromBeginning);
  SetLength(b, buf);

  FS.Read(b, buf);
  for i:=1 to 200 do
  begin
    Form11.Memo1.Lines.Add(IntToStr(b[i]))
  end;
  FS.Free;
end;

В итоге в мемо одни нули.

[s.Creator]

а если

FS.Seek(0, soFromBeginning);

[Gerzs]

Сообщение от s.Creator

а если

FS.Seek(0, soFromBeginning);

не помогло
и даже

FS.Seek(1, soFromBeginning);

[Stilet]

А так:

var
  FS:TFileStream;
  ss:TStringStream;
  b:array of byte;
  buf,i:integer;
begin
  FS:=TFileStream.Create('C:\temp\q.txt ', fmOpenReadWrite);
  ss:=TStringStream.Create;
  ss.CopyFrom(fs,fs.Size);
  for i:=1 to ss.Size do
  begin
   Memo1.Lines.Add((ss.DataString[i]))
  end;
  FS.Free; ss.Free;
end;

P.S. не люблю борландовские стримы, корявые донельзя...

[Gerzs]

Сообщение от Stilet

А так:

var
  FS:TFileStream;
  ss:TStringStream;
  b:array of byte;
  buf,i:integer;
begin
  FS:=TFileStream.Create('C:\temp\q.txt ', fmOpenReadWrite);
  ss:=TStringStream.Create;
  ss.CopyFrom(fs,fs.Size);
  for i:=1 to ss.Size do
  begin
   Memo1.Lines.Add((ss.DataString[i]))
  end;
  FS.Free; ss.Free;
end;

P.S. не люблю борландовские стримы, корявые донельзя...

Нет, так тоже не работает.
А для чего копировать в StringStream?