I/O bmp - txt

[JF Sebastian]

Se trata de almacenar un bmp en un txt al estilo de las imagenes de los formularios de delphi en los ficheros dfm, el proceso inverso tambien se requiere, generar el bmp a partir de los datos de un txt.
Supongo que simplemente se trata de un volcado de bits, se podria abrir el bmp en formato binario y almacenar los bytes en hexadecimal por ej. pero el paso inverso? seria tambien generar el bmp como un volcado de bytes??

EDITO: Resulta que es mas facil de lo que me esperaba: Funciona perfectamente

[paladincubano]

te sugiero que cuando hagas una preguntas y tu mismo des con la respuesta, pues la pongas, para que otros que tengan dudas la vean al usar los buscadores.
gracias y saludos.

[JF Sebastian]

Código Delphi [-]
procedure almacena;
var f1: File of byte; f2: TextFile; b: byte;
begin
  AssignFile(f1,'img.bmp');
  AssignFile(f2,'texto.txt');
  reset(f1);
  rewrite(f2);
  while not eof(f1) do
  begin
    read(f1,b); writeln(f2,b);
  end;
  closefile(f1);
  closefile(f2);
end;
 
procedure lee;
var f1: File of byte; f2: TextFile; b: byte;
begin
  AssignFile(f1,'img2.bmp');
  AssignFile(f2,'texto.txt');
  rewrite(f1);
  reset(f2);
  while not eof(f2) do
  begin
    readln(f2,b); write(f1,b);
  end;
  closefile(f1);
  closefile(f2);
end;

Como veis es muy facil...