上传文件

Question

有没有简单的方法上传文件，服务器端（有固定ip）设置要简单，最好不装什么软件。希望能说的详细一些，最好有代码。

Answer 1

NMFTP控件:
  NMFTP1.Host:='Ftp.xxx.xxx.net';
  NMFTP1.Port:= 119;
  NMFTP1.UserID:='userid';
  NMFTP1.Password:='password';
  NMFTP1.Connect;
  NMFTP1.MakeDirectory('newDir');
  NMFTP1.ChangeDir('newDir');
  NMFTP1.Upload('LocalFile','RemoteFile');//上传
  NMFTP1.Download('RemoteFile','LocalFile');Delphi的Demos\FsatNet\ftp有一个例子

Answer 2

当然服务器端要开FTP服务了；

Answer 3

那怎样在IIS建FTP，如何设置。刚才试着建一个FTP站点，说没有安装服务，在连接属性没有发现关于FTP的服务啊。

Answer 4

用程序建立FTP目录：先引入类型库(Project|Import Type Library)adsiis.dll、iisext.dll和activeds.tlbprocedure CreateFtpVDir(VDirName, Path: string);
var
  Site, Server, VRoot, VDir: Variant;
begin
  Site := CreateOleObject('IISNamespace');
  Site := Site.GetObject('IIsFtpService', 'localhost/MSFTPSVC');
  Server := Site.GetObject('IIsFtpServer', '1');
  VRoot := Server.GetObject('IIsFtpVirtualDir', 'Root');
  
  VDir := VRoot.Create('IIsFtpVirtualDir', VDirName);
  VDir.Path := Path;
  VDir.AccessRead := true;
  VDir.AccessWrite := true;
  VDir.SetInfo;
  
  Site := Unassigned;
  Server := Unassigned;
  VRoot := Unassigned;
  VDir := Unassigned;
end;

Answer 5

使用FTP工具上传，例如LYFTP， FlashFXP。。
开FTP最好用Serv-U 4.2.0.5是Windows下最强大稳定的FTP服务器

Answer 6

最简单的就是自己写SOCKET了，传文件直接用transmitfile,收取文件要设一个缓冲区，收到多少时写盘。这样应该最小了。

Answer 7

解决了，我用了一个JSP进行上传