<b>C++ Builder中操纵组件传送文件</b>[VC/C++编程]

在Borland C++ Builder中,利用NMStrmServ和NMStrm组件可以很简单地在两台电脑之间传送文件.当然,你也可以利用基于FTPJ协议的文件传输组件NMFTP,但利用NMStrmServ和NMStrm组件越发便利、快速.

首先,运行Borland C++ Builder,在窗体Form1中加入一个NMStrmServ组件和一个保存对话框组件SaveDialog.

然后在NMStrmServ1的OnMSG事件中加入:

//保存文件对话框
if(SaveDialog1->Execute())
{
//假如目标文件存在则删除
if (FileExists(SaveDialog1->FileName))
　 DeleteFile(SaveDialog1->FileName);
TFileStream *MyFStream;
//成立文件
MyFStream = new TFileStream(SaveDialog1->FileName, fmCreate);
try
　 {
　 MyFStream->CopyFrom(strm, strm->Size);
　 ShowMessage("接纳成功!文件另存为"+SaveDialog1->FileName);
　 }
catch(...)
　 {
　 ShowMessage("接纳失利!");
　 }
//释放
MyFStream->Free();
}

这样,一个接纳文件的程序请做好了,紧接着我们做文件发送的程序:

再次运行Borland C++ Builder,在新工程的窗体上加入一个NMStrm组件、一个OpenDialog组件、一个按钮Button组件、一个Label组件和一个Edit组件.把Button1的Caption属性改成“发送文件”,把Label1的Caption属性改成“接纳主机:”,把Edit1的Text属性改成“127.0.0.1”.

然后双击Button1,在它的OnClick事件中加入代码:

//翻开文件对话框
if (OpenDialog1->Execute())
{
TFileStream *MyFStream;
MyFStream = new TFileStream(OpenDialog1->FileName, fmOpenRead);
try
　 {
　 //主机名
　 NMStrm1->Host = Edit1->Text;
　 NMStrm1->FromName = "NetMasters";
　 //发送
　 NMStrm1->PostIt(MyFStream);
　 ShowMessage("文件"+OpenDialog1->FileName+"发送成功!");
　 }
catch(...)
　 {
　 ShowMessage("文件"+OpenDialog1->FileName+"发送失利!");
　 }
MyFStream->Free();
}

代码输入完毕,辨别编译运行这两个程序.编译完成后,你便可以点击发送程序的“发送文件”按钮翻开一个文件来传送到远程的主机了.本例中默许的接纳主机IP地址是127.0.0.1,即本地计算机,你也可以在局域网中的别的计算机上运行接纳程序,再在发送程序的主机名里填入该计算机的名字或IP地址,然后翻开文件发送.发送成功后,接纳程序收到文件并询问保存文件,挑选要保存的途径及文件名便可保存接纳到的文件.

以上程序在Borland C++ Builder 5.0,Win98/Win2000中运行通过.