求FTP客户端源码

Question

可远程连接FTP服务器，发送文件即可[email protected]

Answer 1

用TIdFTP实现文件上传 
http://www.tomore.com/1/25358.html
FTP文件传输客户端程序 
http://www.tomore.com/1/19103.html网上很多，自己用google搜一下

Answer 2

这是我做的FTP客户端下载线程里面的代码，写的简单，自己看吧： 
procedure TDownThread.Execute;
begin
  FreeOnTerminate := True;  IsDown := False;  ftpClient := TIdFTP.Create(nil);  try
    ftpClient.RecvBufferSize := 2048;
    ftpClient.SendBufferSize := 2048;    ftpClient.Host := FServerIp;
    ftpClient.Port := FPort;
    ftpClient.Username := fUserName;
    ftpClient.Password := fPwd;    ftpClient.OnWorkBegin := FtpWorkBegin;
    ftpClient.OnWork := ftpwork;
    ftpClient.OnWorkEnd := FtpWorkEnd;    ftpClient.Connect(True,8000);    ftpClient.ChangeDir(fDir);
    IsDown := True;
    ftpClient.Get(FileName,SavePath+'\'+FileName,True);
    
  finally
    ftpClient.Free;
  end;
end;procedure TDownThread.FtpWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  if (AWorkMode = wmRead) and (IsDown = true) then
  begin
     FCurrentSize := AWorkCount;     frm_Main.myLabel[fLines].Caption := fFileName + '  下载进度：'+IntToStr(AWorkCount div 1024 )+'K/'+IntToStr(AllSize div 1024)+'K';
  end;
end;
procedure TDownThread.FtpWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  if (AWorkMode = wmRead) and (IsDown = true) then
  begin
    if (fCurrentSize + 2048) >= fAllSize then
    begin
      frm_Main.myLabel[fLines].Caption := fFileName+ '  下载完毕';
      frm_Main.DownCount := frm_Main.DownCount + 1;
      IsDown := False;
    end
    else
    begin
      frm_Main.myLabel[fLines].Caption := fFileName+ '  下载意外终端，请重新下载...';
      frm_Main.DownCount := frm_Main.DownCount + 1;
      IsDown := False;
    end;
  end;
end;

Answer 3

我自己做过一个,可以发给你,加我MSN吧
[email protected]