F�rum Convers�o de bytes para tipos como Integer, String, etc #265195

13/01/2005

Pessoal, outrto dia precisei de um m�todo para fazer a convers�o de valores inteiros, string, etc, para bytes e ent�o grava-los num arquivo stream. Consegui aqui mesmo no forum a rotina de convers�o e grava��o apresentada abaixo e adaptei �s minhas necessidades.

Agora por�m, preciso ler o mesmo arquivo que criei antes. Claro que � nececss�rio saber como est�o dispostos os bytes dedntro do arquivo. Ent� como exemplo posso dizer que em um dos casos existem as seguintes informa��es gravadas na sequ�ncia:

Um n�mero inteiro do tipo Integer;
Uma string de 8 caracteres

Portanto, convertendo estas informa��es em bytes tem-se:
[color=red:ce99932d2d]1234[/color:ce99932d2d][color=blue:ce99932d2d]N12345568[/color:ce99932d2d]

Ou seja:
[color=red:ce99932d2d]1234[/color:ce99932d2d] = 4 bytes de um numero do tipo inteiro.
[color=blue:ce99932d2d]N12345678[/color:ce99932d2d] = 1 byte representado por �N� que determina o comprimento da strring + 8 bytes de uma strting de 8 caracteres

[b:ce99932d2d]O que eu preciso:[/b:ce99932d2d]
Preciso pegar estas informa��es no formato [color=red:ce99932d2d]1234[/color:ce99932d2d][color=blue:ce99932d2d]N12345568[/color:ce99932d2d] e converter novamente para seus respectivos tipos, ou seja:
Converter [color=red:ce99932d2d]1234[/color:ce99932d2d] em N�mero inteiro
Converter [color=blue:ce99932d2d]N12345568[/color:ce99932d2d] em uma string de 8 caracteres.

Algu�m sabe como fazer este processo?

wbb

[color=red:ce99932d2d][b:ce99932d2d]Convers�o de [u:ce99932d2d]tipos para bytes[/u:ce99932d2d]:[/b:ce99932d2d][/color:ce99932d2d]

var 
  X: Integer; 
  Y: Double; 
  S: string; 

procedure Gravar(NomeDoArquivo: string); 
var 
  Stream: TFileStream; 
  N: Integer; 
begin 
  Stream := TFileStream.Create(NomeDoArquivo, fmCreate); 
  
  Stream.Write(X, SizeOf(X)); 
  Stream.Write(Y, SizeOf(Y)); 

  // string � mais complicado... 
  N := Length(S); 
  Stream.Write(N, SizeOf(N)); // tamanho 
  if N > 0 then Stream.Write(S[1], N); // texto 

  Stream.Free; 
end; 

procedure Ler(NomeDoArquivo: string); 
var 
  Stream: TFileStream; 
  N: Integer; 
begin 
  Stream := TFileStream.Create(NomeDoArquivo, fmOpenRead); 
  
  // le na mesma ordem que escreveu 
  Stream.Read(X, SizeOf(X)); 
  Stream.Read(Y, SizeOf(Y)); 

  // string � mais complicado... 
  Stream.Read(N, SizeOf(N)); 
  if N > 0 then begin 
    SetLength(S, N); 
    Stream.Read(S[1], N); 
  end 
  else begin 
    S := ��; 
  end; 

  Stream.Free; 
end;

Wbb

Curtir t�pico

+ 0

Responder

Posts

13/01/2005

Massuda

procedure Ler(NomeDoArquivo: string); 
var 
  Stream: TFileStream; 
  N: Byte; // <-- mudou aqui!
begin 
  Stream := TFileStream.Create(NomeDoArquivo, fmOpenRead); 
  
  // le na mesma ordem que escreveu 
  Stream.Read(X, SizeOf(X)); 
  Stream.Read(Y, SizeOf(Y)); 

  // string: 1 byte para o tamanho + os caracteres
  Stream.Read(N, SizeOf(N)); 
  if N > 0 then begin 
    SetLength(S, N); 
    Stream.Read(S[1], N); 
  end 
  else begin 
    S := ��; 
  end; 

  Stream.Free; 
end;

Assume que se for uma string vazia, grava ZERO (para indicar zero caracteres) e mais nada.

Responder

Gostei + 0

13/01/2005

Wbb

� isso a� Massuda! Funcionou.
Obrigado novamente pela aten��o, que ali�s, foi extramente �til.

t+
wbb

Responder

Gostei + 0