利用组件传送文件

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

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

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

　　//打开文件对话框

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

{

TFileStream *MyFStream;

MyFStream = new TFileStream(OpenDialog1-$#@62;FileName, fmOpenRead);

try

{

　　//主机名

NMStrm1-$#@62;Host = Edit1-$#@62;Text;

NMStrm1-$#@62;FromName = "NetMasters";

　　//发送

NMStrm1-$#@62;PostIt(MyFStream);

ShowMessage("文件"+OpenDialog1-$#@62;FileName+"发送成功！");

}

catch(...)

{

ShowMessage("文件"+OpenDialog1-$#@62;FileName+"发送失败！");

}

MyFStream-$#@62;Free();

}

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

　　以上程序在Borland C++ Builder 5.0，Win98/Win2000中运行通过。专题:http://www.qqread.com/bcb/k142214500.html 进入讨论组讨论。