Ir para conteúdo
Fórum Script Brasil
  • 0

Conversão De Dados


pauloevaristo

Pergunta

Bom pessoal estou tendo dificuldades na conversão de dados de um arquivo binario. Al ler alguns dados do tipo string tudo bem mas qunado tento ler quatro bytes que são do tipo inteiro os valores não estão sendo convertidos de forma adequada, favor olhar parte do codigo que usei para ver se isso mesmo ou se estou fazendo algo errado:

procedure TFRelatorio.Button12Click(Sender: TObject);

var F: TextFile; strDados: String; chrByte: Char; intByte,i: Integer;

begin

AssignFile(F,'c:\arquivo.PDB');

Reset(F);

// nome

strDados := '';

for i := 1 to 32 do

begin

Read(F,chrByte);

strDados := strDados + chrByte;

end;

Edit1.Text := strDados;

// quantidade de segundos

strDados := '';

for i := 1 to 4 do

begin

Read(F,chrByte);

intByte := Ord(chrByte);

strDados := strDados + IntToStr(intByte);

end;

Edit2.Text := strDados;

CloseFile(F);

end;

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Bom, sinto muito mas não tenho tempo para fazer escovação de bits em arquivos binários, mas se um campo inteiro é gravado na sua forma original(4 bytes) uma dica é:

var p:PChar; i:Integer;

begin

i := 123456789;

p := AllocMem(4);

Move(i, p^, 4); // armazena o valor em 4 bytes de memória.

Move(p^, i, 4); // recupera da memória e joga na variável i.

FreeMem(p);

end;

Ou seja, você lê do arquivo para uma área de 4 bytes e depois pelo Move, você o coloca na variável do tipo Integer.

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...