I/O bmp - txt

[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...