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