BCB利用组件传送文档

在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中运行通过。