socket传输大文件

Question

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出错了，问问大家怎么改啊，很急

Answer 1

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

Answer 2

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