文件流啊~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(50分)

  • 主题发起人 主题发起人 花 儿
  • 开始时间 开始时间

花 儿

Unregistered / Unconfirmed
GUEST, unregistred user!
我书不见了,我要用Tfilestream读取或写入硬盘上的txt,Dat,ini,及其他文件
怎么做?要求用进度条显示过程~~~~

老大,帮忙谢拉!
 
看Help吧。。。根据Read,Write,Position等就可以计算出进度条的位置了。。
 
我知道啊。可是不准~~~~
不会药用多线程吧?
 
你的文件很大吗?TfileStream.loadfromfile的速度很快的[:)]
 
不是的,我给你一段代码吧,他提示“拒绝访问“
Open:=TFileStream.Create('F:/Program info/编程技术1999合订本/9904.txt',fmOpenRead);

//open就是 open:TfileStream;
怎么回事啊?
 
F:/Program info/编程技术1999合订本/9904.txt
这个文件是不是存在?这行代码没有问题!
 
是不是有其他进程打开它了?
Open:=TFileStream.Create('F:/Program info/编程技术1999合订本/9904.txt',fmOpenRead or fmShareDenyNone);
行不行?
Open:=TFileStream.Create('F:/Program info/编程技术1999合订本/9904.txt',fmOpenRead or fmShareCompat);
行不行?
 
http://go4.163.com/lovejingtao/mystream.htm
 
Pipi----
我也这么想,可是我没有打开他啊,其他的也一样啊。怎么办啊
 
你在开始菜单/运行,输入(包括双引号):
"F:/Program info/编程技术1999合订本/9904.txt"
看是否能够打开?
(注意要完全copy,不要自己输入,说不定是错了一个字符)
 
Pipi----
输错字符他会说 打不开文件 ,而且这次他说的是Win 32 error拒绝访问,到底那里错了

呢?
 
那你在开始菜单/运行,输入(包括双引号):
"F:/Program info/编程技术1999合订本/9904.txt"
可以打开吗?
说不定也不能打开嘛,比如说,权限啊,比如说win2000你加密了这个文件,现在又重装了win2000……等等
 
试过了阿,可以!!!!
怎么回事呢?你试看看?
 
估计不是 TFileStream.Create 这里出错, 你后面还干了什么?
另外delphi什么版本?delphi6的花,那么就是delphi6的bug了
 
我是D6,而且发生错误的话,蓝色条条就停在我给你的那段代码那边。
 
d6 这么高级?出错还会停在那里?
下面接着有什么代码?
 
接着----
try
open.Size:=pb.Max;
open.Position:=Pb.Position;
RichEdit.lines.SaveToStream(Save);
finally
open.Free;
end;
 
哦,上面的错了。应该是----
接着----
try
open.Size:=pb.Max;
open.Position:=Pb.Position;
RichEdit.lines.openfromStream(open);
finally
open.Free;
end;
 
open.Size:=pb.Max 不对吧,
它会设置文件的长度,你是只读打开的
 
经过试验,就是设置open.Size不对
 
后退
顶部