用NMStrm来传送文件，接收方如何取得源文件名啊？

[macri]

下边的代码在接收保存文件时，没有文件名，要自己输入一个，如何自动取得源文件名

void __fastcall TMainForm::NMStrmServ1MSG(TComponent *Sender,
const AnsiString sFrom, TStream *strm)
{
//保存文件对话框
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();
}

}

[macri]

哪位大侠给个完整的程序嘛，主要是提示界面要友好。

[zyyoung]

const AnsiString sFrom
这个参数就上吧,我想

[still_alive]

http://community.csdn.net/Expert/topic/4920/4920911.xml?temp=.1143305
我已经解决了,上面是我发问题,不过还有点小错误,你试着修改一下吧
如果不会修改再找我,我把完整的程序发给你,主要是现在方便,代码不再身边呵呵

[大伟]

发送端设置：
NMStrm1->Host = Edit2->Text;
NMStrm1->FromName = Edit1->Text;//你的文件名
NMStrm1->PostIt(MyFStream);

接收端
void __fastcall TFormMain::NMStrmServ1MSG(TComponent *Sender,
const AnsiString sFrom, TStream *strm)
{
if (FileExists(".\\" + sFrom))
DeleteFile(".\\" + sFrom);
TFileStream *MyFStream;
MyFStream = new TFileStream(".\\" + sFrom, fmCreate);
try
{
MyFStream->CopyFrom(strm, strm->Size);
}
catch(...)
{
}
MyFStream->Free();
Memo1->Lines->Add(sFrom.c_str());
}
//---------------------------------------------------------------------------