文件传输问题？请哪位高手有代码拿来参考

Salala12345Sa 2003-12-17 02:46:46

文件传输问题？我要把Client的文件传输到Server,请哪位高手拿点代码来参考,急急...

...全文

51 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

我不懂电脑 2004-01-02

打赏
举报

直接看TIdFTPClient的源马呀

wangtao2003new 2004-01-02

打赏
举报

我也不想用控件作，可是没有实现。

wangxiangsjz 2003-12-18

打赏
举报

我有用UDP传文件的例子，不过是用NMUDP控件的。wangxiangsjz@sina.com

pp616 2003-12-17

打赏
举报

这有一个我用sokcet api写的文件传输的组件。大文件传输没问题。
压缩包里有全部代码和测试代码
http://www.cnxbb.com/bcb/SocketFileTransmit.rar

叶子哟 2003-12-17

打赏
举报

用控件挺好的呀
http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=95398

叶子哟 2003-12-17

打赏
举报

要定义好通信协议,如是否需要首先传个文件大小,如果对端一直未收全数据,一直等待收取等

Salala12345Sa 2003-12-17

打赏
举报

兄弟！你用了控件吧！我不想用控件啊！如果那文件很大怎么办！能不能再为小弟解决!多谢了

aliker 2003-12-17

打赏
举报

在Server端
void __fastcall TForm1::NMStrmServ1MSG(TComponent *Sender,
const AnsiString sFrom, TStream *strm)
{
TMemoryStream *MemStream=new TMemoryStream;
MemStream->CopyFrom(strm, strm->Size);
MemStream->Position=0;//可能要加上
MemStream->SaveToFile("d:\\1.txt");
MemStream->Free();
}

aliker 2003-12-17

打赏
举报

用TNMStrmServ控件和TNMStrm控件。
在Client端
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TMemoryStream *MemStream=new TMemoryStream;
MemStream->LoadFromFile("c:\\1.txt");
try
{
NMStrm1->Host=Edit1->Text; //指定主机名
NMStrm1->PostIt(MemStream); //发送的文件
}
_finally{
MemStream->Free();
}
}
在Server端
void __fastcall TForm1::NMStrmServ1MSG(TComponent *Sender,
const AnsiString sFrom, TStream *strm)
{
TMemoryStream *MemStream=new TMemoryStream;
MemStream->CopyFrom(strm, strm->Size);
MemStream->SaveToFile("d:\\1.txt");
MemStream->Free();
}

咱们的客户，那可是汽车制造行业里的领军企业，妥妥的头部大佬。他们自有一套极为成熟的业务系统，这套系统就像他们的左膀右臂，每日不辞辛劳地处理着各类繁杂事务。然而，随着行业竞争愈发白热化，技术迭代也是日新月异，他们开始琢磨着，得给业务系统加点新元素，以此提升生产效率、优化管理流程。于是，他们把目光投向了咱们的产品，琢磨着能不能把咱们的产品无缝集成到他们的业务系统里。这可不是个简单活儿，他们要求产品的每个细节都得完美融入，不能有丝毫违和感。关键点来了，他们不仅想要产品，还索要完整的源代码。为啥呢？因为他们拥有一支