如何实现在网络上自动传输文件

[LazyFarmer]

第一次编写网络通讯的程序，所以还请大家多多帮助。我的问题是在本地生成某个文件后如何自动传输到网络上的某台机器上，并如何判断接收到的文件是否正确？

[wg961423]

检索文件名，如果是新文件，就发送到另一台机器！

判断正确性：
发送文件时加上MD5，到达后再MD5，两个值作比较！

[huaqglxy2004]

当文件到达后，你再去获得远程机器的那个你刚刚发送的文件名，与自己的比较。看是否正确为！

[huaqglxy2004]

你可以用NMEcho控制，当发送结束后，让他返回你刚刚发送的文件名！

[hy1080]

同意一楼，MD5算法FAQ区可能也有，好象以前见过

[LazyFarmer]

up

[我不懂电脑]

控件可以用TClientSocket、TIdFtp

[LazyFarmer]

那用那个控件呢？

[icwin]

学习

[Friecin]

//上传压文件
Application->ProcessMessages();
NMFTP->Connect();
LabelState->Caption = "正在连接FTP....";
LabelState->Update();
if(NMFTP->Connected)
{
Application->ProcessMessages();
NMFTP->ChangeDir( EditFTPDir->Text ) ; //改变目录
}
else
ShowMessage("FTP connect error!") ;

[Friecin]

NMFTP->List();
Application->ProcessMessages();
NMFTP->Upload( ZlibFile, ExtractFileName( ZlibFile ) );


//下载：
LabelState->Caption = "正在连接FTP服务器....";
LabelState->Update();
NMFTP->Connect();
if( NMFTP->Connected )
{
NMFTP->ChangeDir("/update/hz/") ; //改变目录
}
else
ShowMessage("FTP connect error!") ;

NMFTP->List();
NMFTP->Download( ZlibFileName ,ExtractFilePath( Application->ExeName )+ ZlibFileName );

[「已注销」]

学习