有谁用DELPHI开发过网络编程，也就很简单的，把一个文件发送到指定的主机上去，有谁编过没！

Question

有谁用DELPHI开发过网络编程，也就很简单的，把一个文件发送到指定的主机上去，并从指定的主机上收取文件。有谁编过没！
有没有参考的代码？？？？很急！！！！！！！！！

Answer 1

最简单的办法是在远程主机创建FTP服务器,然后使用FTP进行编程:
这是我的一个FTP传送文件的源程序的一部份,使用IDFTP控件.通过InterNet访问.procedure TForm1.DownloadButtonClick(Sender: TObject);//下载文件
var fileName:string;
begin
  if Not IdFTP1.Connected then exit;
  Filename:=Trim(Midstr(DirectoryListBox.Items[DirectoryListBox.ItemIndex],40,90));
  IdFTP1.TransferType := ftBinary;
  BytesToTransfer := IdFTP1.Size(FileName);
  IdFTP1.Get(FileName, EditPath.Text+FileName, true);
end;procedure TForm1.UploadButtonClick(Sender: TObject);  //上传文件
begin
  if not IdFTP1.Connected then exit;
  if not UploadOpenDialog1.Execute then exit;
  IdFTP1.TransferType := ftBinary;
  IdFTP1.Put(UploadOpenDialog1.FileName, ExtractFileName(UploadOpenDialog1.FileName));end;

Answer 2

ding~~
这种代码应该挺好找得..应该用socket很好解决的..
去google或者delphifans,delphibox这些地方找找

Answer 3

我写过，ftp或者直接copyfile都有，不过推荐ftp，比较方便。

Answer 4

用ICS的FTPCLIENT控件，以前做过挺简单