Tenho este condigo para localizar um string especifica em um arquivo binário.
procedure TForm3.Button1Click(Sender: TObject);
var
StStream: TStringStream;
FStream: TFileStream;
S, SDS : UnicodeString;
begin
FStream := TFileStream.Create('c:/file.bin', fmOpenRead);
StStream := TStringStream.Create('');
StStream.CopyFrom(FStream, FStream.Size);
SDS := StStream.DataString;
try
S := 'blablabla';
if Pos(S, SDS) > 0 then
ListBox1.Items.Add(S);
finally
StStream.Free;
FStream.Free;
end;
end;
Mas o o problema é que: só localiza se eu souber o que procurar.
Como faço para localizar strings em vários pontos do arquivo bin. Usando o seek() sei como localiza os pontos que quero ler, como ler as strings a partir destes pontos. Desde já agradeço.
Pergunta
cgm2k7
Olá a todos.
Estou com a seguinte duvida:
Tenho este condigo para localizar um string especifica em um arquivo binário.
Mas o o problema é que: só localiza se eu souber o que procurar.
Como faço para localizar strings em vários pontos do arquivo bin. Usando o seek() sei como localiza os pontos que quero ler, como ler as strings a partir destes pontos. Desde já agradeço.
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.