13,825
社区成员
发帖
与我相关
我的任务
分享
TFileStream *MyFStream;
MyFStream=new TFileStream("FileName",fmOpenRead);
try
{
this->NMStrm1->Host=IP;
this->NMStrm1->FromName="NetMasters";
this->NMStrm1->PostIt(MyFStream);
MessageBox(Handle,"发送文件到目标主机操作成功!","信息提示",MB_OK);
}
catch(...)
{
MessageBox(Handle,"发送文件到目标主机操作失败!","信息提示",MB_OK);
}
MyFStream->Free();