public
F: TFileStream;//公共变量Procedure ThreadStart(); //一个socket客户端连进来请求下载
var
fileName:string
begin
FileName:=EditFileName.Text;
if FileName<>'' then
begin
F := TFileStream.Create(FileName,fmOpenRead); //打开文件
ReadFile();
end;
end;Procedure ReadFile();//读取文件
var
n:integer;
begin
if F.Position < F.Size then
begin
n := F.Size - F.Position;
if n > 1024 then n := 1024;
SetLength(bytes,n);
F.ReadBuffer(bytes,n);
end;
end;
解决方案 »
- 编译delphi老遇到的问题
- cxGrid 如何根据某列的值合并单元格?
- 谁能帮帮我,都急死了,关于tSimpleDataSet.ApplyUpdates
- 请教在FastReport中预览时设置页面纸型或者页面距离同步于要打印的页面?(在线...)
- 为什么第二次向数据库添加数据时总是提示DataSet只读?
- *********我是DEPHI菜鸟,大家把QQ好留下,互相学习***********
- 内存映射文件的问题
- 如何取得系统的按键和键值?
- 能不能让stringgrid的某列可更改某列不能更改,能不能用回车健让光标下移到下一列?
- DATABASE,代码值显示
- HOTKEY和发送消息问题
- 高分求救,裸求!
当前的位置了.也就是说文件的读取位置改变造成出错