看了，就是这个地方
sTemp:=Trim(StrPas(PChar(bufRecv)));
sFileName:=ExtractFileName(Copy(sTemp,6,Length(STemp)));
SaveDialog1.Title:='请选择或输入接收到的数据保存到的文件名：';
SaveDialog1.FileName:=sFileName;
这个地方不知道怎么不能做成自己处理
比如：把文件直接存到xx目录中
多发送几次文件就要去错了
现象是文件名后要加上一些乱码。
有时是加上？？，就SERVER不能建立文件了，
有时还不能得到文件名。
