我用TFileStream类对一个文件加密,这个类有Read(var Buffer; Count: integer)和Write(var Buffer; Count: integer)两个方法,请问其中的Buffer参数有什么意义,Ord函数是做什么用的?
解决方案 »
- 爱上了僵哥,请你嫁给我吧
- 窗口和ADO的问题
- 求入门级数据库应用程序,要完整最好能有各种控件的使用方法
- 使用rave报表中的问题
- 什么原因??我的电脑在转换输入法的时候,就像死机一样,很久才有反应!!怀疑是装了龙族OFFICE2003,各位有这样的现象吗?
- 大家好,我问一个问题,关于hook的,希望大侠们给予指点。
- 打开二进制文件的问题……在写的时候需要怎样才能不覆盖以前的内容?请教高手!在线等!
- 两个小问题,第一个答对的给全分!!!!!!
- 请问TVarData的用法? 谢谢!
- 如何把自己的个人计算机做成ftp服务器,使得其他远程个人计算机将数据发送到我的机器上。
- 如何解决TClientDataSet.Filter不能like一个汉字的BUG?
- [送分问题]MessageDlg 如何使用?回复就有分。
var
Target,Source:TFileStream;
MyFileSize:integer;
begin
try
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive);
Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusive);
try
Target.Seek(0,soFromEnd);//往尾部添加资源
Target.CopyFrom(Source,0);
MyFileSize:=Source.Size+Sizeof(MyFileSize);//计算资源大小,并写入辅程尾部
Target.WriteBuffer(MyFileSize,sizeof(MyFileSize));
finally
Target.Free;
Source.Free;
end;ord函数是返回某一字符对应的ASCII码
与chr刚好相反
chr(65)='A'
ord('A')=65