Arquivos bin�rios

Question

Tenho uma aplica��o que usa arquivos de texto para buscar informa��es de configura��o.
Estes arquivos est�o em texto e gostaria de trabalhar com bin�rios.

S� n�o sei como.

Se alguem puder informar um tutorial ou uma dica...

Valeu!

Beppe · Answer

Que tipos de dados vc pensa em gravar?...

Koplin · Answer

Texto simples - Na verdade eu uso arquivos de texto para salvar consultas SQL e algumas linhas de comando - um script. Mas quero no formato bin�rio.

Fiz uma pesquisa e achei algumas dicas e vou analisar, mas sua colabora��o ser� muito bem vinda.

Valeu sua aten��o.

Beppe · Answer

Por qu� a necessidade de bin�rio? Para encriptar?Os textos s�o de tamanho fixo? Quantos s�o?...

Koplin · Answer

Em verdade, sim e tamb�m para conhecer o uso dos bin�rios. O texto resolve, mas se amanha eu precisar do bin�rio, esta � uma boa chance de estud�-los.

N�o os textos s�o de tamanhop vari�vel. Mas posso dizer que nenhum arquivo ter� mais do que 100k (formato texto)

Beppe · Answer

T� usando TStream ou file of ......

Koplin · Answer

N�o saquei...Coloco as informa��es de texto em uma TStringList e salvo como .txtSe a pergunta � sobre bin�rios o que eu tenho e vou analizare usa AssignFile, read e reWrite....

Beppe · Answer

Para ler:[code:1:7ea97de36b]var  F: File of Char;  S: String;begin  AssignFile(F, �data.dat�);  try    Reset(F);    SetLength(S, FileSize(F));    Read(F, Pointer(S)^, Length(S));    finally    CloseFile(F);  end;end;[/code:1:7ea97de36b]Para escrever:[code:1:7ea97de36b]var  F: File of Char;  S: String;begin  AssignFile(F, �data.dat�);  try    Rewrite(F);    Write(F, Pointer(S)^, Length(S));    finally    CloseFile(F);  end;end;[/code:1:7ea97de36b]Reset: abre para leituraRewrite: limpa e abre para escrita...

Koplin · Answer

Nunca obtive uma resposta t�o r�pida.Exato o que preciso.Obrigado, Ataliba. Precisando......

Flavio Sanches · Answer

engra�ado....comigo num deu certoretornou oseguinte erro:[Error] Unit1.pas(49): Incompatible types: �Char� and �procedure, untyped pointer or untyped parameter�[Error] Unit1.pas(49):...

Beppe · Answer

o problema � em cima de qual linha?...

Ipc$ · Answer

BlockRead, BlockWrite...

F�rum Vini · Answer

Beppe,realmente o seu c�digo tava dando um erro de sintaxe porque o arquivo era of Char.. eu fiz umas mudan�as nele.. funcionou, mas n�o sei se est� da forma como deveria ser:[code:1:31a68589b4]var  F: File;  S: String;begin  AssignFile(F, �C:data.dat�);  try    Rewrite(F, Length(S));    Write(F, Pointer(S)^);  finally    CloseFile(F);  end;end;[/code:1:31a68589b4]T+,Vinicius;...

F�rum Vini · Answer

Beppe,realmente o seu c�digo tava dando um erro de sintaxe porque o arquivo era of Char.. eu fiz umas mudan�as nele.. funcionou, mas n�o sei se est� da forma como deveria ser:[code:1:0426b428c4]var  F: File;  S: String;begin  AssignFile(F, �C:data.dat�);  try    Rewrite(F, Length(S));    Write(F, Pointer(S)^);  finally    CloseFile(F);  end;end;[/code:1:0426b428c4]T+,Vinicius;...

Beppe · Answer

Realmente Vini, tem um problema sim. isto pq Write escreve um componente(unidade) por vez. No caso de File of Char, o tamanho em bytes a ser escrito � SizeOf(Char) = 1.

Write toma uma lista de argumentos do tipo Char. Uma string poderia ser impressa com:
Write(F, S[1], S[2], S[3], S[4], S[5], ...)

Mas � mais �til a rotina
BlockWrite(F, Pointer(S)^, Length(S))

O mesmo acontece com Read e BlockRead. BlockRead/BlockWrite recebe como argumento a largura do buffer passado, em cada invoca��o. Diferente de Read/Write.

Um detalhe a ser cuidado � a diferen�a no tratamento de arquivos tipados(file of ...;) e n�o-tipados(file;). O tamanho do registo destes �ltimos � definido no tempo de abertura do arquivo com Reset/Rewrite, par�metro RecSize.

F�rum Arquivos bin�rios #186608