利用组件传送文件

来源：yesky 作者：符东亮出处：巧巧读书 2007-12-11 进入讨论组

讨论组：http://group.qqread.com

　　在Borland C++ Builder中，使用NMStrmServ和NMStrm组件可以很容易地在两台电脑之间传递文件。当然，你也可以使用基于FTPJ协议的文件传输组件NMFTP，但使用NMStrmServ和NMStrm组件更加方便、快捷。

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

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

　　//保存文件对话框

if(SaveDialog1-$#@62;Execute())

{

　　//如果目标文件存在则删除

if (FileExists(SaveDialog1-$#@62;FileName))

DeleteFile(SaveDialog1-$#@62;FileName);

TFileStream *MyFStream;

　　//建立文件

MyFStream = new TFileStream(SaveDialog1-$#@62;FileName, fmCreate);

try

{

MyFStream-$#@62;CopyFrom(strm, strm-$#@62;Size);

ShowMessage("接收成功！文件另存为"+SaveDialog1-$#@62;FileName);

}

catch(...)

{

ShowMessage("接收失败！");

}

　　//释放

MyFStream-$#@62;Free();

}

　　这样，一个接收文件的程序请做好了，紧接着我们做文件发送的程序：进入讨论组讨论。