关于TNMStrm的使用问题。有谁使用过这个控件吗?帮我看看。多谢了。

[sailorcgh]

各位师兄，师姐：
我用TNMStrm,TNMStrStrv来做文件传输碰到下面的问题:
(1)客户端发送单个文件代码如下，出现的问题就是有时候报出文件无法打开发送失败
然后下面要发送其他文件都会失败，这是什么原因，如何处理这异常呢？
AnsiString str_file,str_msg;
int pos=1;

//打开文件对话框
if (OpenDialog1->Execute())
{
TFileStream *MyFStream;
MyFStream = new TFileStream(OpenDialog1->FileName, fmOpenRead);
str_file=OpenDialog1->FileName;
try
{
Memo1->Lines->Add(Now());
Memo1->Lines->Add("发送： " + str_file);
//取得文件名，去掉路径
while(pos!=0)
{
pos=str_file.Pos("\\");
str_file=str_file.SubString(pos+1,str_file.Length()-pos+1);
}
NMStrm1->FromName = str_file; // 传递文件名
NMStrm1->PostIt(MyFStream);
//ShowMessage("文件"+OpenDialog1->FileName+"发送成功！");
}
catch(...)
{
FileClose(f_handle);
MyFStream->Free();
//NMStrm1->Disconnect();
Memo1->Lines->Add(Now());
Memo1->Lines->Add("发送： " + str_file+" 失败!");
// ShowMessage("文件"+OpenDialog1->FileName+"发送失败！");
return;
}
str_msg= str_file;
str_msg+="发送成功！";
Memo1->Lines->Add(Now());
Memo1->Lines->Add(str_msg);
MyFStream->Free();
}
（2）我想用这两个控件实现服务器端发送命令要客户机把指定的文件传送到服务器如何实现呢?
给点提示好吗？
谢谢各位了！

[ddsft]

虽然您上面所写的代码存在一定的问题：：但要告诉你的是：这两个控件不适合做文件传送：虽然这是两个专门用来传送流文件的控件：理由如下：

1、超过10M或40M左右的文件一般都不能传成功！

2、该套控件的端口，运行时不能改变的！！改变了就无效，也就是说：只有在程序运行之前，编译此程序的时候就要将端口定下来！！！以后不能改了！！

最后一句忠告是：丢掉这种烂控件——虽然有点于心不舍！！

[kinglon]

同意，FASTNET的控件都不是很好用，用INDY的吧~~

[sailorcgh]

ddsft(点点) 那用什么写好呢？我想实现OA网内和远程拨号连接到服务器上传文件，还有服务器向下面的客户机取文件如何写呢？谁有思路吗？我现在不知道如何下手。

[zzhong2]

原来FASTNET是一砣屎！：
http://expert.csdn.net/Expert/topic/1571/1571735.xml?temp=.1370508
http://expert.csdn.net/Expert/topic/1520/1520792.xml?temp=.9708521
http://expert.csdn.net/Expert/topic/1258/1258183.xml?temp=.2946436
http://expert.csdn.net/Expert/topic/1489/1489380.xml?temp=.5100366
BCB6中有问题的控件要是再多几个，ＢＣＢ６就成毛屎坑儿了.
NMFTP有很多问题，你看看上面的贴子就知道了，用Indy的组件吧

[wangxiangsjz]

http://expert.csdn.net/Expert/topic/1860/1860383.xml?temp=.2042658

[zhengyu17]

Indy组件在BCB哪?