delphi如何上传文件到web服务器

上传有两种，一种是用ftp控件，需要有帐号和密码来上传文件。优点是方便，悉做尺缺点是别人用一些监听工具可以拦截到你的帐号和密胡老码。

另一种是用asp（或其它）写一个上传脚本，然后delphi调用这个页面，直接实睁高现上传。就跟某些论坛上发贴可以带附件一样。优点是安全。缺点是“不是每个人既会delphi又会asp”。

1.既然你要实现文件互传，那一般只能使用TCP方式（因为文件数据量一般比较大），那么在服务端使用TCP控件Listen，在客户端也使用TCP控件进行连接(connect)，然后就可以了。如果你要实现双向传输，正如你所宴消盯说，两边都要有服务端和客户端，即做一个软件，放两个TCP控件，一个用于服务端，一个用于客户端。

2.至于你后桥悉面一种情况，实际上这是一个晌和你无法直接通过编程解决的问题（本质上是NAT，即1个外网IP=n个内网IP）。目前解决的方法是：

1）使用VPN，现成的是VNN软件（北京一个公司开发的，可以免费使用7天）；

2）自己做个中转（中转软件运行一定要有外网地址），然后实现文件传输前，两个传输方都登录中转，所有传输通过中转软件就可以了。

目前我只知道这两种方法，如果有第三种，也请告诉我，谢谢！

delphi 里 上传肢卜伏 FTP 可以使用 IdFTP 组件，示例代码如下：

procedure TForm1.Button3Click(Sender: TObject)

var

  fi : string

begin  //上传

  if OpenDialog1.Execute then

 弊基 begin

     fi := OpenDialog1.FileName

    IdFTP1.Put('历携f:\原始文件名.rar','上传的文件名.rar')//上传，

  end

end

---