delphi菜鸟的求助！请大虾们指点！

[sna_rv12]

任何文件在传输的过程中都是０１这两个数字的组合，如何把文件对应的这０１组合保存为一个文本文件？请大虾，老鸟，大侠们指点一下，不胜感谢．

[smilyvm]

不明白，帮顶

[auqfiudh]

type
...
ClickList: TStrings;
...
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ClickList.Add(Format('Click at (%d, %d)', [X, Y]));// 用来测试保存内容的一个例子,主要是记录鼠标的移动坐标.
ClickList.Add(timetostr(time));
end;

..
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var sj : String;
begin
sj := formatdatetime('yyyy"年"m"月"d"日"'+'hh"时"mm"分"ss"秒"'+'ms',Now);//保存的LOG文件名
ClickList.SaveToFile(ChangeFileExt(sj, '.LOG'));
end;

不明白你说什么? 上面只是个保存文件的例子(和你那对不上号).
自己想做出什么样的 自己看着办吧!!!

[hsmserver]

机器码？

[阿三]

猜不出来:(

[sna_rv12]

换种说法，能把任何文件在硬盘中对应的数据区里的二进制码０１复制出来保存成文本文件（就是由０１组成的文件）．望大虾们帮忙．