客户端 服务器,多个客户端同时从服务器端下载一个文件,下面代码流程是否有问题?

多个客户端同时从服务器端下载一个文件,下面代码流程是否有问题? - 故障解答 - 电脑教程网

多个客户端同时从服务器端下载一个文件,下面代码流程是否有问题?

日期:2007-03-28   荐:
多个客户端同时从服务器端下载一个文件,下面代码流程是否有问题?publicF: TFileStream;//公共变量Procedure ThreadStart(); //一个socket客户端连进来请求下载varfileName:stringbegin FileName:=EditFileName.Text; if FileName<>'' then begin F := TFileStream.Create(FileName,fmOpenRead); //打开文件 ReadFile(); end;end;Procedure ReadFile();//读取文件varn:integer;beginif 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;//////////////////////////我是担心一个客户端读取了部份后,另个客户端又接入,把前面的客户端读到的文件的标志位又定位到当前的位置了.也就是说文件的读取位置改变造成出错 这个程序肯定是有问题的。这只是单线程的情况下可以使用。关注是吗?怎么还有人说没问题的,有没有人高手能再发表一些看法?
标签: