Fórum Arquivos no formato HEX #207372
18/01/2004
0
valew.....
::d::a::m::m::i::t::
Curtir tópico
+ 0Posts
18/01/2004
Beppe
Pra transformar um byte em hex, usa IntToHex(Um_Byte, 2)
Gostei + 0
19/01/2004
::d::a::m::m::i::t::
dei um mexida aki mas naum consegui fazer funcionar.....
valew...
Gostei + 0
19/01/2004
Beppe
Gostei + 0
19/01/2004
::d::a::m::m::i::t::
Gostei + 0
19/01/2004
Beppe
var Valor: Byte; begin with TFileStream.Create(´dados.dat´, fmOpenReadWrite) do try Seek(10, soFromBeginning); // posiciona no 11o. byte ReadBuffer(Valor, SizeOf(Byte)); Seek(-4, soFromCurrent); // volta 4 bytes(8o. byte) ReadBuffer(Valor, SizeOf(Byte)); Seek(0, soFromEnd); // final do arquivo WriteBuffer(Valor, SizeOf(Byte)); finally Free; end; end;
Quando se lê ou escreve, o cursor avança pelo números de bytes acessados(lidos ou escritos com sucesso). A posição inicial é zero, e você pode mudá-lo com Seek. Quando você escreve, os dados são sobrescritos, exceto quando o cursor está no final, quando o arquivo é expandido. Espero ter ajudado.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)