L
liuliu1018
Unregistered / Unconfirmed
GUEST, unregistred user!
服务器端的代码：
在serverExcute事件中
sfilename := inttostr(GetTickCount)+'.txt';
try
streamimg:=tfilestream.Create(sfilename,fmCreate);
readstream(streamimg,-1,false);
streamimg.Free;
except
showmessage('保存错误');
end;
客户端代码：
在发送文件的按钮事件中
strm:=tfilestream.Create('c:/demo.txt',fmOpenRead);
IdTCPClient1.OpenWriteBuffer();
IdTCPClient1.WriteStream(strm);
IdTCPClient1.CloseWriteBuffer;
strm.Free;
遇到的问题是：
每次客户端利用流发送文件后，服务器端的代码就停留在readstream(streamimg,-1,false);这里，关闭客户端程序后，服务器端抱错。
请问如何解决呢？
在serverExcute事件中
sfilename := inttostr(GetTickCount)+'.txt';
try
streamimg:=tfilestream.Create(sfilename,fmCreate);
readstream(streamimg,-1,false);
streamimg.Free;
except
showmessage('保存错误');
end;
客户端代码：
在发送文件的按钮事件中
strm:=tfilestream.Create('c:/demo.txt',fmOpenRead);
IdTCPClient1.OpenWriteBuffer();
IdTCPClient1.WriteStream(strm);
IdTCPClient1.CloseWriteBuffer;
strm.Free;
遇到的问题是：
每次客户端利用流发送文件后，服务器端的代码就停留在readstream(streamimg,-1,false);这里，关闭客户端程序后，服务器端抱错。
请问如何解决呢？