Arquivos n�o-texto

Question

Fiz o seguinte codigo que deve gravar um bitmap e alguns dados em texto num arquivo binario, mas ele nao esta gravando a imagem, so o texto.[code:1:133957427f]Type  TMeusDados = record    Nome: String...

Beppe · Answer

� que a imagem �, na verdade, apenas um ponteiro para os pixels. Da forma que vc est� gravando, � este ponteiro(o endere�o dos pixels) que � gravado, 4 bytes no total.

O tipo [b:6612eaafc6]file of[/b:6612eaafc6] n�o � muito flex�vel, por isso deve abandon�-lo em favor de descendentes de TStream.

Seria algo assim:

var
  ArqDados: TStream;
  MeusDados: TMeusDados;
begin
  ArqDados := TFileStream.Create(�C:\dados.dat�, fmCreate);
  try
    MeusDados.Nome := �The Prodigy�;
    MeusDados.Capa := Image1.Canvas.Bitmap;
    ArqDados.Write(MeusDados.Nome[0], SizeOf(MeusDados.Nome));
    MeusDados.Capa.SaveToStream(ArqDados);
  finally
    ArqDados.Free;
  end;
end;

:wink:

Massuda · Answer

Isso acontece porque TMeusDados.Capa � apenas a refer�ncia para o objeto TBitmap que voc� est� usando (acho que cada arquivo seu deve ter agora uns 100-110 bytes).

Para gravar um nome e uma imagem em um arquivo, voc� teria que usar algo assim (n�o testei):

procedure Gravar(NomeDoArquivo, Nome: string; Imagem: TBitmap); 
var 
  Stream: TFileStream; 
  N: Integer; 
begin 
  Stream := TFileStream.Create(NomeDoArquivo, fmCreate); 
  
  // grava o nome
  N := Length(Nome); 
  Stream.Write(N, SizeOf(N)); // tamanho 
  if N > 0 then Stream.Write(Nome[1], N);

  // grava a imagem
  Imagem.SaveToStream(Stream);

  Stream.Free; 
end;

Para ler de volta a imagem use TBitmap.LoadFromStream e para ler de volta o nome d� uma olhada neste [url=http://forum.clubedelphi.net/viewtopic.php?t=57027]t�pico anterior[/url] do f�rum.

F�rum Arquivos n�o-texto #276925