一个文件传输中的问题
我用TNMSTRM和TNMSTRMSERV两个控件进行局域网内的文件传输。
在传输方
MyFStream = new TFileStream(strpath+filename1, fmOpenRead);
try
{
NMStrm1->Host = Socket->RemoteAddress;
NMStrm1->FromName = "NetMasters";
NMStrm1->PostIt(MyFStream);
}
catch(...)
{
}
MyFStream->Free();
delete MyFStream;
在接收方:
void __fastcall TFrmLogin::NMStrmServ1MSG(TComponent *Sender,
const AnsiString sFrom, TStream *strm)
{
TFileStream *MyFStream;
MyFStream = new TFileStream(path+"radtek.cfg", fmCreate);
try
{
MyFStream->CopyFrom(strm, strm->Size);
tfile="s";
}
catch(...)
{
tfile="f";
}
MyFStream->Free();
delete MyFStream;
这样文件传输的功能可以实现,但传输完成后程序退出时会报错!
报错为一段内存不能为读。
请问是什么原因,该如何解决?