TFileStream.Create(opendialog1.filename, fmCreate)直到程序关闭才释放？如何就地解决？(100分)

  • 主题发起人 主题发起人 房客
  • 开始时间 开始时间
房

房客

Unregistered / Unconfirmed
GUEST, unregistred user!
程序中重新要调用该文件的TFileStream
 
var
ii:TStream;
begin
ii:=TFileStream.Create(opendialog1.filename, fmCreate);
//从新调用前
ii.Free;
//然后就可以再次建立
end;
 
现在ＭＹ问题在于：
ii:=TFileStream.Create('a.exe', fmCreate);
ii.Free;
如果是
ii:=TFileStream.Create('b.exe', fmCreate);
ii.Free;//没问题
当再次
ii:=TFileStream.Create('a.exe', fmCreate);
ii.Free;／／有问题了，文件都在上一次的位置
postion定位都无效？？？
 
房客老兄，下面的代码没问题呀。
procedure TForm1.Button1Click(Sender: TObject);
var
ii:TFileStream;
begin
ii:=TFileStream.Create('e:/a.exe', fmCreate);
ii.Free;
// ii:=TFileStream.Create('e:/b.exe', fmCreate);
// ii.Free;
ii:=TFileStream.Create('e:/a.exe', fmCreate);
ii.Free;
end;
 
panyongze:
我的情况是
ii:=TFileStream.Create('e:/a.exe', fmCreate);
ii.Free;
以后
到资源管理去删除该文件。。。文件正被占用，无法删除：（
 
我可以删除，问题出在别的地方吧。
 
试试：
var
ii: TFileStream;
Handle: THandle;
begin
ii:=TFileStream.Create('e:/a.exe', fmCreate);
Handle := ii.Handle;
ii.Free;
FileClose(Handle);
end;
Fileclose 在 SysUtils 中声明。
 
我试过了一切都没问题
 
俺是放到一个THREAD里头去的
 
作主线程同步
 
kthy:
thank you 问题还是没解决 可能是我没过关
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

S
[非官方补丁]RSP-19552 10.2.2 的 Android 程序在退出时出错的问题非官方补丁
回复
0
查看
805
swish
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
[原]Delphi XE4 For IOS真机调试配置教程
回复
0
查看
1K
DelphiTeacher的专栏
D
I
编写定制的文件流实现文件读写加密
回复
0
查看
833
import
I
后退
顶部