socket传输大文件

[pl5th2001]

var
bufSend:pointer;
fsSend:TFileStream;
begin
fsSend:=TFileStream.Create(OpenDialog1.FileName,fmOpenReadWrite);
GetMem(bufSend,iBYTEPERSEND+1);
if (fsSend.Position+1+iBYTEPERSEND) < fsSend.Size then //iBYTEPERSEND是
//定义的包的大小，，为1024，即文件大于1024个字节
这时候，fsSend.Position出错了，问问大家怎么改啊，很急

[pl5th2001]

大家帮忙啊

[linx88]

可能是TFileStream.Create(OpenDialog1.FileName,fmOpenReadWrite);
没有返回TFileStream结构指针,fssend为nil。

[songdan2002]

出错信息是什么呀。
确实该先看看fssend是否为nil,推荐用TMemStream较好一些
我用它实现过客户－服务端间的文件频繁通信，一点问题也没有。