idftp 上传

Question

1请问怎么连接，（5分）
2上传的代码是什么（50）3本地设置了http，怎么连接本地的机器（45）请教大侠

Answer 1

连接:function TfrmFileTransferModule.connect:boolean;
begin
   with IdFTP1 do
  begin
    Host := __Host;
    Username := __userName;
    Password := __passWord;
    Port := __Port;
    try
      if IdFTP1.Connected then IdFTP1.Disconnect;
      idftp1.ReadTimeout := 60000;
      IdFTP1.Connect(True,60000);
      Result := True;
    except
      Result := false;
    end;
  end;
end;

Answer 2

上传文件
procedure TfrmFileTransferModule.mUpClick(Sender: TObject);
var  __fileName : string;
begin
  if OpenDialog1.Execute then
  begin
    //检查文件是否存在
    if not FileExists(OpenDialog1.FileName) then exit;
        try
          IdFTP1.ChangeDir(IntToStr(ModuleID));
          idftp1.TransferType :=ftASCII;// ftBinary;
          idftp1.Passive := True;  // 这里分为主动和被动
          idftp1.Noop ;          IdFTP1.Put(OpenDialog1.Filename,__fileName);
          Application.MessageBox(pchar('文件上传成功!'),'提示',MB_OK+MB_ICONINFORMATION);
        except
          on E :Exception do
           Raise Exception.Create(E.Message);
        end;
  end;
   getFilecount; 
end;

Answer 3

上传用这个procedure TfrmFileTransferModule.mUpClick(Sender: TObject);
var  __fileName : string;
begin
  if OpenDialog1.Execute then
  begin
    //检查文件是否存在
    if not FileExists(OpenDialog1.FileName) then exit;
    // 检查服务器是否已经存在此文件
    __fileName := ExtractFileName(OpenDialog1.FileName);
        try
          idftp1.TransferType :=ftASCII;// ftBinary;
          idftp1.Passive := True;  // 这里分为主动和被动
            idftp1.Noop ;          IdFTP1.Put(OpenDialog1.Filename,__fileName);
          Application.MessageBox(pchar('文件上传成功!'),'提示',MB_OK+MB_ICONINFORMATION);
        except
          on E :Exception do
           Raise Exception.Create(E.Message);
        end;
  end;
end;

Answer 4

3本地设置了http，怎么连接本地的机器（45） 
http 与FTP???

Answer 5

假设我的是http://127.0.0.1/
那我要把文件上传到这个目录下当然要连接的啦

Answer 6

要看你开放的端口FTP打开就是根目录

Answer 7

现在我的问题是用idftp连接本地不上啊，就是用idftp连接127.0.0.1  端口我开发的是80,用户名和密码都是登录本机的,就是连接不上，不上说ftp打开的问题

Answer 8

这样吧,你要先排除是不是服务端有问题.在CMD下用FTP试下.

Answer 9

你是不是用IIS来开发的80端口?  那跟FTP没什么关系啊,兄弟
如果是我上面的猜测,建议你装一个SERVER-U做服务端,即安全也易用.

Answer 10

IPCONFIG 看能不能看到IP地址。不行就用HOSTNAME,端口改成80,如果有HTTP服务要注意冲突

Answer 11

我来个简洁的
上传begin
IdFTP1.Host := '主机地址';
IdFTP1.Username := '用户名';
IdFTP1.Password := '密码';
if IdFTP1.Connected then IdFTP1.Disconnect;
IdFTP1.Connect();
try
IdFTP1.Put('data/本地文件名','远程文件名');
except
end;

Answer 12

可以看到ip地址
HOSTNAME是什么意思啊？
那密码是取那里的密码的？